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

Excel VB函数太多时间

1 个答案: