| |
こんにちは、はじめまして。
>入力フォームのTextBox1に品番コードを入力すると
>Label１に品番が表示されるようにする方法をどなたか教えて下さい。
>上記で使用する品番マスター（Ａ列が品番コード、Ｂ列に品番）は
>同ブック内の「マスター」シートにあります。
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
|
|
Statis
- 05/8/18(木) 10:05 -
