VBA动态创建用户窗体时如何获取OptionButton（单选按钮）的选中值

你遇到的取值失败并非CodeModule.InsertLines破坏了控件属性，核心是两个问题：

1. 原遍历逻辑未限定控件类型，且单选按钮未选中时Value为Null，直接判断=True会触发隐式报错，导致逻辑中断
2. 原任务数量统计逻辑错误，导致窗体高度计算偏差，部分单选按钮可能被挤出可视区域，看起来像取值失败实际是未成功选中

你只需要修改两处代码即可正常取值：

1. 修正任务数量计数逻辑 #

将原计数工作任务的循环替换为如下代码：

'Counts the rows of work tasks to be displayed on the userform
b1 = 0
For a1 = LBound(WorkTasks, 2) To UBound(WorkTasks, 2)
    If WorkTasks(1, a1) = "Yes" Then
        b1 = b1 + 1
    End If
Next a1

2. 修正按钮点击事件的遍历逻辑 #

将原myForm.CodeModule中的插入代码替换为如下内容：

With myForm.CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "Sub cmd_1_Click()"
    .InsertLines X + 2, "    Dim ctl As Object"
    .InsertLines X + 3, "    For Each ctl In Me.Controls"
    .InsertLines X + 4, "        If TypeName(ctl) = ""OptionButton"" Then"
    .InsertLines X + 5, "            If ctl.Value = True Then"
    .InsertLines X + 6, "                ' 拆分Tag获取任务ID和等级，示例弹出提示，你可以替换为写入工作表的逻辑"
    .InsertLines X + 7, "                MsgBox ""任务名称："" & ctl.Parent.Controls(""Label"" & Split(ctl.Tag,""_"")(1)).Caption & ""，经验等级："" & ctl.Caption"
    .InsertLines X + 8, "            End If"
    .InsertLines X + 9, "        End If"
    .InsertLines X + 10, "    Next ctl"
    .InsertLines X + 11, "    Unload Me"
    .InsertLines X + 12, "End Sub"
    ' 补充取消按钮点击事件
    .InsertLines X + 13, "Sub cmd_2_Click()"
    .InsertLines X + 14, "    Unload Me"
    .InsertLines X + 15, "End Sub"
End With

如果要兼容未开启「信任对VBA工程对象模型的访问」的Excel环境，建议提前创建一个空白模板窗体，运行时直接在模板窗体上动态添加控件，无需动态生成新的窗体模块，稳定性更高。

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