Excel VBA:IF ComboBox.Value 语句 [英] Excel VBA: IF ComboBox.Value statement
问题描述
我有这个组合框,如果组合框的值是巴黎,我想做一些命令
Hi I have this ComboBox and I would like to do some command if the combox value says for example Paris
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()
) ...
Actually, your code is correct, but your condition will be called only when your workbook will be opened (WorkBook_open()
) ...
此代码:
If Me.ComboBox1.Value = "Paris" Then
Range("A1").Value = 5
End If
应该在其他程序中.
例如:如果您希望 A1
在选择项目时更改,您可以执行以下操作:
Ex: If you want A1
to change when you select an item you can do:
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
值改变时都会被调用(很明显)
Actually ComboBox1_Change
is called every time ComboBox1
value changes (pretty obvious)
注意:这段代码已经过测试并且对我有用,但还有其他方法可以做,比如添加一个 commandButton
并仅在单击此按钮时检查条件.
NOTE: This code is tested and works for me, but there are other ways to do, like adding a commandButton
and checking the condition only when this button is clicked.
这篇关于Excel VBA:IF ComboBox.Value 语句的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!