Программирование VBA с несколькими условиями с использованием ComboBoxes

Question

Я новичок в программировании VBA и самостоятельно работаю над программированием Excel VBA и задаю вопрос, связанный с несколькими 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.

Я предполагаю, что записи в ComboBoxes являются строками любого типа и правильно помещаются в код.

Более подробная помощь по поиску и устранению неисправностей будет очень признательна.

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