VBA报错error438：Range内OptionButtons操作异常，求代码排查修正

原代码核心错误 #

• 变量引用错误：你用Range("rng1")试图引用名为"rng1"的单元格区域，而非之前定义的rng1变量，正确写法是直接使用变量名rng1。
• 对象属性误用：单元格（Range对象）没有OptionButton属性，OptionButton是独立控件，需通过工作表的Shapes（表单控件）或OLEObjects（ActiveX控件）集合访问。
• 循环逻辑混乱：遍历H14:J16的每个单元格无意义，需求是按行处理，每行对应三个OptionButton的选中状态。

修正后的代码（表单控件版） #

假设你使用的是Excel表单控件中的OptionButton，以下代码通过控件所在单元格位置匹配对应逻辑：

Sub ServingSize()
    Dim ws As Worksheet
    Dim optBtn As Shape
    Dim targetRow As Integer
    
    ' 指定操作的工作表，建议替换为具体表名如Sheets("Sheet1")
    Set ws = ActiveSheet
    
    ' 遍历所有表单控件，筛选OptionButton
    For Each optBtn In ws.Shapes
        If optBtn.Type = msoFormControl And optBtn.FormControlType = xlOptionButton Then
            targetRow = optBtn.TopLeftCell.Row
            ' 根据控件所在列执行对应逻辑
            Select Case optBtn.TopLeftCell.Column
                ' H列（左侧列）按钮选中时
                Case 8
                    If optBtn.ControlFormat.Value = xlOn Then
                        ws.Cells(targetRow, 12).Value = ws.Cells(targetRow, 11).Value * 0.5
                    End If
                ' I列（中间列）按钮选中时
                Case 9
                    If optBtn.ControlFormat.Value = xlOn Then
                        ws.Cells(targetRow, 12).Value = ws.Cells(targetRow, 11).Value
                    End If
                ' J列（右侧列）按钮选中时
                Case 10
                    If optBtn.ControlFormat.Value = xlOn Then
                        ws.Cells(targetRow, 12).Value = ws.Cells(targetRow, 11).Value * 1.5
                    End If
            End Select
        End If
    Next optBtn
End Sub

修正后的代码（ActiveX控件版） #

如果你的OptionButton是ActiveX控件，使用以下代码：

Sub ServingSize_ActiveX()
    Dim ws As Worksheet
    Dim optBtn As OLEObject
    Dim targetRow As Integer
    
    Set ws = ActiveSheet
    
    For Each optBtn In ws.OLEObjects
        If TypeName(optBtn.Object) = "OptionButton" Then
            targetRow = optBtn.TopLeftCell.Row
            Select Case optBtn.TopLeftCell.Column
                Case 8
                    If optBtn.Object.Value = True Then
                        ws.Cells(targetRow, 12).Value = ws.Cells(targetRow, 11).Value * 0.5
                    End If
                Case 9
                    If optBtn.Object.Value = True Then
                        ws.Cells(targetRow, 12).Value = ws.Cells(targetRow, 11).Value
                    End If
                Case 10
                    If optBtn.Object.Value = True Then
                        ws.Cells(targetRow, 12).Value = ws.Cells(targetRow, 11).Value * 1.5
                    End If
            End Select
        End If
    Next optBtn
End Sub

关键说明 #

• 代码中Cells(targetRow, 12)对应原代码的cell.Offset(0,4)（H列+4列=L列，列号12），Cells(targetRow,11)对应cell.Offset(0,3)，确保逻辑和你的需求一致。
• 建议给OptionButton设置明确名称（如opt_H14），可直接通过名称访问控件，避免遍历所有控件的开销。

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