基于条件自动选中单选按钮（Radio）的VBA实现问题

原代码核心问题 #

• 变量声明不规范：VBA中Dim OBWithdrawal, OBDeposit, OB1st, OB2nd, OB3rd As OptionButton仅最后一个变量为OptionButton类型，其余均默认是Variant，需逐个明确类型。
• 嵌套逻辑完全失效：同一个单元格值不可能同时满足"#NUM"、1、2、3的嵌套判断，内层条件永远无法触发。
• 计数逻辑不合理：未区分取款/存款的独立计数（需求是各限3笔），也没有实现交易后计数递增的逻辑。
• 自动选中逻辑缺失：未根据当前交易类型的已完成次数，自动匹配对应的交易编号单选按钮。

修正后的代码实现 #

建议用两个单元格分别维护计数：G24存取款已完成次数，G25存存款已完成次数，初始值设为0。

取款单选按钮点击事件

Sub OBWithdrawal_Click()
    ' 逐个声明变量类型
    Dim OBWithdrawal As OptionButton, OBDeposit As OptionButton
    Dim OB1st As OptionButton, OB2nd As OptionButton, OB3rd As OptionButton
    Dim withdrawalCount As Integer
    
    ' 绑定控件对象
    Set OBWithdrawal = Sheet1.Shapes("OBWithdrawal").OLEFormat.Object
    Set OBDeposit = Sheet1.Shapes("OBDeposit").OLEFormat.Object
    Set OB1st = Sheet1.Shapes("OB1st").OLEFormat.Object
    Set OB2nd = Sheet1.Shapes("OB2nd").OLEFormat.Object
    Set OB3rd = Sheet1.Shapes("OB3rd").OLEFormat.Object
    
    ' 获取当前取款次数，处理单元格为空或错误值的情况
    withdrawalCount = IIf(IsEmpty(Sheet1.Range("G24").Value) Or IsError(Sheet1.Range("G24").Value), 0, Sheet1.Range("G24").Value)
    
    ' 检查是否已达取款上限
    If withdrawalCount >= 3 Then
        MsgBox "单日取款最多3笔，请选择其他交易类型。"
        OBWithdrawal.Value = False ' 取消选中取款按钮
        OBDeposit.Value = False ' 确保交易类型无选中
        Exit Sub
    End If
    
    ' 自动选中对应交易编号
    Select Case withdrawalCount
        Case 0: OB1st.Value = True
        Case 1: OB2nd.Value = True
        Case 2: OB3rd.Value = True
    End Select
End Sub

存款单选按钮点击事件

Sub OBDeposit_Click()
    Dim OBWithdrawal As OptionButton, OBDeposit As OptionButton
    Dim OB1st As OptionButton, OB2nd As OptionButton, OB3rd As OptionButton
    Dim depositCount As Integer
    
    Set OBWithdrawal = Sheet1.Shapes("OBWithdrawal").OLEFormat.Object
    Set OBDeposit = Sheet1.Shapes("OBDeposit").OLEFormat.Object
    Set OB1st = Sheet1.Shapes("OB1st").OLEFormat.Object
    Set OB2nd = Sheet1.Shapes("OB2nd").OLEFormat.Object
    Set OB3rd = Sheet1.Shapes("OB3rd").OLEFormat.Object
    
    depositCount = IIf(IsEmpty(Sheet1.Range("G25").Value) Or IsError(Sheet1.Range("G25").Value), 0, Sheet1.Range("G25").Value)
    
    If depositCount >= 3 Then
        MsgBox "单日存款最多3笔，请选择其他交易类型。"
        OBDeposit.Value = False
        OBWithdrawal.Value = False
        Exit Sub
    End If
    
    Select Case depositCount
        Case 0: OB1st.Value = True
        Case 1: OB2nd.Value = True
        Case 2: OB3rd.Value = True
    End Select
End Sub

交易完成后更新计数的补充代码

当用户完成一笔交易（比如点击确认按钮），需要更新对应计数：

Sub UpdateTransactionCount()
    Dim withdrawalCount As Integer, depositCount As Integer
    
    withdrawalCount = IIf(IsEmpty(Sheet1.Range("G24").Value) Or IsError(Sheet1.Range("G24").Value), 0, Sheet1.Range("G24").Value)
    depositCount = IIf(IsEmpty(Sheet1.Range("G25").Value) Or IsError(Sheet1.Range("G25").Value), 0, Sheet1.Range("G25").Value)
    
    ' 判断当前选中的交易类型
    If Sheet1.Shapes("OBWithdrawal").OLEFormat.Object.Value = True Then
        Sheet1.Range("G24").Value = withdrawalCount + 1
    ElseIf Sheet1.Shapes("OBDeposit").OLEFormat.Object.Value = True Then
        Sheet1.Range("G25").Value = depositCount + 1
    End If
    
    ' 重置交易编号单选按钮（可选，根据需求调整）
    Sheet1.Shapes("OB1st").OLEFormat.Object.Value = False
    Sheet1.Shapes("OB2nd").OLEFormat.Object.Value = False
    Sheet1.Shapes("OB3rd").OLEFormat.Object.Value = False
End Sub

关键说明 #

• 用独立单元格维护取款/存款计数，避免混淆，严格符合“各限3笔”的需求。
• 用Select Case替代嵌套If，逻辑更清晰，能根据当前计数自动选中对应交易编号。
• 增加了错误值和空值的处理，避免因单元格异常导致逻辑出错。
• 交易完成后更新计数，确保下次选中交易类型时能正确匹配下一个编号。

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