|
こんにちは、はじめまして。
>入力フォームのTextBox1に品番コードを入力すると
>Label1に品番が表示されるようにする方法をどなたか教えて下さい。
>上記で使用する品番マスター(A列が品番コード、B列に品番)は
>同ブック内の「マスター」シートにあります。
TextBoxでなくComboBoxかListBox方が良いような気がします(入力ミスがありません)
マスターシートのA列の品番コードとB列の品番が同じ行ならフォームを
「Show」した時点で変数に取得しておけば「ListIndex プロパティ」を用いて
Labeに表示できます。
こんな感じです(すべてフォームのモジュールにて)
下記のコードはComboBoxを使用した場合です。
Dim Da() As Variant
Private Sub ComboBox1_Change()
With Me
If .ComboBox1.Value = "" Then
.Label1.Caption = ""
Exit Sub
End If
.Label1.Caption = Da(.ComboBox1.ListIndex)
End With
End Sub
Private Sub UserForm_Initialize()
Dim i As Long, End_Row As Long
With Worksheets("マスター")
End_Row = .Range("A65536").End(xlUp).Row
'データは1行目よりとしています
ReDim Da(End_Row - 1)
For i = 1 To End_Row
Me.ComboBox1.AddItem .Cells(i, 1).Value
Da(i - 1) = .Cells(i, 2).Value
Next i
End With
Me.Label1.Caption = ""
End Sub
Private Sub UserForm_Terminate()
Erase Da
End Sub
|
|