如何在excel vba中触发selectionchange事件之前查看条件

我正在寻找一种在特定目标上触发SelectionChange事件的方法。仅当同一工作表上的另一个单元格不为空时才寻址。 我使用的代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("K20:M20").Address Then _
    RequestorNameEmpty

Sub RequestorNameEmpty()
    If ActiveSheet.Range("D20:H20").Value = "" Then
        MsgBox ("Enter your name first! ")
        GoTo ExitSub
        Else
        ActiveSheet.Range("K20:M20").Value = ActiveSheet.Range("C3").Value
    End If
ExitSub
    Exit Sub

End Sub

谢谢

试试这个

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("K20:M20").Address Then RequestorNameEmpty
End Sub

Sub RequestorNameEmpty()
    If Range("D20").Value = "" Then
        MsgBox ("Enter your name first! ")
        Exit Sub
    Else
        Range("K20").Value = Range("C3").Value
    End If
End Sub

试试这个

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("K20:M20").Address Then RequestorNameEmpty
End Sub

Sub RequestorNameEmpty()
    If Range("D20").Value = "" Then
        MsgBox ("Enter your name first! ")
        Exit Sub
    Else
        Range("K20").Value = Range("C3").Value
    End If
End Sub