ActiveX选项按钮组VBA报错：运行时错误'1004'排查求助

核心错误原因 #

• 控件类名拼写错误：代码中classtype:="Forms.OptionButton.l"里的字母l是错误输入，正确类名为Forms.OptionButton.1（数字1）。这是触发1004错误的直接原因——Excel无法识别错误的控件类型。
• 变量未初始化：变量n未设置初始值0，第一次循环时n = n + 1会导致逻辑异常，打乱分组逻辑。
• 位置计算不合理：Top:=cell.Top * 1.02会让控件位置随单元格Top值放大，可能超出单元格范围，改为cell.Top + 1可保证控件在单元格内正常显示。

修复后的完整代码 #

Sub AddOptionCE2()
    Dim j As Integer, n As Integer
    Dim cell As Range
    Dim obj As OLEObject
    
    j = 1
    n = 0 ' 初始化分组计数器
    
    ' 遍历S8到U34（27行，对应27组审核点）
    For Each cell In Range("S8:U34")
        ' 修正控件类名，调整位置参数
        Set obj = OLEObjects.Add( _
            ClassType:="Forms.OptionButton.1", _
            Left:=cell.Left + cell.Width / 3, _
            Top:=cell.Top + 1, _
            Width:=cell.Width / 3, _
            Height:=cell.Height * 0.8)
        
        With obj
            .Object.Caption = "" ' 隐藏按钮文本
            .LinkedCell = cell.Offset(0, 3).Address ' 链接到同一行V列单元格，避免覆盖原单元格
            .Object.GroupName = j ' 设置分组名称，确保同组按钮互斥
            n = n + 1
            If n = 3 Then ' 每3个按钮为一组，切换分组标识
                j = j + 1
                n = 0
            End If
        End With
        
        cell.Font.Color = vbWhite
        cell.Value = False
    Next cell
End Sub

额外优化说明 #

• 范围调整：原范围S8:U35对应28行，若需生成27组按钮，改为S8:U34更匹配需求。
• LinkedCell优化：将按钮链接到同一行的V列（cell.Offset(0,3)），避免按钮所在单元格被链接值覆盖，方便后续维护审核结果。
• 变量声明：显式声明所有变量，避免隐式类型转换导致的潜在问题。

内容的提问来源于stack exchange，提问作者Ami G.