Excel VBA質問箱 IV

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

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


2712 / 13645 ツリー ←次へ | 前へ→

【66431】各シートに転記する時アクティブにしないでする方法って kami 10/9/4(土) 9:25 質問[未読]
【66432】Re:各シートに転記する時アクティブにしな... kanabun 10/9/4(土) 9:48 発言[未読]
【66459】Re:各シートに転記する時アクティブにしな... kami 10/9/5(日) 3:57 お礼[未読]

【66431】各シートに転記する時アクティブにしない...
質問  kami  - 10/9/4(土) 9:25 -

引用なし
パスワード
   お世話になります
データーを各シート(20枚以上)のセルに転記する時、
シートをアクティブにしないですることは出来ますか?
アクティブにすると転記する時、シートを行ったり来たりで
チカチカするのがうっとうしいので、チカチカが無くなる
よい方法があれば教えて頂きたいのです
よろしくお願いします。

【66432】Re:各シートに転記する時アクティブにし...
発言  kanabun  - 10/9/4(土) 9:48 -

引用なし
パスワード
   ▼kami さん:

>データーを各シート(20枚以上)のセルに転記する時、
>シートをアクティブにしないですることは出来ますか?

コピー元範囲、貼りつけ先範囲のまえにシートを指定してあげたら
アクティブにしなくて済みます。

Worksheets("Sheet1").Range("A1:D30").Copy _
 Worksheets("先Sheet").Range("A65536").End(xlUp).Offset(1)

とか

 Worksheets("Sheet1").Range("A1:D30").Copy
 Worksheets("先Sheet").Range("A65536") _
   .End(xlUp).Offset(1).PasteSpecial xlPasteValues

のように。

【66459】Re:各シートに転記する時アクティブにし...
お礼  kami  - 10/9/5(日) 3:57 -

引用なし
パスワード
   ▼kanabun さん:
>▼kami さん:
>
>>データーを各シート(20枚以上)のセルに転記する時、
>>シートをアクティブにしないですることは出来ますか?
>
>コピー元範囲、貼りつけ先範囲のまえにシートを指定してあげたら
>アクティブにしなくて済みます。
>
>Worksheets("Sheet1").Range("A1:D30").Copy _
> Worksheets("先Sheet").Range("A65536").End(xlUp).Offset(1)
>
>とか
>
> Worksheets("Sheet1").Range("A1:D30").Copy
> Worksheets("先Sheet").Range("A65536") _
>   .End(xlUp).Offset(1).PasteSpecial xlPasteValues
>
>のように。
kanabunさん、早速のご回答いただきながら御礼が
遅くなり真に申し訳ございません。
どこを探してもこの様な事は記されておりませんでしたが、
お陰さまで解決出来ました。
本当にありがとうございました。
まずは御礼まで

2712 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free