Excel VBA：IF ComboBox.Value语句

嗨，我有这个combobox，如果combox的值例如说巴黎，我想要做一些命令

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 

任何帮助？ 谢谢

Answer 1

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

此代码：

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

应该在其他程序中。

例如：如果您希望在您select一个项目时更改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值时都会调用（很明显）

注意：此代码已经过testing并适用于我，但还有其他方法可以执行，例如添加命令button并仅在单击此button时检查条件。