|
▼トビイシ さん:
> できればフォーム上でキーワードを入力して、条件にあったレコードを
>表示できる方法があれば、ぜひご伝授ください。
ユーザーフォームにTextBoxを3つ(TextBox1,TextBox2,TextBox3)
CommandButtonを一つ(CommandButton1)を貼り付けて、
sheet1に
A B C
1 製品コード 製品名称 製品規格
2 A S01 S001
3 B S02 S002
4 c S03 S003
5 d S04 S004
6 e S05 S005
7 f S06 S006
8 g S07 S007
9 h S08 S008
10 i S09 S009
11 j S10 S010
12 k S11 S011
13 l S12 S012
14 m S13 S013
15 n S14 S014
のようなデータがあるとして
TextBox1にキーワード(製品コード)を入力し、CommandButton1をクリックすると、
TextBox2に製品名称
TextBox3に製品規格
が表示されると思います。
Private Sub CommandButton1_Click()
Dim FR As Variant
With Sheets("Sheet1")
FR = Application.Match(Me.TextBox1.Value, Range("A:A"), 0)
If Not IsError(FR) Then
Me.TextBox2.Value = Cells(FR, 2).Value
Me.TextBox3.Value = Cells(FR, 3).Value
Else
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
End If
End With
End Sub
|
|