Excel VBA質問箱 IV

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

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


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

13628 / 76732

←次へ　｜　前へ→


	【68607】Re:抽出について

kanabun - 11/3/29(火) 0:05 -


	引用なし

	パスワード

▼ぷうさん：

フィルタオプションのばあいはシートのどこかに
抽出条件を書き込みます。
下の例では [F1:F2]にかいています。

Sub AdvFilterTest()　'一行目に列見出しが書き込んであると仮定
　With Worksheets(1)
　　　'抽出条件を [F1:F2]に書き込む　[F1]はB列タイトル
　　　.Range("F1").Formula = "=B1"
　　　.Range("F2").Value = "国語"

　　　'フィルタオプション実行
　　　.Range("B1", .Range("B1").End(xlDown)).Resize(,2) _
　　　　　.AdvancedFilter xlFilterCopy, _
　　　　　CriteriaRange:=.Range("F1:F2"), _
　　　　　CopyToRange:=Worksheets(2).Range("C2")
　End With
End Sub

2 hits

▼

【68604】抽出について ぷう 11/3/28(月) 23:26