Excel VBA：IF ComboBox.Value 语句

您好，我有这个组合框，如果组合框值显示例如巴黎，我想执行一些命令

Private Sub Workbook_open()

With Sheet1.ComboBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
End With

If Me.ComboBox1.Value = "Paris" Then
Range("A1").Value = 5
End If

End Sub

有什么帮助吗？ 谢谢

实际上，您的代码是正确的，但是只有当您的工作簿打开时才会调用您的条件（WorkBook_open()) ...

这段代码：

If Me.ComboBox1.Value = "Paris" Then
     Range("A1").Value = 5
End If

应该在其他程序中。

Ex:如果你想A1当您选择一个项目时要更改，您可以执行以下操作：

Private Sub Workbook_open()

    With Sheet1.ComboBox1
        .AddItem "Paris"
        .AddItem "New York"
        .AddItem "London"
    End With

End Sub

Private Sub ComboBox1_Change()
    If Me.ComboBox1.Value = "Paris" Then
        Range("A1").Value = 5
    End If
End Sub

实际上ComboBox1_Change每次都会被调用ComboBox1值变化（非常明显）

NOTE:这段代码经过测试并且对我有用，但是还有其他方法可以做，比如添加commandButton并仅在单击此按钮时检查条件。