|
konです。
こんばんわ、早速のご回答ありがとうございました。
早速、試してみます。
▼Statis さん:
>こんにちは、はじめまして。
>
>>入力フォームの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
|
|