使用ComboBox的多个条件的VBA编程

Question

我是VBA编程的新手，并且自己通过excel VBA编程工作，并且有一个涉及多个ComboBox的问题，这些ComboBox用于确定单个单元格的值。

我有2个ComboBoxes。

现在我正在使用接近这种语法的东西

Private Sub ComboBox1_Change()
If Me.ComboBox1.Value = "A" and Me.ComboBox2.Value = "2" Then 
Range("A2").Value = Range ("B6").Value
Else Range("A2").Value = Range("B7")
End If

代码无效。在A2中，我没有得到任何回报。

我假设ComboBox中的条目是任何类型的字符串，并且正确地放入代码中。

我们非常感谢您提供更多疑难解答帮助。

Answer 1

您可能会尝试捕获字符串变量

中的combobox2值

dim str_comboBox2 as string
str_comboBox2 = Me.ComboBox2.value

If Me.ComboBox1.value = "A" and str_comboBox2 ="2" then

因为它可能会将您的条目解释为数字，从而不满足IF语句。

或改为：

If Me.ComboBox1.value = "A" and Me.ComboBox2.value = 2 then