当然可以搞定！我之前做过类似的需求，结合Excel VBA和Windows API就能完美复刻原生导航箭头的「按住持续滚动、松开即停」效果。下面给你一步步拆解实现方法：

核心思路 #

Excel的表单控件或ActiveX按钮本身没有「按住重复触发」的原生事件，所以我们需要：

• 用Windows API捕获鼠标左键的按住/松开状态
• 配合VBA定时器，在鼠标按住期间周期性执行导航宏
• 鼠标松开时立即停止定时器，终止宏的重复执行

具体实现代码 #

第一步：在模块中声明Windows API和全局变量 #

打开VBA编辑器（按Alt+F11），插入一个标准模块，粘贴以下代码：

Option Explicit

' 声明Windows API函数
Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As Long

' 全局变量存储定时器ID
Private gTimerID As LongPtr
Private Const VK_LBUTTON As Long = &H1 ' 鼠标左键的虚拟键码

第二步：编写定时器回调函数和导航宏 #

在同一个标准模块中继续添加：

' 定时器回调函数：每隔指定时间执行一次
Sub TimerProc(ByVal hwnd As LongPtr, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long)
    ' 检查鼠标左键是否仍处于按住状态
    If (GetAsyncKeyState(VK_LBUTTON) And &H8000) <> 0 Then
        ' 执行你的导航宏（替换成你录制的代码）
        NavigateWorksheet
    Else
        ' 松开鼠标后停止定时器
        KillTimer 0, gTimerID
        gTimerID = 0
    End If
End Sub

' 示例导航宏：替换成你自己录制的工作表滚动/切换代码
Sub NavigateWorksheet()
    ' 这里是你录制的导航逻辑，比如向下滚动工作表
    ActiveWindow.LargeScroll Down:=1
    ' 如果你是切换工作表，可以用：Sheets(ActiveSheet.Index + 1).Activate
End Sub

第三步：给按钮添加鼠标事件 #

假设你用的是ActiveX按钮（表单控件也可以，但ActiveX事件更方便），在按钮所在的工作表代码窗口中，添加以下代码：

' 鼠标按下时启动定时器
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then ' 只响应鼠标左键
        ' 设置定时器：每隔100毫秒执行一次TimerProc（可根据需求调整间隔）
        gTimerID = SetTimer(0, 0, 100, AddressOf TimerProc)
    End If
End Sub

' 鼠标松开时停止定时器
Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 And gTimerID <> 0 Then
        KillTimer 0, gTimerID
        gTimerID = 0
    End If
End Sub

关键细节说明 #

• 定时器间隔：代码中设置的是100毫秒，你可以根据流畅度调整（比如50毫秒更快，200毫秒更慢）
• 按钮设置：记得把ActiveX按钮的TakeFocusOnClick属性设为False，否则按住按钮时焦点会转移，影响工作表操作
• API兼容性：PtrSafe关键字是为了兼容64位Excel，如果是32位版本可以去掉PtrSafe，把LongPtr改成Long

使用注意事项 #

1. 保存工作簿为.xlsm格式（启用宏的工作簿）
2. 首次打开时需要启用宏才能生效
3. 如果用的是表单控件按钮，可以通过Assign Macro关联一个启动定时器的宏，再结合工作表的MouseUp事件来停止定时器（逻辑类似，只是事件触发方式不同）

内容的提问来源于stack exchange，提问作者sergio trajano