我有一个组合框,我正试图通过另一个组合框填充。我正在尝试使用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
我遇到类型不匹配错误。再说一遍,我的问题是我需要做些什么来填充我的组合框?
答案 0 :(得分: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)