Excel VBA質問箱 IV

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

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


17509 / 76732 ←次へ | 前へ→

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

【64674】Sheetコピーについて(複数) とってぃ 10/3/5(金) 12:29 質問
【64675】Re:Sheetコピーについて(複数) 超初心者 10/3/5(金) 14:27 発言
【64676】Re:Sheetコピーについて(複数) とってぃ 10/3/5(金) 16:00 お礼

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