VBA中为三个单选按钮（Card/Cash/EFT）赋值时代码报错求助

嘿，我看到你的问题了——当新增Cash单选按钮后，原来依赖IIf的代码就失效了，毕竟IIf天生是处理二选一逻辑的，三个选项肯定兜不住。咱们来一步步搞定它：

问题根源 #

你原来的代码用IIf(optCard.Value = True, "Card", "EFT")，只能处理两个选项的判断。当选中Cash时，这段代码会默认返回"EFT"，完全不符合你的需求；如果单选按钮没正确分组，甚至可能出现多个按钮同时选中的情况，进一步导致逻辑混乱。

解决方案 #

推荐两种方式，根据你的偏好选择：

1. 嵌套IIf（快速适配，但选项多了可读性差）

直接在原来的IIf里嵌套一层，把Cash的判断加进去：

.Range("G" & iRow).Value = IIf(optCard.Value = True, "Card", IIf(optCash.Value = True, "Cash", "EFT"))

2. 使用Select Case（更清晰，适合多选项场景）

这种方式代码可读性更强，后续再新增选项也更容易维护：

Select Case True
    Case optCard.Value
        .Range("G" & iRow).Value = "Card"
    Case optCash.Value
        .Range("G" & iRow).Value = "Cash"
    Case optEFT.Value
        .Range("G" & iRow).Value = "EFT"
    Case Else
        .Range("G" & iRow).Value = "" ' 可选：处理没有选中任何按钮的情况
End Select

重要注意事项 #

务必确保你的三个单选按钮属于同一个选项组：

• 打开控件属性窗口（右键控件→属性）
• 检查GroupName属性，三个按钮的这个属性值必须完全相同（比如都设为"PaymentMethod"）
  这样才能保证每次只能选中一个按钮，避免逻辑判断出错。

修改后的完整代码 #

Private Sub cmdSave_Click() 
    Application.ScreenUpdating = False 
    Dim iRow As Long 
    iRow = Sheets("Data").Range("A1048576").End(xlUp).Row + 1 
    
    If ValidateForm = True Then 
        With ThisWorkbook.Sheets("Data") 
            .Range("A" & iRow).Value = iRow - 1 
            .Range("D" & iRow).Value = txtValue.Value 
            ' 替换原来的IIf行，用Select Case实现三选项判断
            Select Case True
                Case optCard.Value
                    .Range("G" & iRow).Value = "Card"
                Case optCash.Value
                    .Range("G" & iRow).Value = "Cash"
                Case optEFT.Value
                    .Range("G" & iRow).Value = "EFT"
                Case Else
                    .Range("G" & iRow).Value = ""
            End Select
            .Range("B" & iRow).Value = cmbAccount.Text 
            .Range("E" & iRow).Value = txtWeek.Value 
            .Range("F" & iRow).Value = txtRetailer.Value 
            .Range("H" & iRow).Value = txtDate.Value 
        End With 
        Call Reset 
    Else 
        Application.ScreenUpdating = True 
        Exit Sub 
    End If 
    Application.ScreenUpdating = True 
End Sub

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