将宏绑定到Excel单元格onclick吗?

Che*_*oft 4 excel events vba

在Excel 2000中,是否可以绑定用鼠标单击单元格时要执行的vba函数?

小智 5

找到一个解决方案:

为您要捕获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
Run Code Online (Sandbox Code Playgroud)