Excel VBA功能太多时间

Question

我是新写的VB函数。我有一个功能来显示消息。我有sub，它调用这些函数。

   Function refreshSheetData()
      MsgBox "Function call..."
   End Function

   Private Sub Worksheet_Change(ByVal Target As Range)
      If (Target.Address = "$B$3") Then
          refreshSheetData
      End If
   End Sub

当在单元格B3中更改值时，它会运行这些以多次显示消息。我必须在关闭之前多次在消息弹出窗口中单击“确定”。有什么办法我可以多次停止调用这个功能。

谢谢

Answer 1

如上所述关闭事件

   Private Sub Worksheet_Change(ByVal Target As Range)
      On Error goto EH
      Application.EnableEvents = False
      If (Target.Address = "$B$3") Then
          refreshSheetData
      End If
   EH:
      Application.EnableEvents = True
   End Sub