Excel VBA質問箱 IV

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

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


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

8915 / 76735

←次へ　｜　前へ→


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

ニャンソ - 13/1/2(水) 21:17 -


	引用なし

	パスワード

▼kanabun さん：

明けましておめでとうございます。

結果が遅くなり申し訳ありません。

>そのBookをアクティブにするとはそのBookを（Windowを）最前面にもって
>くるということです。
>つまり、マクロはマクロブックに書いてあり、印刷用の Book2 も開いてい
>るけれど、マクロを実行する直前には送られてきたBook1相当をクリックして
>画面の一番前にもってきてから、マクロを実行すれば Bookの名前を毎回
>マクロコードで書き換えなくてよい、ということです。

ありがとうございます。

>Book1-1
>と
>Book1-2 については、先のニャンソさんの説明のとおりで、送られてきた
>データは Book1のSheets(1) だけという理解でよろしいですね。
>Book1-2 はあくまでこちらでグループ番号を補完したBook1-1 のコピーと
>いう考えでよろしいのですね？

そうです。
Book1-1はグループ番号がないので…

>Book2の印刷レイアウトが少し変わりましたが、考え方の変更を迫るようなもの
>ではないので…

良かったです。

>まず、Sub Try1b() が想定しているような BookとSheetのレイアウトで
>実行検証できる最低限のサンプルデータをつくり、そこで、ステップ実行
>なりしながら、コードの各行がしていることを理解することから始める
>のが、「急がば回れ」かと思います。

分かりました。
少しずつ頑張ります。

結果ですが、
Sub Try1()の

Set shtL = Book3.Worksheets("List")

と

With Book3.Worksheets("Temp") 'Temp Sheetに必要データだけ転記

のところが、インデックスがないと出てしまいます。

名前をコピペしたので間違いがないはずなのですが…

cc.Resize(, 24).AdvancedFilter xlFilterCopy, _
　　　　　CriteriaRange:=c, _
　　　　　CopyToRange:=.Cells(nRow, 2).Resize(, 6) '別シートに抽出

またこちらでは、

「抽出した範囲にはフィールド名がないかまたは、無効なフィールド名です」
と表示されました。

今さらで申し訳ないのですが、「Workbook」・「 Worksheet」・「Sheets」・「Worksheets」の

違いは何ですか？

よろしくお願い致します。

0 hits

▼

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