【說明】

某儲存格被異動時,則啟動你想要執行的程式,該如何撰寫程式碼呢?以下分享

 

【程序碼】

1.先點選你想要執行的工作表(紅框處),然後物件名稱選取Workbook

 VBA某儲存格異動時1.png

 

2.事件名稱選取SheetChange

VBA某儲存格異動時2.png

 

3.輸入以下程式碼

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

With Target

If .Row = 1 And .Column = 1 Then

    **輸入,若是觸發儲存格A1時,你所要執行的程式碼**

    Else

    **輸入,若不是觸發儲存格A1時,你所要執行的程式碼,若不執行則不需輸入**

End If

End With

 

End Sub

 

【程序碼解說】

Private Sub Worksheet_Change(ByVal Target As Range) 當工作表變更時,執行

 

With Target

If .Row = 1 And .Column = 1 Then '如果異動的是儲存格A1,.Row = 2 And .Column = 2,則是儲存格B2

    **輸入你所要執行的程式碼**

    Else

    **輸入若不是觸發儲存格A1時,你所要執行的程式碼,若不執行則不需輸入**

End If

End With

 

End Sub

 

謝謝您閱讀了我的文章,若您喜歡我的文章,希望您幫我按個「」,也幫忙分享給需要的朋友或其他平台,謝謝。

 

 

20180128 黑.png

 


arrow
arrow

    黑天使 發表在 痞客邦 留言(0) 人氣()