如何用VBA操作Excel OptionButton：勾选激活及设置默认选中

表单控件OptionButton的解决方案 #

你使用的是右键可指定宏的表单控件，要设置默认选中状态，需通过控件的ControlFormat对象修改Value属性：

1. 先确认控件名称：进入【开发工具】→【设计模式】，选中目标OptionButton，查看编辑栏左侧的名称（或右键→【设置控件格式】→【控制】标签里的名称）。
2. 编写初始化代码，比如让它在文件打开时自动执行：

Sub Auto_Open()
    debugmode = False ' 初始化变量
    ' 设置关联OptionButtonDebugOff_Click的控件为选中状态
    ThisWorkbook.Sheets("你的工作表名称").Shapes("控件实际名称").ControlFormat.Value = True
    ' 表单控件同组会自动互斥，以下代码可选
    ' ThisWorkbook.Sheets("你的工作表名称").Shapes("另一个OptionButton名称").ControlFormat.Value = False
End Sub

关键注意事项 #

• 把你的工作表名称替换为控件所在的工作表（比如Sheet1）
• 把控件实际名称替换为对应OptionButtonDebugOff_Click宏的OptionButton真实名称
• 若不需要自动在文件打开时执行，将这段设置代码放到你的启动宏开头即可

若使用ActiveX控件的补充 #

如果是ActiveX类型的OptionButton，设置方式更直接：

Sub Auto_Open()
    debugmode = False
    ThisWorkbook.Sheets("你的工作表名称").OptionButtonDebugOff.Value = True
End Sub

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