Worksheet_Change 欄位變更則執行程式

多個欄位時指定欄位有變更時則執行程式

VBA程式碼

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 3
 MsgBox ("OK")
Case 6
 MsgBox ("OK")
Case 9
 MsgBox ("OK")    
End Select
End Sub

發表評論

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *

5 × 3 =

購物車