Excel VBA質問箱 IV

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

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


10852 / 13646 ツリー ←次へ | 前へ→

【19555】複数のセルを一度に検索 やま 04/11/9(火) 12:18 質問[未読]
【19557】Re:複数のセルを一度に検索 IROC 04/11/9(火) 13:03 回答[未読]
【19558】Re:複数のセルを一度に検索 やま 04/11/9(火) 13:36 質問[未読]
【19560】Re:複数のセルを一度に検索 IROC 04/11/9(火) 14:24 回答[未読]
【19590】Re:複数のセルを一度に検索 やま 04/11/10(水) 0:29 お礼[未読]
【19581】Re:複数のセルを一度に検索 Kein 04/11/9(火) 21:49 回答[未読]
【19591】Re:複数のセルを一度に検索 やま 04/11/10(水) 0:30 お礼[未読]

【19555】複数のセルを一度に検索
質問  やま  - 04/11/9(火) 12:18 -

引用なし
パスワード
   はじめて、ことサイトを利用させて
頂きます
エクセルの初心者です

 A B   C  
 1 埼玉 浦和
 1 埼玉 大宮
 2 埼玉 川口
 3 東京 上野

こういうシートの情報をもとに
ユーザーフォームのリストボックスに
セルAの内容は1かつセルBの内容は埼玉の
データを表示させる方法を教えてください
(この場合だと、セルA=1、セルB=埼玉、セルC=浦和と
 セルA=1、セルB=埼玉、セルC=大宮が対象データになります)

よろしくお願いします

【19557】Re:複数のセルを一度に検索
回答  IROC  - 04/11/9(火) 13:03 -

引用なし
パスワード
   フィルタオプションで、別の場所に抽出しておき、
リストボックスに設定しては如何でしょうか?

【19558】Re:複数のセルを一度に検索
質問  やま  - 04/11/9(火) 13:36 -

引用なし
パスワード
   ▼IROC さん:
>フィルタオプションで、別の場所に抽出しておき、
>リストボックスに設定しては如何でしょうか?

ありがとうございます

まずA列でフィルタをかけて別の場所に抽出して
その抽出したものにB列でまたフィルタをかけて別の場所
に抽出してそれをリストボックスに設定する
という2回のフィルタが必要になるのでしょうか

【19560】Re:複数のセルを一度に検索
回答  IROC  - 04/11/9(火) 14:24 -

引用なし
パスワード
   >2回のフィルタが必要になるのでしょうか
オートフィルタなら2回必要ですね。

フィルタオプションでもできると思いますので、
そのあたりは、お好みの方法で。

【19581】Re:複数のセルを一度に検索
回答  Kein  - 04/11/9(火) 21:49 -

引用なし
パスワード
   フィルターの方が良さそうですが、単純にループで判定するやり方もあります。

For Each C In Range("A1", Range("A65536").End(xlUp))
  If C.Value = 1 And C.Offset(, 1).Value = "埼玉" Then
   ListBox1.AddItem C.Offset(, 2).Value
  End If
Next

【19590】Re:複数のセルを一度に検索
お礼  やま  - 04/11/10(水) 0:29 -

引用なし
パスワード
   ▼IROC さん:
>>2回のフィルタが必要になるのでしょうか
>オートフィルタなら2回必要ですね。
>
>フィルタオプションでもできると思いますので、
>そのあたりは、お好みの方法で。

ありがとうございました

【19591】Re:複数のセルを一度に検索
お礼  やま  - 04/11/10(水) 0:30 -

引用なし
パスワード
   ▼Kein さん:
>フィルターの方が良さそうですが、単純にループで判定するやり方もあります。
>
>For Each C In Range("A1", Range("A65536").End(xlUp))
>  If C.Value = 1 And C.Offset(, 1).Value = "埼玉" Then
>   ListBox1.AddItem C.Offset(, 2).Value
>  End If
>Next

ありがとうございました

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