VBA - 当单元格值 = 1 时打开消息框

Question

我需要有关非常基本的 vba 宏的帮助。当 A6 中的值等于 1 时，工作站中需要出现一个消息框。我开发了下面的代码，但问题是，当我在电子表格中添加任何其他信息时(例如，如果我在 B6 中写“我喜欢披萨”)，msgbox 将再次提示，而我只需要它提示一次，只需当我设置 A6 = 1 的值时。你能帮我吗？

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A6").Value = 1 Then
    MsgBox "THIS IS A MSGBOX."
End If

End Sub

@编辑我忘记了一件非常重要的事情......值“1”是通过 VLOOKUP 获得的，因此它不是由用户手动插入的，对此我感到很抱歉。我尝试了你们回答的代码，当我手动输入 vlue 时它就起作用了，正如我在编辑开始时所说的那样，该值是用 VLOOKUP 设置的。请问还有其他提示吗？

Answer 1

您需要检查更改是否是由于单元格 A6 更改所致，而不是由于其他单元格更改所致。试试这个:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Row = 6 Then
    If Target.Value = 1 Then
      MsgBox "THIS IS A MSGBOX."
    End If
  End If
End Sub