在單元格更改時(shí)自動(dòng)執(zhí)行Excel宏如何在特定單元格中的值每次更改時(shí)自動(dòng)執(zhí)行Excel宏？現(xiàn)在，我的工作代碼是：Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H5")) Is Nothing Then MacroEnd Sub哪里"H5"被監(jiān)控的特定細(xì)胞Macro宏的名稱。有更好的辦法嗎？
3 回答
心有法竹
TA貢獻(xiàn)1866條經(jīng)驗(yàn) 獲得超5個(gè)贊
Range("H5")Application.Range("H5")Application.ActiveSheet.Range("H5")
Target.Worksheet.Range("H5"):
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Target.Worksheet.Range("H5")) Is Nothing Then MacroEnd SubMe.Range("H5")
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("H5")) Is Nothing Then MacroEnd Sub
藍(lán)山帝景
TA貢獻(xiàn)1843條經(jīng)驗(yàn) 獲得超7個(gè)贊
Dim cell_to_test As Range, cells_changed As Range Set cells_changed = Target(1, 1) Set cell_to_test = Range( RANGE_OF_CELLS_TO_DETECT ) If Not Intersect(cells_changed, cell_to_test) Is Nothing Then Macro End If
添加回答
舉報(bào)
0/150
提交
取消