更改單元格的值以觸發宏

Question

如標題所示，每當用戶更改“摘要”工作表中單元格H10中的值時，我都希望運行一個特定的宏（PopulateCalculatorWithWeekChosen）。

我發現以下問答，並嘗試了它，但似乎沒有觸發它。 我是否正確理解我將代碼放在下面的...

從下拉菜單中選擇時觸發事件

Sub PopulateCalculatorWithWeekChosen()

If Target.Address = "$H$10" Then
With Application
    .EnableEvents = False
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With

[PopulateCalculatorWithWeekChosen宏中的其余代碼]

    With Application
    .EnableEvents = True
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
End With
End If
End Sub

...在正確的地方？ 它似乎什么也沒做。 在此先感謝您的幫助。

Answer 1

問題是您已經定義了一個宏，並且您引用的問題/答案正在使用Worksheet_Change事件。 在您的VBA代碼中，您應該具有包含Change事件的Worksheet對象。 事件只是發生特定事件時觸發的功能。 在這種情況下，只要修改工作表，函數Worksheet_Change就會觸發。 您應該具有以下內容：

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$H$10" Then

      With Application
        .EnableEvents = False
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
      End With

      With Application
        .EnableEvents = True
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
      End With

    End If

End Sub

當您修改工作表時，Excel將自動調用此函數，並通過在Target參數中提供該信息來告訴您修改了哪些單元格。