Excel VBA宏无报错直接崩溃问题求助（附完整代码）

我帮你梳理了代码里的几个关键问题，这应该就是导致Excel无预警崩溃的核心原因：

问题根源分析 #

• SetTimer回调函数签名不匹配：Windows API的SetTimer要求回调函数必须遵循固定参数格式，你的Main()没有任何参数，会导致调用时栈结构混乱，直接触发Excel崩溃。正确的TimerProc签名应该包含4个参数：

  Sub TimerProc(ByVal hwnd As LongPtr, ByVal uMsg As Long, ByVal idEvent As LongPtr, ByVal dwTime As Long)
  

• 跨线程访问Excel对象模型：SetTimer的回调是在Windows非主线程执行的，但Excel的工作表、Range等对象只能在主线程操作，跨线程调用会引发不可预测的崩溃。
• 对象释放时机冲突：TerminateTimer里直接释放对象的逻辑，可能和Timer回调的执行产生冲突，加剧崩溃风险。

修复方案：改用Excel自带的Application.OnTime #

SetTimer并不适配Excel VBA的线程模型，推荐用Excel内置的Application.OnTime实现定时任务——它会在Excel主线程执行，完美避免跨线程问题，同时更安全可靠。

具体代码调整 #

1. 重构Timer Module（移除SetTimer相关代码）

Option Explicit

Private Const GAME_TICKS_PER_SECOND As Integer = 20
Private NextTickTime As Date

Public Sub InitialiseTimer()
    Sleep (500)
    ScheduleNextTick
    GameRunning = True
End Sub

Public Sub TerminateTimer()
    On Error Resume Next ' 防止OnTime已取消时报错
    Application.OnTime EarliestTime:=NextTickTime, Procedure:="Main", Schedule:=False
    On Error GoTo 0
    
    GameRunning = False
    Set GameInput = Nothing
    Set Graphics = Nothing
    Set Square = Nothing
End Sub

Private Sub ScheduleNextTick()
    NextTickTime = Now + TimeSerial(0, 0, 1 / GAME_TICKS_PER_SECOND)
    Application.OnTime EarliestTime:=NextTickTime, Procedure:="Main", Schedule:=True
End Sub

2. 修改Main Sub（添加下一次任务调度逻辑）

Public Sub Main()
    If GameInput.TabIsPressed Then
        TerminateTimer
        Exit Sub
    End If
    If Not GameRunning Then Exit Sub
    
    ' 传递Square的坐标给绘图方法
    Graphics.DrawSquare Square.X, Square.Y
    
    ScheduleNextTick ' 调度下一次执行
End Sub

3. 给Square类添加公共属性（让外部能访问坐标）

Class Square
Option Explicit

Private SquareX As Integer
Private SquareY As Integer

Private Sub Class_Initialize()
    SquareX = BORDER_START_X
    SquareY = BORDER_START_Y
End Sub

' 添加坐标访问属性
Public Property Get X() As Integer
    X = SquareX
End Property

Public Property Get Y() As Integer
    Y = SquareY
End Property

额外注意事项 #

• 保留GetAsyncKeyState调用时，要注意它会检测按键的持续状态，如果需要单次触发，需要额外处理按键的边缘检测逻辑。
• TerminateTimer里的On Error Resume Next是为了避免Timer已取消时，Application.OnTime抛出错误。
• 确保shtGame是已正确定义的工作表对象（比如在VBA中通过工作表名称或代码名绑定）。

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