マクロについて

質問

マクロ超初心者です。

以下のモジュールを使用すると、１月分の物しか作成できません。

１．他の月のシートを作りたい場合、何処をどのように変更すればよいのでしょうか？

２．シート名について、１月１日ならば「１．１」と表示されるのですが、
これに「１．１（日）」のように曜日も表示したい場合は、どのようにすればよいのでしょうか？

よろしくお願いいたします。

Sub miko_test()
　Dim BN As String, i As Integer, j As Integer, SN As String
　Application.DisplayAlerts = False 　　　　　'警告を非表示
　Application.ScreenUpdating = False 　　　'画面の動きを固定
　BN = Application.InputBox("作成する年度を入力してください", , Default:="2002", Type:=2)
　For j = 1 To 12
　　'新規ファイルを作成
　　Workbooks.Add
　　'指定月に該当する最終日を設定
　　SN = Day(DateSerial(BN, j + 1, 0))
　　'既存のシートのシート名、A1セルを入力
　　For i = 1 To Sheets.Count
　　　Sheets(i).Name = j & "." & i
　　　With Sheets(i).Range("A1")
　　　　.Value = BN & "/" & j & "/" & i
　　　　.NumberFormatLocal = "yyyy.m.d (aaa)"
　　　End With
　　Next
　　'不足分のシートを挿入してシート名、A1セルを入力
　　For i = Sheets.Count + 1 To SN
　　　Sheets.Add After:=Worksheets(Worksheets.Count)
　　　Sheets(i).Name = j & "." & i
　　　With Range("A1")
　　　　.Value = BN & "/" & j & "/" & i
　　　　.NumberFormatLocal = "yyyy.m.d (aaa)"
　　　End With
　　Next
　　'My Documentsに名前を付けて保存
　　ActiveWorkbook.SaveAs "C:\My Documents\" & BN & "年" & j & "月"
　　ActiveWorkbook.Close
　Next
　Application.ScreenUpdating = True　　　 '画面の固定を解除
　Application.DisplayAlerts = True　　　　　 '警告を表示
End Sub

回答No.1

mo2yakko · ベストアンサー

＞１．他の月のシートを作りたい場合、何処をどのように変更すればよいのでしょうか？
このマクロは一ヶ月毎にファイルを作成しているのですが
これを1年で１ファイルにまとめたいという事でしょうか？

だとするならばファイルを保存している所をループの外に出せばよいと思います。
※最後の部分だけ抽出

'　↓ここを外（NEXTの下）に逃がします。
' 'My Documentsに名前を付けて保存
' ActiveWorkbook.SaveAs "C:\My Documents\" & BN & "年" & j & "月"
' ActiveWorkbook.Close

Next

'My Documentsに名前を付けて保存
ActiveWorkbook.SaveAs "C:\My Documents\" & BN & "年"
ActiveWorkbook.Close
Application.ScreenUpdating = True '画面の固定を解除
Application.DisplayAlerts = True '警告を表示
End Sub

＞２．シート名について、１月１日ならば「１．１」と表示されるのですが、

シート名を設定しているところを直せばいいと思います。
こんな感じでしょうか？
修正前：
Sheets(i).Name = j & "." & i

修正後
Sheets(i).Name = j & "." & i & Format(CDate(BN & "/" & j & "/" & i), "(aaa)")

お礼

ありがとうございます！
素敵です♪
まさにこれがやりたっかのです！！

助かりましたm(__)m