Событие щелчка элемента управления Combobox

Question

У меня есть бумажные копии 3000 счетов, в которых доступны данные о продукте и имя дилера.Данные о продажах из SAP были экспортированы в Excel для анализа.Но, к сожалению, имя дилера не найдено в экспортированных данных по каждому счету.Поэтому я решил включить имя дилера в каждый счет.Для этого я включил Combobox Control на лист, содержащий данные о продажах, куда я загрузил имена всех дилеров.

Слева от элемента управления «Комбо» в ячейке произнесите «Ячейки» (1,1). Я ввожу номер счета-фактуры и выбираю соответствующего дилера, как указано в печатной копии счета-фактуры, из элемента управления «Комбо», чтобы щелкнутьимя дилера, имя которого печатается против номера счета в следующем столбце.Для этого я написал следующий макрос в событии Combobox1_ Click.

Sub Combobox1_Click()
For i = 5 to 3000
If cells(1,1).value = Cells(i,4).value then
Cells(i,5).value = Combobox1.Text
End if
Next

Это прекрасно работает, пока я выбираю разных дилеров для каждого события клика.Но когда я выбираю одного и того же дилера дважды, событие щелчка не инициируется, и имя дилера не печатается во втором случае.

Чтобы прояснить ситуацию, скажем, для Счета 1233, я выбрал дилера X, и имя X печатается на счете 1233. Следующий счет 1244 также принадлежит дилеру X и после ввода 1244 в ячейки (1,1) если я выберу тот же самый дилер X, имя X не будет напечатано на счете 1244.

Пожалуйста, посоветуйте мне решить проблему

Answer 1

Событие щелчка не вызывается, потому что элемент управления не обнаружил изменения.Вы можете сбросить элемент управления, изменив его отображаемое значение, либо добавив этот код в конце события щелчка:

ComboBox1.Text = "Select Dealer"

, либо измените отображаемый текст в выпадающем списке только при удалении от элемента управления, добавив этособытие:

Private Sub ComboBox1_LostFocus()
  ComboBox1.Text = "Select Dealer"
End Sub