Excel VBA の質問です

質問

ユーザーフォームの中のコンボボックスの値をリストから呼び出して選択したとき、テキストボックスの値を同じリストの別の列から表示させたいです

会社の仕事で品番と品名がありますが、必ず品番は一つの固定の品名を持っています。
なので、品番を製品のマスタからひろってきてるのでわざわざ品名を入力するのは面倒です

製品マスタは例えばＡ列の2行目に　ある品番があればその品名がB列の2行目に必ずあります

よろしくお願いします

回答No.2

hallo-2007

Private Sub ComboBox1_Change()
TextBox1.Value = Sheets("Sheet1").Range("B" & ComboBox1.ListIndex + 2).Value
End Sub
と
選択した、ComboBox1.ListIndex の値を利用しては如何でしょうか。
＊私だったら
＞品番を製品のマスタからひろってきてるのでわざわざ品名を入力するのは面倒です
品名を探して、品番を自動で拾ってくるようにします。

回答No.1

keithin

シンプルな方策としては

private sub combobox1_change()
on error resume next
me.textbox1 = application.vlookup(me.combobox1.value, worksheets("Sheet1").range("A:B"),2,false)
end sub

といったところでしょうか。

＃参考
商品名を「入力させない」のでしたら，ラベルコントロールを使った方が間違いはありません。