|
konです。
こんばんわ、早速のお答えありがとうございました。
早速、試してみます。
▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>入力フォームのTextBox1に品番コードを入力すると
>>Label1に品番が表示されるようにする方法をどなたか教えて下さい。
>
>Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
> Dim strValue As String
>
> strValue = ""
> On Error Resume Next
> strValue = Application.VLookup(Me.TextBox1.Value, Sheets("マスター").Range("A:B"), 2, False)
> On Error GoTo 0
> Me.Label1.Caption = strValue
> DoEvents
>End Sub
>
>または、
>
>Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
> Dim c As Range
>
> With Sheets("マスター").Columns("A").Cells
> Set c = .Find(Me.TextBox1.Value, , xlValues, xlWhole)
> If Not c Is Nothing Then
> Me.Label1.Caption = c.Offset(, 1).Value
> Else
> Me.Label1.Caption = ""
> End If
> End With
> DoEvents
>End Sub
>
>でできると思います。
|
|