[已解决]在某一单元格修改数据后自动运行宏

zjwsm

表格用VLOOKUP取数，档我修改档案编号时，如何自动运行宏。

最佳答案

月排行榜 / 总排行榜

冥王

2015-5-17 17:13

打开VBE编辑器，代码放到资料表中

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     Range("B4:D4,B5,D5").ClearContents
   
4.     Range("B4") = [IF(D1>0,VLOOKUP(D1,数据源!A:G,2,),"")]
   
5.     Range("B5") = [IF(D1>0,VLOOKUP(D1,数据源!A:G,3,),"")]
   
6.     Range("D5") = [IF(D1>0,VLOOKUP(D1,数据源!A:G,4,),"")]
   
7.     Application.EnableEvents = True
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

冥王

将代码放到工作表的change事件中。。。。

zjwsm

冥王 发表于 2015-5-17 15:36
将代码放到工作表的change事件中。。。。

具体怎么弄啊？

冥王

……

冥王

打开VBE编辑器，代码放到资料表中

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     Range("B4:D4,B5,D5").ClearContents
   
4.     Range("B4") = [IF(D1>0,VLOOKUP(D1,数据源!A:G,2,),"")]
   
5.     Range("B5") = [IF(D1>0,VLOOKUP(D1,数据源!A:G,3,),"")]
   
6.     Range("D5") = [IF(D1>0,VLOOKUP(D1,数据源!A:G,4,),"")]
   
7.     Application.EnableEvents = True
   
8. End Sub
   

复制代码