2017-07-27 21 views
1

私は1つのコンボボックスと3つのテキストボックスを持つuserformを持っています。私はコンボボックスでの選択に基づいてtexboxesの値を表示するためにvlookupを使用したいと思います。最初のテキストボックスは機能しますが、それ以降はエラーが発生します。 Plsヘルプ。ここ は私のコードです:vlookupを使用したExcel VBAユーザーフォーム

Private Sub ComboBox1_Change() 
    Description = Application.VLookup(ComboBox1.Value, Range("A1:B17"), 2, 0) 
    TextBox1.Value = Description 
    Platform = Application.VLookup(ComboBox1.Value, Range("A1:B17"), 3, 0) 
    TextBox2.alue = Platform 
End Sub 
+2

この部分を 'Application.VLookup(ComboBox1.Value、レンジ( "A1:B17")、3は、0)あなたは第三を返すようにしたいので、'、エラーを返します(Range( "A1:B17") ') –

+0

また、あなたは入力エラーがあります:' TextBox2.alue = Platform' - 'Value'に 'V'がありませんでした。 –

+0

ここに質問を投稿する前に、基本的なエラーチェックをしてください。あなたの問題には、あなたのコードにタイプミスがあるために発生します。この質問を低品質として閉じる投票。 – teylyn

答えて

1

コメントで述べたように、あなたが3列を参照するとき、あなたはあなたの範囲で、少なくとも3列を持つ必要があります。 Read more about VLookup here

このようにしてみてください。

Private Sub ComboBox1_Change() 

    Description = Application.VLookup(ComboBox1.value, Range("A1:C17"), 2, 0) 
    TextBox1.value = Description 
    Platform = Application.VLookup(ComboBox1.value, Range("A1:C17"), 3, 0) 
    TextBox2.value = Platform 

End Sub 
関連する問題