Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3045 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【64674】Sheetコピーについて(複数) とってぃ 10/3/5(金) 12:29 質問[未読]
【64675】Re:Sheetコピーについて(複数) 超初心者 10/3/5(金) 14:27 発言[未読]
【64676】Re:Sheetコピーについて(複数) とってぃ 10/3/5(金) 16:00 お礼[未読]
【64674】Sheetコピーについて(複数)
質問  とってぃ E-MAIL  - 10/3/5(金) 12:29 -
引用なし
パスワード
   Sheetコピーについて(複数)
教えてください。。
Bookに複数Sheetがあり(例シート名：Sheet1・Sheet2・Sheet3・Sheet4・Sheet5・・)
コマンドボタンでSheet3から右にある全部を新しいBookにコピーするコードが
わかりません・・
シート名が固定なら出来たのですがSheet4以降はシート名が変わる仕様なため・・・！Sheet3の名前は変わらないのでSheet3を含む右側にあるタブ(エクセル)
すべてコピーと行いたいのです。
どうかよろしくお願いいたします。
【64675】Re:Sheetコピーについて(複数)
発言  超初心者  - 10/3/5(金) 14:27 -
引用なし
パスワード
   ▼とってぃ さん：
「Sheet3」を含めてのコピーです。

Sub sample()
　　Dim myLoop As Long
　　Dim mySheetNM() As String
　　
　　mySheetNM = Split("")
　　For myLoop = Worksheets("Sheet3").Index To Worksheets.Count
　　　　ReDim Preserve mySheetNM(UBound(mySheetNM) + 1)
　　　　mySheetNM(UBound(mySheetNM)) = Sheets(myLoop).Name
　　Next myLoop
　　
　　Sheets(mySheetNM).Copy
End Sub

参考までに。
【64676】Re:Sheetコピーについて(複数)
お礼  とってぃ E-MAIL  - 10/3/5(金) 16:00 -
引用なし
パスワード
   超初心者 さん
ありがとうございました。
コードコピーで問題なく動作しました。

▼超初心者 さん：
>▼とってぃ さん：
>「Sheet3」を含めてのコピーです。
>
>Sub sample()
>　　Dim myLoop As Long
>　　Dim mySheetNM() As String
>　　
>　　mySheetNM = Split("")
>　　For myLoop = Worksheets("Sheet3").Index To Worksheets.Count
>　　　　ReDim Preserve mySheetNM(UBound(mySheetNM) + 1)
>　　　　mySheetNM(UBound(mySheetNM)) = Sheets(myLoop).Name
>　　Next myLoop
>　　
>　　Sheets(mySheetNM).Copy
>End Sub
>
>参考までに。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3045 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free