Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2725 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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さん、早速のご回答いただきながら御礼が
遅くなり真に申し訳ございません。
どこを探してもこの様な事は記されておりませんでしたが、
お陰さまで解決出来ました。
本当にありがとうございました。
まずは御礼まで
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2725 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free