Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10871 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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　東京　上野

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

よろしくお願いします
【19557】Re:複数のセルを一度に検索
回答  IROC  - 04/11/9(火) 13:03 -
引用なし
パスワード
   フィルタオプションで、別の場所に抽出しておき、
リストボックスに設定しては如何でしょうか？
【19558】Re:複数のセルを一度に検索
質問  やま  - 04/11/9(火) 13:36 -
引用なし
パスワード
   ▼IROC さん：
>フィルタオプションで、別の場所に抽出しておき、
>リストボックスに設定しては如何でしょうか？

ありがとうございます

まずＡ列でフィルタをかけて別の場所に抽出して
その抽出したものにＢ列でまたフィルタをかけて別の場所
に抽出してそれをリストボックスに設定する
という２回のフィルタが必要になるのでしょうか
【19560】Re:複数のセルを一度に検索
回答  IROC  - 04/11/9(火) 14:24 -
引用なし
パスワード
   >２回のフィルタが必要になるのでしょうか
オートフィルタなら２回必要ですね。

フィルタオプションでもできると思いますので、
そのあたりは、お好みの方法で。
【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 さん：
>>２回のフィルタが必要になるのでしょうか
>オートフィルタなら２回必要ですね。
>
>フィルタオプションでもできると思いますので、
>そのあたりは、お好みの方法で。

ありがとうございました
【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

ありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10871 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free