Excel VBA質問箱 IV

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

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


26359 / 76732 ←次へ | 前へ→

【55704】Re:Find検索からFindNext が作動できない
発言  kanabun  - 08/5/16(金) 11:29 -

引用なし
パスワード
   ▼yukio さん:
こんにちは。ちょっとシートレイアウトがよくわからないので、
前掲の簡単なサンプルデータで

>> データ > フィルタオプションの設定(AdvancedFilter)

を利用して、別シートに抽出するサンプルコードを書いておきます。
比べてみてください。
・変数を使って 検索条件範囲、抽出先 などをセットしている。
・Select Activate を使わない
ことなどに留意して。

>1 産地    種類    品別    銘柄   産地    銘柄
>2 和歌山   果物    みかん   温州
>3 北海道   果物    もも    大野
>4 岩手    野菜    なすび   盛岡
>5 青森    果物    りんご   浅虫
>6 宮城    野菜    とまと   仙台
>7 山梨    果物    みかん   甲府
>8 福島    果物    りんご   郡山
>9 和歌山   果物    みかん   温州
>10北海道   果物    りんご   函館

> この表から 「種類」が「果物」で 「品別」が「りんご」の行を
> すべて抽出するなら、

Sub Try1()
 Dim Trange As Range   'リスト範囲
 Dim Crange As Range   '検索条件範囲
 Dim Drange As Range   '抽出先
 
 Set Trange = Sheet1.Range("A1").CurrentRegion.Resize(, 4)
 Set Crange = Sheet2.Range("H1").Resize(2, 2)
  '種類が「果物」 品別が「りんご」の行を抽出する例です
  'ここは↓マクロでセットしてますが、 _
   あらかじめ手動で書き込んでおいてもいいです
 Crange.Value = [{"種類","品別";"果物","りんご"}]
 Set Drange = Sheet2.Range("A1")
 
 Trange.AdvancedFilter xlFilterCopy, Crange, Drange

End Sub

0 hits

【55513】Find検索からFindNext が作動できない yukio 08/5/9(金) 10:20 質問
【55517】Re:Find検索からFindNext が作動できない ひげくま 08/5/9(金) 10:50 回答
【55531】Re:Find検索からFindNext が作動できない yukio 08/5/9(金) 19:29 お礼
【55533】Re:Find検索からFindNext が作動できない kanabun 08/5/9(金) 19:46 発言
【55541】Re:Find検索からFindNext が作動できない yukio 08/5/10(土) 14:36 お礼
【55543】Re:Find検索からFindNext が作動できない kanabun 08/5/10(土) 15:31 発言
【55703】Re:Find検索からFindNext が作動できない yukio 08/5/16(金) 11:10 お礼
【55704】Re:Find検索からFindNext が作動できない kanabun 08/5/16(金) 11:29 発言
【55714】Re:Find検索からFindNext が作動できない kanabun 08/5/16(金) 15:41 発言
【55733】Re:Find検索からFindNext が作動できない yukio 08/5/17(土) 13:44 お礼
【55735】Re:Find検索からFindNext が作動できない kanabun 08/5/17(土) 13:50 発言
【55534】Re:Find検索からFindNext が作動できない ひげくま 08/5/9(金) 19:47 発言
【55542】Re:Find検索からFindNext が作動できない yukio 08/5/10(土) 15:00 お礼
【55591】Re:Find検索からFindNext が作動できない ひげくま 08/5/12(月) 14:37 回答
【55699】Re:Find検索からFindNext が作動できない yukio 08/5/16(金) 9:12 お礼
【55705】Re:Find検索からFindNext が作動できない テト 08/5/16(金) 11:43 発言
【55737】Re:Find検索からFindNext が作動できない yukio 08/5/17(土) 14:16 お礼

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