Question

在excel 2000中，是否可以绑定一个vba函数，以便在用鼠标单击一个单元格时执行？

Answer 1

您可以双击单元格绑定。

打开VBA，转到要连接事件的工作表在左上角的下拉列表中选择WorkSheet，在右上角的BeforeDoubleClick中选择检查Target.Address是否等于您关心的单元格的地址，并调用您想要的函数。

这样的事情：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address(True, True, xlA1) = "$A$1" Then
        Call MyDemo
    End If
End Sub

Private Sub MyDemo()
    MsgBox "Hello"
End Sub

Answer 2

找到解决方案：

为要捕获的单元格clickevent

创建一个命名范围

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Application.ActiveSheet.Cells(1, 1).Value = Target.Address
    If Not Intersect(Target, Range("MyNamedRange")) Is Nothing Then 
        ' do your stuff
        Range("A1").Select
    Endif
    Application.EnableEvents = True
End Sub

将宏绑定到excel cell onclick？

2 个答案: