作者wugo (想不出来...)
看板WuGu-BaLi
标题Fw: [问题] 关於EXCEL VBA找到特定字串
时间Mon Oct 17 11:32:04 2016
※ [本文转录自 Office 看板 #1N_nT4i8 ]
作者: hotblood999 (冲啊LUCKYBALL) 看板: Office
标题: [问题] 关於EXCEL VBA找到特定字串
时间: Thu Oct 13 13:10:25 2016
(若是和其他不同软体互动之问题 请记得一并填写)
软体:
OFFICE EXCEL
版本:
2013
各位版上先进前辈们好，
由於是VBA初学者，
希望能请教以下问题，
也希望能用比较详细粗浅的方式讲解，
先在此和各位强者说声感谢！！
如果现在是如下表格：
A B C D
1 小明 56 57 小明58 59晓华46 47晓君35 36
2 晓华 44 45
3 小君 31 32
当她侦测到D1，
於是将B1 C1修改为58 59
将B2 C2修改为46 47以此类推，
改完以後自动回到D2，
也就是说如果B、C栏位出现变动则会跑到D栏位最後一列的下一列，
当D2出现小明54 55时则更改B1 C1然後跑到D3，以此类推。
请问有什麽比较理想的方式呢?
谢谢!！
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.177.35.66
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1476335428.A.B08.html
1F：→ soyoso: 如为储存格资料变更触发事件，可用worksheet_change 10/13 13:50
2F：→ soyoso: 上述请以intersect或target.column、target.row来限缩触发 10/13 13:53
3F：→ soyoso: 范围；要到d栏最後一列可用range.end，偏移下一列用offset 10/13 13:53
4F：→ soyoso: 要以D栏所键入资料来寻找储存格或列号，可用range.find 10/13 13:55
5F：→ soyoso: 或用worksheetfunction.match 10/13 13:56
6F：→ soyoso: 上述有可能搜寻不到的话，请加上判断(if)，排除 10/13 13:56
7F：→ waiter337: 推so大0,0, range.find 搭配if 真的超好用 10/13 14:08
8F：→ waiter337: 如果要找最後一行 z 10/13 14:51
9F：→ waiter337: z > 2 > 16 > 8 10/13 14:51
※ 发信站: 批踢踢实业坊(ptt.cc)
※ 转录者: wugo (40.128.15.162), 10/17/2016 11:32:04