Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16744 / 76732

←次へ　｜　前へ→


	【65452】Re:フォームから条件に合ったデータを特定するには

ponpon - 10/5/22(土) 20:27 -


	引用なし

	パスワード

▼トビイシさん：
>　できればフォーム上でキーワードを入力して、条件にあったレコードを
>表示できる方法があれば、ぜひご伝授ください。

ユーザーフォームにTextBoxを３つ（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

4 hits

▼

【65441】フォームから条件に合ったデータを特定するには トビイシ 10/5/20(木) 21:14