No.1ベストアンサー
- 回答日時:
こんばんは!
>自分で作成した1月切のサンプルシートを 12か月分作成したいのですが
というコトですが、
コードではSheet名が「一月切」と漢数字になっていますよね?
すべてのSheet名を漢数字に!となると少々手間をかける必要があります。
Sub シートの追加()
Dim i As Integer, myArray
myArray = Array("二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "十二")
For i = 0 To UBound(myArray)
Worksheets("一月切").Copy After:=Worksheets(i + 1)
Worksheets(i + 2).Name = myArray(i) & "月切"
Next
End Sub
こんな感じでしょうかね!
※ 漢数字ではなく「2月切」「3月切」・・・のように普通に数値で良いのであれば
Sub シートの追加2()
Dim i As Integer
For i = 2 To 12
Worksheets("1月切").Copy After:=Worksheets(i - 1)
Worksheets(i).Name = i & "月切"
Next
End Sub
程度で大丈夫だと思います。
※ 注意点 ※
最初のSheet名は必ずコード内にあるように「1月切」とします。
(漢数字ではエラーになります)m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) 以前シートを集めて1シートへ繋げる下記コードをご教授いただき作成しました。 今回すでに集めてある「ま 1 2022/08/29 20:38
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Visual Basic(VBA) VBA*セルに値があればシート名に反映 2 2023/02/21 14:52
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
お肉の下のシートを煮込んでし...
-
2つのシート間での重複データ...
-
チュロス袋の代用
-
エクセルを利用して、日計と累...
-
エクセルのシートをコピーして...
-
excel シート1の奇数(偶数)...
-
エクセル ○印がついている行を...
-
Excelで複数のシートに列のグル...
-
Excelの棒グラフを多い順に並べ...
-
エクセルで2つのシートに同じ名...
-
エクセルで○のついた項目を抽出
-
条件にマッチする行を抽出するV...
-
複数シートのセルの 記号の数...
-
複数シートの列、幅の一括変更方法
-
毎日の日計を別シートに自動で...
-
Excelにて 別シートからのデー...
-
excelに詳しい方お願いします ...
-
違うExcelシートのデータのコピ...
-
指定した条件でTRANSPOSE関数を...
-
エクセルでフラグがたっている...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
お肉の下のシートを煮込んでし...
-
エクセルを利用して、日計と累...
-
エクセルのシートをコピーして...
-
毎日の日計を別シートに自動で...
-
2つのシート間での重複データ...
-
条件にマッチする行を抽出するV...
-
excel シート1の奇数(偶数)...
-
指定した条件でTRANSPOSE関数を...
-
エクセルで○のついた項目を抽出
-
チュロス袋の代用
-
エクセルで1行だけ数式が反映さ...
-
エクセルでフラグがたっている...
-
EXCELで受験票を作成したい(名...
-
エクセルで2つのシートに同じ名...
-
EOMONTH関数の代わり
-
複数シートのセルの 記号の数...
-
エクセル ○印がついている行を...
-
excelマクロで複数シート間のデ...
-
Excelで複数のシートに列のグル...
-
Excel VBA 12ヶ月分のシート作成
おすすめ情報