选择单元格时创建消息框（excel）

Question

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$B$1" Then
       MsgBox "Something"
   End If
End Sub

您好， 我有一个宏的问题， 我想在有人点击B1时创建弹出消息。 由于某种原因，这个宏没有做任何事情，它可能是简单/愚蠢的事情，任何人都有任何想法？

Answer 1

您使用的是错误的Worksheet事件。您需要使用Worksheet_SelectionChange事件，如下所示：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Address = "$B$1" Then
        MsgBox "Something"
    End If

End Sub

确保将其放在您希望从中发射的纸张模块中。