在我特別點擊目標范圍之前，Worksheet_Change（將目標作為范圍）不會更改單元格

Question

我正在嘗試編寫一個VBA代碼，該代碼將根據另一個單元格更改為特定參數的事件的組合自動增加單元格E11中的值。

我的問題是，我編寫的VBA代碼是半自動執行的，而不是全自動執行的。 是否有其他方法可以根據這些if語句自動進行

Private Sub Worksheet_Change(ByVal Target As Range)

    Set Actus = Range("B24")
    Set Def_F = Range("E11")


          If Target.Address = "$E$11" And Target.Value = "1" And Actus.Value = "CPTA" Then
                MsgBox "Try Again"
                Target.Value = "0"
                        ElseIf Target.Address = "$E$11" And Target.Value = "0" And Actus.Value = "DPTA" Then
                        MsgBox "Again, Again"
                        Target.Value = "1"
                              ElseIf Target.Address = "$B$24" And Target.Value = "CPTA" And Def_F.Value = "1" Then
                              MsgBox "Failed, Again"
                              Def_F.Value = "0"
                                     ElseIf Target.Address = "$B$24" And Target.Value = "DPTA" And Def_F.Value = "0" Then
                                     MsgBox "Having fun today?"
                                     Def_F.Value = "1"
            Else: Exit Sub
        End If





End Sub

Answer 1

要在Worksheet_change事件中定位多個單元格，請使用Application.Intersect（Target，otherCell）， 如本文所述 。