[已解决]指定單元格變更，執行指定的宏。

010203400

求一個宏，當指定單元格變更時，自動執行指定的宏。

最佳答案

月排行榜 / 总排行榜

02761752696

2016-10-24 13:47

全部代码

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$C$2" Then test
   
3. End Sub
   
4. Sub test()
   
5.     MsgBox "Test OK"
   
6. End Sub

复制代码

加个动画 看看

跳转到最佳答案楼层

02761752696

全部代码

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$C$2" Then test
   
3. End Sub
   
4. Sub test()
   
5.     MsgBox "Test OK"
   
6. End Sub

复制代码

加个动画 看看

010203400

02761752696 发表于 2016-10-24 13:47
全部代码
加个动画 看看

非常感謝！

010203400

02761752696 发表于 2016-10-24 13:47
全部代码
加个动画 看看

你好，再向您請教一下：
如果target的範圍是不連續的區域，如C2和D5，有辦法一名話完成if的語句嗎？
我試了將后面的"$C$2"改為range（"$C$2"，"$D$5"），或"$C$2" or "$D$5"這樣都不行。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$C$2" Then test
   
3. If Target.Address = "$D$5" Then test
   
4. End Sub
   
5. Sub test()
   
6.     MsgBox "Test OK"
   
7. End Sub
   

复制代码

02761752696

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$C$2" Or Target.Address = "$D$5" Then test
   
3. End Sub

复制代码

010203400

02761752696 发表于 2016-10-30 20:46

謝謝啦