マクロ例:一日に一度、SHEETを増やすマクロ |
一日に一度、ファイルを開いたときに当日の日付の名前でSHEETを増やすようなマクロの例を説明しています。 |
一切メッセ−ジは出さないですが,以下のマクロadd_sheet_spがブックが開かれたとき自動実行するようにすることで、目的のことが出来ます。 ------------------------------------------------------------------------- Sub add_sheet_sp() Dim n_sheetname As String Dim wks, nwks As Worksheet Dim found_f As Boolean On Error Resume Next found_f = False n_sheetname = gen_sheetname() For Each wks In ActiveWorkbook.Worksheets If wks.Name = n_sheetname Then found_f = True Exit For End If Set nwks = wks Next If Not found_f Then Worksheets.Add after:=nwks ActiveSheet.Name = n_sheetname End If End Sub Function gen_sheetname() As String Dim n_day n_day = Now() gen_sheetname = Format$(n_day, "ggge年m月d日") End Function |