VBA用户窗体加载设置单选框默认选中触发点击事件的问题

这是VBA用户窗体开发里很常见的小坑，我来给你一个简单可靠的解决方案：

核心思路：用布尔标志区分初始化与手动操作 #

我们可以在窗体模块里声明一个私有布尔变量，用来标记当前是否处于窗体初始化阶段。在初始化设置单选按钮状态时，把标志设为True，此时触发的点击事件会跳过执行业务代码；初始化完成后再把标志设为False，这样用户手动点击单选按钮时就会正常执行事件逻辑。

完整代码示例 #

' 在窗体模块的最顶部（所有过程之外）声明标志变量
Private isInitializing As Boolean

Private Sub UserForm_Initialize()
    ' 开启初始化标志
    isInitializing = True
    
    ' 获取目标单元格的值，避免重复引用工作表和单元格
    Dim targetVal As Variant
    targetVal = Worksheets("static").Range("R" & Activation.getMachineIDIndexNo).Value
    
    ' 用Select Case替代多个If-Else，代码更简洁易读
    Select Case targetVal
        Case 1
            radio1yr.Value = True
        Case 6
            radio6mon.Value = True
        Case 3
            radio3mon.Value = True
    End Select
    
    ' 初始化完成，关闭标志
    isInitializing = False
End Sub

Private Sub radio1yr_Click()
    ' 仅当非初始化状态时执行代码
    If Not isInitializing Then
        '// 这里保留你原来的业务代码
    End If
End Sub

Private Sub radio3mon_Click()
    If Not isInitializing Then
        '// 这里保留你原来的业务代码
    End If
End Sub

Private Sub radio6mon_Click()
    If Not isInitializing Then
        '// 这里保留你原来的业务代码
    End If
End Sub

额外优化小提示 #

我把你原来的多个If-Else改成了Select Case，这样后续如果需要增加更多单选按钮选项，代码会更容易维护。另外，把目标单元格的值先赋值给变量targetVal，避免了多次重复访问工作表，能稍微提升代码运行效率。

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