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

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

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") 是否为"is"。