Skip to main content

Excel에서 달력을 만드는 방법은 무엇인가요?

Author: Tech Support Last Modified: 2025-05-20

Excel 달력은 누군가가 새 직장을 시작하거나 무언가를 배달해야 하는 시기와 같이 중요한 이벤트를 추적하는 데 도움을 줍니다. 이를 통해 이러한 날짜를 쉽게 확인할 수 있습니다. 이 가이드에서는 Excel에서 월별 및 연간 달력을 만드는 방법을 보여드리겠습니다. 우리는 빠른 설정을 위해 템플릿을 사용하는 방법과 더 많은 제어를 원하는 사람들을 위해 처음부터 만드는 방법도 살펴볼 것입니다. 이렇게 하면 업무든 개인적인 계획이든 조직을 유지할 수 있습니다.

create a calendar

Excel 달력 템플릿을 사용하여 연간 달력 만들기

Kutools for Excel로 월간 또는 연간 달력 신속하게 만들기

VBA 코드로 월간 달력 만들기


Excel 달력 템플릿을 사용하여 연간 달력 만들기

이 방법으로 컴퓨터가 네트워크에 연결되어 있는지 확인해야 합니다. 그래야만 Calendar Templates를 다운로드할 수 있습니다.

1. 파일 탭으로 이동하여 왼쪽 창의 새로 만들기 버튼을 클릭하고, 제안된 검색에서 Calendars를 클릭합니다. 스크린샷 보기:

click New button, and click Calendars

2. 마음에 드는 달력 템플릿 중 하나를 선택하고, 두 번 클릭하여 연간 달력을 생성하세요.

 select one of the calendar templates

결과

the calendar is inserted


Kutools for Excel로 월간 또는 연간 달력 신속하게 만들기

Excel용 Kutools의 Perpetual Calendar 도구는 새 통합 문서에서 맞춤형 월간 달력이나 연간 달력을 빠르게 생성할 수 있으며, 각 월간 달력은 새 워크시트에 포함됩니다.

Kutools for Excel은 300개 이상의 고급 기능을 제공하여 복잡한 작업을 간소화하고 창의성과 효율성을 향상시킵니다. AI 기능과 통합되어 Kutools는 정확하게 작업을 자동화하며, 데이터 관리를 손쉽게 만듭니다. Kutools for Excel의 상세 정보...무료 체험하기...

Kutools for Excel 설치 후, Kutools Plus > Worksheet > Perpetual Calendar을 클릭하세요. 나타나는 Perpetual Calendar 대화 상자에서 다음 단계를 따르세요:

  • 월간 달력을 만들려면 FromTo 드롭다운 목록을 통해 달력을 만들고자 하는 월을 지정한 후, Create를 클릭하세요.

specify the months to create a monthly calendar

  • 연간 달력을 만들려면 From To 드롭다운 목록을 통해 달력을 만들고자 하는 연도를 지정한 후, Create를 클릭하세요.

 specify the year  create a yearly calendar

결과
  • 월간 달력:

 A monthly calendar is inserted

  • 연간 달력:

A yearly calendar is inserted

: 이 기능을 사용하려면 먼저 Kutools for Excel을 설치해야 합니다. 지금 클릭하여 30일 무료 평가판을 다운로드하세요.

VBA 코드로 월간 달력 만들기

다음 VBA 코드를 사용하면 월간 달력을 빠르게 만들 수 있습니다. 다음과 같이 진행하세요:

1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 새 창이 표시됩니다. Insert > Module을 클릭하고 모듈에 다음 코드를 입력하세요:

 Sub CalendarMaker()
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, _
Scenarios:=False
Application.ScreenUpdating = False
On Error GoTo MyErrorTrap
Range("a1:g14").Clear
MyInput = InputBox("Type in Month and year for Calendar ")
If MyInput = "" Then Exit Sub
StartDay = DateValue(MyInput)
If Day(StartDay) <> 1 Then
StartDay = DateValue(Month(StartDay) & "/1/" & _
Year(StartDay))
End If
Range("a1").NumberFormat = "mmmm yyyy"
With Range("a1:g1")
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.Font.Size = 18
.Font.Bold = True
.RowHeight = 35
End With
With Range("a2:g2")
.ColumnWidth = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = xlHorizontal
.Font.Size = 12
.Font.Bold = True
.RowHeight = 20
End With
Range("a2") = "Sunday"
Range("b2") = "Monday"
Range("c2") = "Tuesday"
Range("d2") = "Wednesday"
Range("e2") = "Thursday"
Range("f2") = "Friday"
Range("g2") = "Saturday"
With Range("a3:g8")
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.Font.Size = 18
.Font.Bold = True
.RowHeight = 21
End With
Range("a1").Value = Application.Text(MyInput, "mmmm yyyy")
DayofWeek = Weekday(StartDay)
CurYear = Year(StartDay)
CurMonth = Month(StartDay)
FinalDay = DateSerial(CurYear, CurMonth + 1, 1)
Select Case DayofWeek
Case 1
Range("a3").Value = 1
Case 2
Range("b3").Value = 1
Case 3
Range("c3").Value = 1
Case 4
Range("d3").Value = 1
Case 5
Range("e3").Value = 1
Case 6
Range("f3").Value = 1
Case 7
Range("g3").Value = 1
End Select
For Each cell In Range("a3:g8")
RowCell = cell.Row
ColCell = cell.Column
If cell.Column = 1 And cell.Row = 3 Then
ElseIf cell.Column <> 1 Then
If cell.Offset(0, -1).Value >= 1 Then
cell.Value = cell.Offset(0, -1).Value + 1
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
Exit For
End If
End If
ElseIf cell.Row > 3 And cell.Column = 1 Then
cell.Value = cell.Offset(-1, 6).Value + 1
If cell.Value > (FinalDay - StartDay) Then
cell.Value = ""
Exit For
End If
End If
Next
For x = 0 To 5
Range("A4").Offset(x * 2, 0).EntireRow.Insert
With Range("A4:G4").Offset(x * 2, 0)
.RowHeight = 65
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = True
.Font.Size = 10
.Font.Bold = False
.Locked = False
End With
With Range("A3").Offset(x * 2, 0).Resize(2, _
7).Borders(xlLeft)
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Range("A3").Offset(x * 2, 0).Resize(2, _
7).Borders(xlRight)
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Range("A3").Offset(x * 2, 0).Resize(2, 7).BorderAround _
Weight:=xlThick, ColorIndex:=xlAutomatic
Next
If Range("A13").Value = "" Then Range("A13").Offset(0, 0) _
.Resize(2, 8).EntireRow.Delete
ActiveWindow.DisplayGridlines = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
Exit Sub
MyErrorTrap:
MsgBox "You may not have entered your Month and Year correctly." _
& Chr(13) & "Spell the Month correctly" _
& " (or use 3 letter abbreviation)" _
& Chr(13) & "and 4 digits for the Year"
MyInput = InputBox("Type in Month and year for Calendar")
If MyInput = "" Then Exit Sub
Resume
End Sub 

3. 그런 다음 Run 버튼을 클릭하거나 F5 키를 눌러 애플리케이션을 실행합니다. 이제 프롬프트 박스가 나타나며, 빈칸에 월과 연도를 입력할 수 있습니다.

 input the month and the year in the textbox

결과

 a monthly calendar is inserted