Заполнение выпадающих списков с помощью VLOOKUP

У меня есть combobox, который я пытаюсь заполнить с помощью другого combobox. Я пытаюсь сделать это с помощью vlookup.

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

Private Sub ComboBox196_Change()
 Dim arg1 As String, arg3 As Integer
 'Dim MyRange As Range
 'Dim arg4 As Boolean
 'arg1 = ComboBox196.Value
 Set MyRange = Sheets("Setup").Range("SOMETITLES")
 If ComboBox196.Value = "Title" Then
 arg3 = 7
 ElseIf ComboBox196.Value = "Appraisal" Then
 arg3 = 24
 Else
 arg3 = 2
 End If
 Me.ComboBox197 = Application.VLookup(ComboBox196.Value, Worksheets("Setup").Range("SOMETITLES"), arg3, False)

End Sub

Я получаю ошибку несоответствия типа. Итак, опять же, мой вопрос - что мне нужно сделать, чтобы заполнить мои сообщения?

1 ответ

Возможно, Vlookup возвращает ошибку, которая может вызвать ошибку несоответствия типа. Пройдите через свой юзер, перейдя в режим отладки и используйте Debug.Print, чтобы узнать, какие значения имеют некоторые вещи. Обновляйте, когда сможете, когда сможете.

замещать

Me.ComboBox197 = Application.VLookup(ComboBox196.Value, Worksheets("Setup").Range("SOMETITLES"), arg3, False)

С:

Me.ComboBox197.Value = Application.VLookup(ComboBox196.Value, Worksheets("Setup").Range("SOMETITLES"), arg3, False)

licensed under cc by-sa 3.0 with attribution.