☰

只需单击一下即可运行 vba

tag-icon • tag-icon microsoft-excel vba
只需单击一下即可运行 vba

我已经给我的表单提供了这个代码。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Selection.Count = 1 Then
    If Not Intersect(Target, Range("D4")) Is Nothing Then
        MsgBox "Hello World"
    End If
  End If
End Sub

但这仅在我退出单元格 D4 后才执行。但我希望只要单击该单元格一次即可执行代码。

希望理解！

答案1

您的代码有一个非常小的问题。它适用于工作簿而不是工作表。在 VBA 编辑器上，双击包含 D4 的工作表，然后输入代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Selection.Count = 1 Then
    If Not Intersect(Target, Range("D4")) Is Nothing Then
        MsgBox "Hello World"
    End If
  End If
End Sub

当进入D4的时候，会显示“Hello World”的消息框。

相关内容