Excel VBA質問箱 IV

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

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


2883 / 13644 ツリー ←次へ | 前へ→

【65441】フォームから条件に合ったデータを特定するには トビイシ 10/5/20(木) 21:14 質問[未読]
【65444】Re:フォームから条件に合ったデータを特定... Jaka 10/5/21(金) 13:57 発言[未読]
【65449】Re:フォームから条件に合ったデータを特定... トビイシ 10/5/21(金) 21:45 質問[未読]
【65452】Re:フォームから条件に合ったデータを特定... ponpon 10/5/22(土) 20:27 発言[未読]

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

引用なし
パスワード
   こんばんは

 以下のシートがあるとします。製品コードを入力して、条件にあった製品コード
を特定したいですが、その実施方法はわからなくて、投稿しました。
ご伝授ください。

製品コード 製品名称    製品規格
A      S01      S001
B      S02      S002
.
.

【65444】Re:フォームから条件に合ったデータを特...
発言  Jaka  - 10/5/21(金) 13:57 -

引用なし
パスワード
   オートフィルタで、条件に合ったデータを抽出するのはだめなんですか?

【65449】Re:フォームから条件に合ったデータを特...
質問  トビイシ  - 10/5/21(金) 21:45 -

引用なし
パスワード
   Jakaさん
>オートフィルタで、条件に合ったデータを抽出するのはだめなんですか?

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

【65452】Re:フォームから条件に合ったデータを特...
発言  ponpon  - 10/5/22(土) 20:27 -

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

ユーザーフォームに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

2883 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free