Excel VBA質問箱 IV

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

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


4848 / 13646 ツリー ←次へ | 前へ→

【54087】複数シートの複写 やす 08/2/24(日) 0:18 質問[未読]
【54088】Re:複数シートの複写 かみちゃん 08/2/24(日) 0:27 発言[未読]
【54092】Re:複数シートの複写 やす 08/2/24(日) 9:43 発言[未読]
【54095】Re:複数シートの複写 かみちゃん 08/2/24(日) 10:55 発言[未読]
【54097】Re:複数シートの複写 やす 08/2/24(日) 14:11 お礼[未読]

【54087】複数シートの複写
質問  やす  - 08/2/24(日) 0:18 -

引用なし
パスワード
   シートは3枚以上はあり
一番左から2枚のシート(毎回シート名は異なる)を違うエクセルファイルにcopy
したいのですがやりかたがわかりません

教えて下さい

【54088】Re:複数シートの複写
発言  かみちゃん  - 08/2/24(日) 0:27 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>シートは3枚以上はあり
>一番左から2枚のシート(毎回シート名は異なる)を違うエクセルファイルにcopy
>したい

まがは、「マクロの記録」で記録してみましょう。
それから、必要な修正をします。
修正する部分がわからない場合は、記録したコードを提示しましょう。

【54092】Re:複数シートの複写
発言  やす  - 08/2/24(日) 9:43 -

引用なし
パスワード
   ▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>シートは3枚以上はあり
>>一番左から2枚のシート(毎回シート名は異なる)を違うエクセルファイルにcopy
>>したい
>
>まがは、「マクロの記録」で記録してみましょう。
>それから、必要な修正をします。
>修正する部分がわからない場合は、記録したコードを提示しましょう。

Sheets(Array("Sheet1", "Sheet2")).Select
Sheets("Sheet2").Activate
Sheets(Array("Sheet1", "Sheet2")).Copy

"Sheet1", "Sheet2"は毎回かわります

【54095】Re:複数シートの複写
発言  かみちゃん  - 08/2/24(日) 10:55 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>Sheets(Array("Sheet1", "Sheet2")).Copy
>
>"Sheet1", "Sheet2"は毎回かわります

方法は、他にもあると思いますが、
 Sheets(Array(Sheets(1).Name, Sheets(2).Name)).Copy
という感じでいかがでしょうか?

【54097】Re:複数シートの複写
お礼  やす  - 08/2/24(日) 14:11 -

引用なし
パスワード
   ありがとうございました
助かりました。

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