Excel VBA質問箱 IV

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

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


3034 / 13644 ツリー ←次へ | 前へ→

【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
>
>参考までに。

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