要实现鼠标滚轮控制单元格数值的增加和减少，我们需要对现有代码进行修改，使其能够区分鼠标滚轮的前后滚动，并相应地调整单元格中的数值。以下是经过修改的代码，确保它能够实现你所期望的功能：

End If

Public Const WH_MOUSE = 7 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, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr Dim wks As Worksheet Set wks = Excel.ActiveSheet

End Function

Sub EndHK() ‘卸载钩子 UnhookWindowsHookEx hHook End Sub

这段代码的主要修改点如下：

1. 捕获鼠标滚轮事件：我们使用 常量来识别鼠标滚轮事件。
2. 获取滚轮方向：通过 变量来判断滚轮的滚动方向。 的值大于零表示滚轮向前滚动，小于零表示滚轮向后滚动。
3. 调整单元格值：根据 的值，相应地增加或减少单元格中的数值。

使用这个修改后的代码，你应该能够实现鼠标滚轮向前滚动时单元格中的数值增加0.01，向后滚动时减少0.01的功能。

图1

请注意，使用这段代码时，需要在Excel中运行

子程序来启动钩子，并在完成操作后运行 子程序来卸载钩子。如果有任何问题或需要进一步的调整，请随时告知。