By 喬 - 史密斯 星期一, 06 年 2023 月 XNUMX 日
張貼在 Excel
回复 0
0
觀看 1.9K
投票 0
美好的一天

我遇到過 VBA 代碼,當單擊特定單元格時,它可以很好地觸發 Excel 中的宏。 見下文:


Option Explicit

私人子工作表_SelectionChange(ByVal Target As Range)
如果 Selection.Count = 1 那麼
If Not Intersect(Target, Range("D4")) 什麼都不是
調用 MyMacro
如果結束
如果結束
END SUB


我正在嘗試將 3 個這樣的場景添加到相同的代碼中,但我沒有編碼經驗,所以故障排除讓我無處可去。 請查看下面我正在嘗試做的示例,並儘可能更正代碼:


Option Explicit

私人子工作表_SelectionChange(ByVal Target As Range)
如果 Selection.Count = 1 那麼
If Not Intersect(Target, Range("D4")) 什麼都不是
調用 MyMacro1
如果結束
如果結束
如果 Selection.Count = 1 那麼
If Not Intersect(Target, Range("E10")) Is Nothing 那麼
調用 MyMacro2
如果結束
如果結束
如果 Selection.Count = 1 那麼
如果不相交(目標,範圍(“G23”))那麼什麼都不是
調用 MyMacro3
如果結束
如果結束
如果 Selection.Count = 1 那麼
如果不相交(目標,範圍(“J33”))那麼什麼都不是
調用 MyMacro4
如果結束
如果結束
END SUB



我期待我創建的各種宏(效果很好)在單擊代碼中註明的單元格時自動運行


任何幫助將不勝感激!
查看全文