Excel VBA質問箱 IV

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

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


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

8941 / 76735

←次へ　｜　前へ→


	【73362】Re:AdvancedFilterメソッドについて

ニャンソ - 12/12/25(火) 20:34 -


	引用なし

	パスワード

▼kanabun さん：

こんばんは。

>上のエラーが出たというステートメントは、何をしているところか
>分かりますよね？
>A列が「地区」で、地区の種類(リスト)を「空いている列」G列に
>フィルタオプションの指定で書き出しているところです。
>
>このステートメントは
>
>　　　Ａ　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　Ｅ　　　Ｆ　　　Ｇ
>1　　地区　　従業員NB　従業員名　申請金額　実金額
>2　　Ａ
>3　　Ａ
>4　　Ｂ
>5　　Ｃ
>6　　Ｂ
>7　　Ａ
>
>というような表を想定していますから、
>そういうレイアウトの表であれば、別にエラーは出ないと思います。
>●目的は「地区」の種類を書き出すこと
>そのとき、想定しているのは
>　(1) 元データ範囲は「地区」の列
>　　　タイトル行は 1行目。
>　(2) 抽出先は元表より 1列空けた先の G列
>ということで、
>
>>.Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("G1"),
>
>となっています。
>
>エラーとなるのは、表のレイアウトが変わって
>> Book1-1
>> Ａ・Ｂ・Ｃ・Ｄ・Ｅ・Ｆ・Ｇ・Ｈ～Ｘ・Ｙ・Ｘ
>> 空白・通番・県名・地区・グループ番号・従業員番号・従業員名・過去申請金額・申請金額・実金額
>
>となっているからです。
>なので、
>元データ範囲を
>.Columns("A:A")
>でなく、「地区」の列 → D列ですか？そこのタイトル行から D列のデータ最終セル
>までの範囲に変更し、
>
>また、抽出先を
>> .Range("G1")
>でなく、元表のデータ範囲の外、たとえば AA列に変更すれば、
>　　.Range("AA1")
>そこのエラーは無くなるのではないですか？

ご説明ありがとうざいます。
ＡをＤに変えたところエラーは消えました。

>もっとも
>「地区」のユニークなリストは、もう分かっていて、
>> 1.私が処理する地区のみ（3地区）
>とあらかじめ決まっているのなら、抽出地区名のリスト作りに関しては
>フィルタオプションで抽出するまでもなく、
>AA列ならAA列にその3地区名を書き出しておいて、それらをとなりの
>AB列 [AB2]に地区名を順に書き出し
>
>　　AB列
>1　　地区
>2　　Ａ地区
>
>CriteriaRange:= を [AB1:AB2] として別シートに抽出し印刷する
>
>というような流れになるのじゃありませんか？

3地区ある場合は

　　AB列
1　　地区
2　Ａ地区
3　Ｂ地区
4　Ｃ地区

と書き

CriteriaRange:= を [AB1:AB4]

とすれば良いのでしょうか？

>まず、この元表で別シートに抽出できることを確認し、
>サンプルコードの各行がどういう処理をしているのか確認しておけば、
>
>元表が変わっても、応用できるんじゃないかと思います。

そうですね。
内容を理解できていれば出来ますね…

ご丁寧にありがとうございます。
マクロ等初心者の私でもエラー等の内容が少しわかりました。

0 hits

▼

【73344】AdvancedFilterメソッドについて ニャンソ 12/12/21(金) 23:34