动态创建ToggleButton分组：实现行内单选的VBA技术问题

核心问题分析 #

• 事件循环：设置其他ToggleButton的Value为False时，会触发其Click事件，导致重复执行逻辑，陷入循环。
• 控件定位：需要准确识别当前点击控件所在的行，快速定位该行的所有ToggleButton。

解决步骤 #

1. 优化控件命名（可选但推荐） #

创建ToggleButton时，采用包含明确行/列标识的命名规则，避免行号为多位数时提取错误：

' 创建ToggleButton的循环内调整命名
Set TB = MultiPage1.Pages(mpp - 1).Controls.Add("Forms.ToggleButton.1", "TB_Row" & i & "_Col" & j)
TB.Name = "TB_Row" & i & "_Col" & j
' 其余初始化代码（Caption、位置、初始选中状态）保持不变

2. 类模块添加事件控制逻辑 #

在类模块中引入静态标志变量，避免设置控件值时触发循环事件，同时准确定位当前行的所有ToggleButton：

Option Explicit

Public WithEvents CmdEvents As MSForms.ToggleButton
Private m_isProcessing As Boolean ' 事件处理开关，防止循环

Private Sub CmdEvents_Click()
    Dim rowID As String
    Dim ctl As MSForms.Control
    
    ' 若正在处理事件，直接退出避免循环
    If m_isProcessing Then Exit Sub
    m_isProcessing = True
    
    ' 从控件名称中提取当前行号
    rowID = Split(CmdEvents.Name, "_")(1)
    
    ' 遍历当前页面所有控件，处理同行列的ToggleButton
    For Each ctl In CmdEvents.Parent.Controls
        If TypeName(ctl) = "ToggleButton" Then
            ' 判断是否为当前行的控件，仅保留点击的控件为选中状态
            If Split(ctl.Name, "_")(1) = rowID Then
                ctl.Value = (ctl.Name = CmdEvents.Name)
            End If
        End If
    Next ctl
    
    m_isProcessing = False ' 关闭处理开关
End Sub

3. 兼容原命名规则的行号提取（无需修改命名时） #

如果坚持使用原i&j的命名方式（如行号1对应控件名"11"、"12"），可通过以下逻辑提取行号（兼容多位数行号）：

' 在类模块的Click事件中替换行号提取部分
Dim nameStr As String, rowID As String
nameStr = CmdEvents.Name
rowID = ""
Dim k As Integer
For k = 1 To Len(nameStr)
    If IsNumeric(Mid(nameStr, k, 1)) Then
        rowID = rowID & Mid(nameStr, k, 1)
    Else
        Exit For
    End If
Next k

关键说明 #

• 事件循环解决：m_isProcessing标志变量确保在批量设置控件值时，不会触发其他ToggleButton的Click事件，彻底阻断循环。
• 控件定位优化：通过CmdEvents.Parent获取控件所在的MultiPage页面，避免硬编码容器名称，提升代码通用性。
• 初始状态保留：创建控件时的初始选中逻辑无需修改，类模块逻辑会在用户交互时自动维护行内单选规则。

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