Excel VBA質問箱 IV

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

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


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

8940 / 76732

←次へ　｜　前へ→


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

kanabun - 12/12/25(火) 0:05 -


	引用なし

	パスワード

▼ニャンソさん： >本日行ってみましたが、実行エラーが出ました。 > >.Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("G1"), > >指定された範囲を使用してコマンドを完了出来ませんでした。 >範囲内のセルを選択し、コマンドを実行してください。 > >と出ました。 > >私の説明不足です、申し訳ありません。上のエラーが出たというステートメントは、何をしているところか分かりますよね？ 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] として別シートに抽出し印刷するというような流れになるのじゃありませんか？シートのレイアウトが変わったからうまく行かないのではなく、 UO3 さんのサンプルコードは Book1 Sheet1 に　　　Ａ　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　Ｅ　　　Ｆ　　　Ｇ 1　　地区　　従業員NB　従業員名　申請金額　実金額 2　　Ａ 3　　Ａ 4　　Ｂ 5　　Ｃ 6　　Ｂ 7　　Ａのような表のときの　(1)地区名リスト、　(2)順に地区名で元表より抽出AdvancedFilter するサンプルですから、まず、この元表で別シートに抽出できることを確認し、サンプルコードの各行がどういう処理をしているのか確認しておけば、元表が変わっても、応用できるんじゃないかと思います。