VBA宏运行时变量j每次重置为0的原因排查

问题代码 #

Dim j As Long

Private Sub OK_Button_Click()
Dim x as string
if (Command for checking first time) then
j = 0
end if

'Code for x (not relevant to the question)

Call B(x, j)
j=j+1
End Sub

核心问题原因 #

1. 模块级变量随窗体实例销毁重置
   你在窗体模块里声明的j是模块级变量，但如果窗体每次显示时都是重新创建实例（比如用UserForm.Show），窗体关闭后实例会销毁，变量值也会丢失，下次打开窗体时j会被重新初始化为0。

2. 首次运行判断逻辑错误
   你的if (Command for checking first time)条件大概率每次点击按钮时都为True，导致每次都会执行j=0，直接覆盖了之前的累加值。

解决办法 #

方法一：使用全局变量（推荐）

在标准模块（不是窗体模块）中声明全局变量，这样变量不会随窗体实例销毁而重置：

' 标准模块（比如Module1）中声明
Public j As Long

然后修改窗体按钮代码，把初始化逻辑移到窗体初始化事件中，避免每次点击重置：

Private Sub UserForm_Initialize()
    ' 仅在窗体首次加载时初始化j（全局变量默认初始值为0）
    If j = 0 Then
        j = 0
    End If
End Sub

Private Sub OK_Button_Click()
    Dim x As String
    
    ' 编写x的相关代码
    
    Call B(x, j)
    j = j + 1
End Sub

方法二：使用静态变量

在按钮点击事件中把j声明为静态变量，静态变量会在过程结束后保留值，直到窗体实例销毁：

Private Sub OK_Button_Click()
    Dim x As String
    Static j As Long ' 静态变量，保留上次执行后的数值
    
    ' 编写x的相关代码
    
    Call B(x, j)
    j = j + 1
End Sub

注意：这种方式下，若窗体关闭后重新打开，j还是会重置为0，适合单窗体单次打开期间的累加。

方法三：修正首次判断逻辑

如果坚持用窗体模块级变量，要确保j=0只执行一次，把初始化逻辑移到UserForm_Initialize事件：

Dim j As Long

Private Sub UserForm_Initialize()
    j = 0 ' 仅在窗体初始化时设置一次初始值
End Sub

Private Sub OK_Button_Click()
    Dim x As String
    
    ' 编写x的相关代码
    
    Call B(x, j)
    j = j + 1
End Sub

这种方式同样只在窗体单次打开期间有效，关闭窗体后j值会丢失。

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