vba - MsgBox SelectionChange 定义范围

Question

我写了以下代码:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myValue As Variant
If Range("B22") = "Yes" Then
        myValue = InputBox("InsertInitialDetach")
        Range("C22").Value = myValue
    End If
End Sub

此代码用于执行以下操作:如果我从是/否下拉列表中选择是，则会出现一个消息框并要求我填写日期。
问题是，即使在我填写了日期之后，无论我之后做什么，该框都会不断出现并询问日期。例如，如果我向下移动两个单元格，弹出窗口将继续询问我的日期。
请告诉我我应该怎么做才能解决这个错误？

Answer 1

这样可以吗:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim myValue As Variant
    If (Not Intersect(Range("B22"), Target) Is Nothing) And (Range("B22") = "Yes") Then
        myValue = InputBox("InsertInitialDetach")
        Range("C22").Value = myValue
    End If
End Sub

它每次都会检查您是否正在更改 Range("B22")以及是否 Range("B22") “是的”。