|
こんにちは。かみちゃん です。
>入力フォームの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
でできると思います。
|
|