Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4857 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   シートは３枚以上はあり
一番左から２枚のシート（毎回シート名は異なる）を違うエクセルファイルにｃｏｐｙ
したいのですがやりかたがわかりません

教えて下さい
【54088】Re:複数シートの複写
発言  かみちゃん  - 08/2/24(日) 0:27 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>シートは３枚以上はあり
>一番左から２枚のシート（毎回シート名は異なる）を違うエクセルファイルにｃｏｐｙ
>したい

まがは、「マクロの記録」で記録してみましょう。
それから、必要な修正をします。
修正する部分がわからない場合は、記録したコードを提示しましょう。
【54092】Re:複数シートの複写
発言  やす  - 08/2/24(日) 9:43 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
>>シートは３枚以上はあり
>>一番左から２枚のシート（毎回シート名は異なる）を違うエクセルファイルにｃｏｐｙ
>>したい
>
>まがは、「マクロの記録」で記録してみましょう。
>それから、必要な修正をします。
>修正する部分がわからない場合は、記録したコードを提示しましょう。

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 -
引用なし
パスワード
   ありがとうございました
助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4857 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free