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 に答える