0

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

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

4

1 回答 1

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)
于 2013-11-05T20:06:19.857 回答