엑셀 서식 달력 - 음력,공휴일,일정관리(파일공유/암호없음)

■ 엑셀 달력만들기

엑셀로 만든 달력입니다. A4 가로로 출력할 수 있게 구성되어 있습니다. 년, 월을 조정해서 사용할 수 있어 2024년도 뿐만 아니라 다른 연도도 출력할 수 있습니다. 기념일도 한번 입력해두면 년도가 바뀌더라도 출력됩니다. 음력 변환도 가능하여 음력으로 기념일을 입력하더라도 양력으로 변환하여 해당하는 일자로 출력됩니다.

■ 월달력 주요 기능

(1) 년, 월 설정

[I2] = 년도, [I4] = 월 좌측 버튼을 누르면 이전으로, 우측 버튼을 누르면 다음으로 변경됩니다. 버튼을 누르지 않고 해당 셀에 숫자를 입력하여 직접입력 가능합니다. 12월인 상태에서 월/다음 버튼을 누를 경우 다음 연도 1월로 변경됩니다. 반대로 1월인 경우 월/이전 버튼을 누르면 전년도 12월로 변경됩니다.

(2) 전월, 익월 미니 달력

양쪽 끝에 전월, 익월 달력을 확인할 수 있도록 미니 달력으로 구성했습니다. [미니] 시트에 전월, 익월 달력을 출력 후 카메라 기능으로 이미지로 변환합니다. 년, 월이 변경되면 변경된 월을 기준으로 자동으로 변경됩니다.

(3) 공휴일, 기념일 표시

일자별로 2열, 4행으로 구성됩니다. 1열은 일자만 표기되며 기준월과 다른 경우에는 흐린 회색으로 적용되고 공휴일이거나 일요일이면 빨간색, 토요일은 파란색으로 적용합니다. 조건부 서식을 활용하여 조건별로 글자 색이 변경되도록 적용합니다. 공휴일 및 기념일은 각각 별도의 시트로 기록되어 있고 첫 번째 행은 공휴일 시트에서 정보를 가져오고, 두 번째 행은 이벤트 시트에서 기념일 정보를 가져옵니다.

[E9] =IF(VALUE(MONTH(D9))=$I$4,IFERROR(INDEX(공휴일!$F:$F,MATCH(D9,공휴일!$C:$C,0),1),""),"")

기준일자가 기준월에 해당하지 않는 경우에는 공휴일, 기념일을 가져오지 않습니다. 현재 1월을 기준으로 12월 31일이 달력에는 표시되지만 공휴일, 기념일 정보는 가져오지 않습니다.

(4) 음력 표시

4번째 행에 흐린 회색으로 음력이 출력됩니다. 5일 단위로 출력됩니다. 양력과 음력을 기록한 [리스트] 시트에서 값을 가져오는 방식입니다. [리스트] 시트를 삭제할 경우 음력으로 기록한 공휴일 및 기념일과 월 달력에 음력이 출력되지 않으므로 음력이 필요없더라도 삭제하시면 안됩니다.

(5) 영업일수

월요일부터 금요일까지 공휴일을 제외한 일자를 한 달 기준으로 합산한 값입니다. 대체공휴일도 자동으로 적용됩니다. 임시공휴일은 예상할 수 있는 방법이 없으므로 임시공휴일도 영업일수에서 제외하고 싶은 경우 공휴일 시트에 작성하면 월 달력에 공휴일로 출력됩니다. 달력에는 표시하고 싶으나 영업 일수에는 포함하고 싶을 경우에는 이벤트 시트에 기록합니다.

■ 공휴일, 이벤트(기념일) 관리

공휴일 시트는 신정, 설날, 추석 등 매년 반복되는 공휴일을 미리 작성했으므로 추가로 입력해야 할 내용은 없습니다. 공휴일이 변경되거나 임시공휴일 같은 이슈가 발생할 경우 수정 후 사용 할 수 있습니다.

C열은 월 달력에서 검색하는 값으로 수식이 적용되어 있으니 수식이 삭제되지 않도록 주의합니다.

'#C열에 입력된 사용자 정의 함수
Function fnc_event(a, b) '# a=음력/양력, b=날짜

    Dim WsF As WorksheetFunction
    Dim x_date As Long
    Set WsF = WorksheetFunction

    If a = "양력" Then
        x = DateSerial([기준년도], Month(b), Day(b))
        fnc_event = x
    ElseIf a = "음력" Then
        x = DateValue(DateSerial([기준년도], Month(b), Day(b)))
        x_date = DateValue(x)
        y = WsF.Index([양력], WsF.Match(x_date, [음력], 0), 1)

        If Year(y) > [기준년도] Then
            x = DateSerial([기준년도] - 1, Month(b), Day(b))
            x_date = DateValue(x)
            y = WsF.Index([양력], WsF.Match(x_date, [음력], 0), 1)
        End If

        fnc_event = y

    End If

End Function

D열은 양력, 음력을 구분하여 입력합니다. 음력으로 입력할 경우 C열에서 자동으로 양력으로 변환합니다.

E열에 입력된 값이 기준 연도와 다르더라도 C열에서 기준 연도에 맞춰서 변환하므로 E열은 한번 입력하면 수정할 필요는 없습니다.

F열은 달력에 표시할 내용을 입력합니다.