如何获取选项组中的较高值并验证是否全组均选该值？

核心思路 #

先过滤出表单中的选项组控件，再获取每个选项组的最大可选值，最后逐一验证是否选中了该最大值。

方法一：通用型（适配任意选项值） #

适用于选项值不连续的场景，通过遍历选项组内的所有选项按钮，找到最大的Value属性：

Private Sub HValues()
    Dim opg As Control
    Dim optBtn As Control
    Dim maxValue As Integer
    Dim allHighSelected As Boolean
    allHighSelected = True ' 默认所有组都选中高值

    For Each opg In Me.Controls
        ' 仅处理选项组控件
        If opg.ControlType = acOptionGroup Then
            maxValue = 0
            ' 遍历组内选项按钮，获取最大值
            For Each optBtn In opg.Controls
                If optBtn.ControlType = acOptionButton Then
                    If optBtn.Value > maxValue Then
                        maxValue = optBtn.Value
                    End If
                End If
            Next optBtn
            
            ' 检查当前组是否选中最大值，未选中则标记并终止循环
            If Nz(opg.Value, 0) <> maxValue Then
                allHighSelected = False
                Exit For
            End If
        End If
    Next opg

    ' 所有组都满足条件时执行操作
    If allHighSelected Then
        ' 替换为你需要执行的代码
        MsgBox "所有选项组均已选中较高值！"
    Else
        MsgBox "存在未选中较高值的选项组！"
    End If
End Sub

方法二：简化型（选项值连续递增） #

如果选项组的选项值是从1开始连续的（如1、2、3、4），可以直接用选项按钮的数量作为最大值，效率更高：

Private Sub HValues()
    Dim opg As Control
    Dim allHighSelected As Boolean
    allHighSelected = True

    For Each opg In Me.Controls
        If opg.ControlType = acOptionGroup Then
            ' 选项数量即为最大值（值从1开始连续时适用）
            Dim maxValue As Integer
            maxValue = opg.Controls.Count
            
            If Nz(opg.Value, 0) <> maxValue Then
                allHighSelected = False
                Exit For
            End If
        End If
    Next opg

    If allHighSelected Then
        ' 替换为你需要执行的代码
        MsgBox "所有组均已选中最高值！"
    End If
End Sub

关键细节 #

• Nz(opg.Value, 0)用于处理选项组未选中任何选项的情况（此时opg.Value为Null），避免运行时错误。
• 第一种方法兼容性更强，第二种方法仅适用于选项值连续的场景。

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