使用组合框进行具有多个条件的VBA编程

Question

我是VBA编程的新手，独自完成excel VBA编程，有一个问题涉及用于确定单个单元格值的多个组合框。

我有两个组合框。

现在我使用的是接近这个语法的

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中没有得到任何回报。

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

如有任何疑难解答帮助，我们将不胜感激。

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