Question

我有一个组合框，我正试图通过另一个组合框填充。我正在尝试使用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

我遇到类型不匹配错误。再说一遍，我的问题是我需要做些什么来填充我的组合框？

Answer 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)

使用VLOOKUP填充组合框

1 个答案: