将宏绑定到excel单元格onclick？

Question

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

Answer 1

找到了解决办法：

将名为范围内要捕获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 

Answer 2

您可以绑定到单元格双击。

打开VBA，后藤要连线了事件 选择工作表中的下拉在右上角 的检查Target.Address左上角和BeforeDoubleClick工作表等于你关心的单元格地址关于并调用你想要的功能。

事情是这样的：

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