如何根据单元格值或变量设置UserForm中对应OptionButton为选中状态？

你尝试的Me.OptionButton & defPri = True写法在VBA里不生效，因为VBA不支持直接通过字符串拼接控件名来引用控件。下面提供两种可行的解决方法：

方法一：通过Controls集合动态引用控件 #

利用UserForm的Controls集合，通过控件名称字符串定位目标OptionButton，代码如下：

' 假设defPri为1-5的整数，对应OptionButton1到OptionButton5
Me.Controls("OptionButton" & defPri).Value = True

这种方式简洁高效，适合控件命名规则统一的场景，能直接根据defPri的值匹配对应的优先级按钮。

方法二：使用Select Case分支赋值 #

如果需要更直观的代码逻辑，也可以用Select Case逐个判断赋值：

Select Case defPri
    Case 1
        Me.OptionButton1.Value = True
    Case 2
        Me.OptionButton2.Value = True
    Case 3
        Me.OptionButton3.Value = True
    Case 4
        Me.OptionButton4.Value = True
    Case 5
        Me.OptionButton5.Value = True
End Select

该方法可读性更强，适合控件数量较少的场景，也能避免因控件名称拼写错误导致的问题。

额外注意事项 #

• 确保defPri的取值范围在1-5之间，避免超出控件命名的数字范围引发错误，可添加范围判断：

If defPri >= 1 And defPri <= 5 Then
    Me.Controls("OptionButton" & defPri).Value = True
Else
    ' 处理无效优先级，例如默认选中中等优先级
    Me.OptionButton3.Value = True
End If

• 核对OptionButton控件的名称，确保确实是OptionButton1到OptionButton5，无拼写或数字错误。

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