Excel VBA質問箱 IV

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

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


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

22631 / 76738

←次へ　｜　前へ→


	【59485】Re:オートフィルターの繰り返し

かみちゃん

- 08/12/12(金) 22:40 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

横から失礼します。

>質問1
>コードについて
>Set CopyTo = Worksheets("WAREA")では、エラーが出るので
>Set CopyTo = Worksheets("WAREA").Range("A1")にすると
>抽出した行がWorksheets("WARA")の２行目に貼り付けられます。
>これで間違いないでしょうか？

kanabunさんからコメントがつくとは思いますが、
たしかに
Dim CopyTo As Range
としている以上、
Set CopyTo = Worksheets("WAREA")
は、エラーが出ると思います。
kanabunさん、違っていれば、ご指摘ください。

そのため、
Set CopyTo = Worksheets("WAREA").Range("A1")
とすると、
フィルタオプション（AdvancedFilter）を使っている以上、指定されたセル範囲
の次の行に転記されます。
なお、フィルタオプションを使うときは、見出し行をきちんと指定しておくこと
が重要になります。

>質問2
>CopyTo.Parent.UsedRange.ClearContents
>「Parent」が指定されたオブジェクトの親オブジェクトを返す
>ことだと判断していますが、このコードはどのような
>役割をしているのでしょうか？

MsgBox CopyTo.Parent.Name
で、CopyToのセル範囲があるシートの名前になります。
つまり、
CopyTo.Parent.UsedRange
で、CopyToのセル範囲のシートのUsedRangeになります。

詳しくは、ヘルプで確認してみてください。

0 hits

▼

【59281】オートフィルターの繰り返し フィルター 08/12/4(木) 17:15