새시트 만들때마다 기본값 세팅 설정

Sub CreateDailySheet()
 
    '변수 선언
    Dim ws As Worksheet
    Dim today As Date
    Dim sheetName As String
    Dim dateString As String
    Dim koreanDays As Variant
 
    ' 오늘 날짜 설정
    today = Date
 
    ' 시트 이름 생성 (YYYYMMDD)
    sheetName = Format(today, "yyyymmdd")
 
    ' 시트 생성 시도
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(sheetName)
    If Not ws Is Nothing Then
        MsgBox "시트가 이미 존재합니다: " & sheetName, vbExclamation
        Exit Sub
    End If
    On Error GoTo 0
 
    ' 새 시트 생성
    Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = sheetName
 
    ' 한국어 요일 배열
    koreanDays = Array("일", "월", "화", "수", "목", "금", "토")
 
    ' 날짜 문자열 생성
    dateString = Format(today, "mm월 dd일 ") & koreanDays(Weekday(today) - 1) & "요일"
 
    ' A1 셀에 날짜 입력
    ws.Range("A1").Value = dateString
End Sub
 
Sub SetDailyTrigger()
    ' 매일 자정에 CreateDailySheet 매크로를 실행하도록 설정
    Application.OnTime TimeValue("00:00:00"), "CreateDailySheet"
End Sub