如何在VBA中基于ComboBox的值设置If Then条件逻辑并解决代码失效问题

你的代码逻辑方向是对的，但有几个小细节出错导致无法正常运行，我帮你梳理并修正：

1. 语法错误：Worksheet 需改为复数 Worksheets #

原代码里的 Worksheet("Sheet2") 是错误写法——VBA中引用工作表集合必须用复数形式 Worksheets，单数的Worksheet是单个工作表对象的类型，不能直接这样调用。

2. 代码需要绑定到触发事件 #

单独的代码片段不会自动执行，你需要把逻辑放到Sheet1的COUNTRY组合框的Change事件里，这样每次选择国家时，代码才会响应执行。

修正后的完整代码 #

打开VBA编辑器（按Alt+F11），找到Sheet1的代码窗口，左侧选择COUNTRY控件，右侧选择Change事件，粘贴以下代码：

Private Sub COUNTRY_Change()
    ' 可选：先判断FEES是否为空，避免写入空值
    If Sheet1.FEES.Value = "" Then
        MsgBox "请先输入FEES的值！", vbExclamation
        Exit Sub
    End If
    
    ' 用Select Case替代多个If，代码更简洁
    Select Case Sheet1.COUNTRY.Value
        Case "Spain"
            Worksheets("Sheet2").Cells(2, 1).Value = Sheet1.FEES.Value
        Case "Germany"
            Worksheets("Sheet2").Cells(3, 1).Value = Sheet1.FEES.Value
        Case "Portugal"
            Worksheets("Sheet2").Cells(4, 1).Value = Sheet1.FEES.Value
        Case Else
            MsgBox "请选择有效的国家选项！", vbInformation
    End Select
End Sub

额外注意事项 #

• 确认Sheet1上的控件名称准确：组合框必须叫COUNTRY、文本框必须叫FEES，可以在开发工具的「属性」窗口（按F4打开）里查看和修改控件名称。
• 确保Sheet2存在且名称正确：如果工作表重命名过，要同步修改代码里的Worksheets("Sheet2")为实际名称。
• 如果想通过按钮触发写入，也可以把代码放到按钮的Click事件里，逻辑完全一致。

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