为Excel Workbook 增加Mouse自定义事件。

stanleypan

Excel Workbook 到目前为至也没有支持Mouse的自定义事件，此DLL就是此目的.按照发展的趋势，估计以后的更新版本Microsoft可能会把此Mouse事件增加进来。
更新版的DLL相对比较稳定，占用CPU也比之前的版本少。
*对于Win 7及以上版本，须有管理员权限才能注册DLL。
Excel Workbook Mouse Events.zip (30.88 KB, 下载次数: 84)

2015-3-28 14:14 上传

点击文件名下载附件
Excel Workbook Mouse Events

07年曾发表过：自定义增加EXCEL 的一些事件的DLL

对于Private Sub Workbook_Open()等事件,其实这些事件也是代码写在:EXCEL.EXE里面.从Object Browser里面可以查到:
Library        Class                Member
Excel         Workbook             Open
在WINDOWS下事件是由消息驱动来产生的.
所以通地子类化,钩住相关消息可以自定义一件事件.
对于EXCEL中不支持MouseMove,MouseUp,WheelMoved等等事件.
特做了此DLL.
缺点是占用CPU比较多.

子曰然也

在VB里，鼠标事件功能很强大，很实用的。可以OFFICE里没有这个功能。

stanleypan

Private Sub WB_MouseWheel(ByVal Button As Integer, ByVal Shift As Integer, ByVal wParam As Long, ByVal lParam As Long)
    If wParam < 0 Then
        Debug.Print "Wheel Moved Down"
        Application.StatusBar = "Wheel Moved Down"

        INow = ActiveWindow.VisibleRange.Rows(1).Row
        '----------保证第一行背景颜色------
        ActiveWindow.VisibleRange.Rows(1).Interior.ThemeColor = xlThemeColorAccent6

        '-----------------清空之前Row的背景颜色
        If ILast > 0 Then Application.ActiveSheet.Rows(ILast).Interior.Pattern = xlNone
        ILast = INow    '记录下上一次的Row
    Else
        Debug.Print "Wheel Moved Up"
        Application.StatusBar = "Wheel Moved Up"
        INow = ActiveWindow.VisibleRange.Rows(1).Row
        '----------保证第一行背景颜色------
        ActiveWindow.VisibleRange.Rows(1).Interior.ThemeColor = xlThemeColorAccent6

        '-----------------清空之前Row的背景颜色
        If ILast > 0 Then Application.ActiveSheet.Rows(ILast).Interior.Pattern = xlNone
        ILast = INow    '记录下上一次的Row
    End If

End Sub
Private Sub WB_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    On Error Resume Next
    Application.Caption = "X:" & X & ";" & "Y:" & Y & " " & ActiveWindow.RangeFromPoint(X, Y).Address
    'ActiveWindow.RangeFromPoint(X, Y).Activate
End Sub

Private Sub WB_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    On Error Resume Next
    If Button = 1 Then
        Debug.Print "你按了左键"
        Application.StatusBar = "你按了左键"
    End If
    If Button = 2 Then
        Debug.Print "你按了右键"
        Application.StatusBar = "你按了右键"
    End If    '
    If Button = 4 Then
        Debug.Print "你按了中键"
        Application.StatusBar = "你按了中键"
    End If
End Sub

JLOFN

谢谢分享，太好了。谢谢

wnh728

Excel Workbook还能增加Mouse自定义，看看什么样！

lucytang1983

学习！谢谢分享！

hhzjxss

谢谢版主的大作，可惜我用的2003，测试时只要滚动一个鼠标滚轮，就跳到代码出错的界面！

ggmmlol

如此好贴，今天才看到！感谢分享！建议加入知识树，让更多人有机会看到。