问题探讨01： 如何使用鼠标滚轮使单元格中的数值增减？

Public hHook As LongPtr
 
#If VBA7 Then
    PublicDeclare PtrSafe Function SetWindowsHookEx Lib "user32" Alias"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As LongPtr,ByVal hmod As LongPtr, ByVal dwThreadId As Long) As LongPtr
    PublicDeclare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hhkAs LongPtr) As Long
    PublicDeclare PtrSafe Function CallNextHookEx Lib "user32" (ByVal hHook AsLongPtr, ByVal ncode As Long, ByVal wParam As LongPtr, lParam As Any) AsLongPtr
    PublicDeclare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long
#End If
 
Public Const WH_MOUSE = 7
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_MOUSEWHEEL = &H20A
 
Sub BeginHK()
    '获取当前的线程ID
    i =GetCurrentThreadId
    '这里安装的是键盘钩子
    hHook =SetWindowsHookEx(WH_MOUSE, AddressOf HookProc, 0, i)
End Sub
 
'Hook程序
Public Function HookProc(ByVal code As Long, ByValwParam As Long, ByVal lParam As Long) As LongPtr
    Dimwks  As Worksheet
    Set wks =Excel.ActiveSheet
   
    '如果code参数＜0，则一定要返回CallNextHookEx函数的返回值
    If code< 0 Then
       HookProc = CallNextHookEx(hHook, code, wParam, lParam)
    Else
        SelectCase wParam
            '按下鼠标右键,则退出
            Case WM_RBUTTONDOWN
               EndHK
            '使用鼠标滚轮
           Case WM_MOUSEWHEEL
               wks.Range("B2").Value = wks.Range("B2").Value + 0.01
        EndSelect
       '如果要拦截处理消息，则HookProc函数的返回值一定要是非0，不然会陷入死循环
       HookProc = 1
    End If
End Function
 
Sub EndHK()
   UnhookWindowsHookEx hHook
End Sub