Excel에서 캘린더를 만드는 방법은 무엇입니까?
Excel 달력을 사용하면 누군가가 새 일을 시작하는 시기나 물건을 배송해야 하는 시기와 같은 중요한 이벤트를 추적하는 데 도움이 됩니다. 이 날짜를 쉽고 명확하게 볼 수 있습니다. 이 가이드에서는 Excel에서 월간 및 연간 달력을 만드는 방법을 보여 드리겠습니다. 빠른 설정을 위해 템플릿을 사용하는 방법과 더 많은 제어를 원하는 사람들을 위해 처음부터 템플릿을 만드는 방법을 살펴보겠습니다. 이렇게 하면 업무용이든 개인용이든 계획을 체계적으로 유지할 수 있습니다.
Excel 달력 템플릿을 사용하여 연간 달력 만들기
이 방법을 사용하면 컴퓨터가 네트워크에 연결되어 있는지 확인해야합니다. 캘린더 템플릿.
1. 이동 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 탭에서 신제품 왼쪽 창에 있는 버튼을 클릭하고 달력 에 추천 검색어. 스크린 샷보기 :
2. 원하는 달력 템플릿 중 하나를 선택하고 두 번 클릭하여 연간 달력을 만듭니다.
결과
Excel 용 Kutools를 사용하여 월별 또는 연간 캘린더를 빠르게 만듭니다.
퍼페 추얼 캘린더 도구 Excel 용 kutools 새 통합 문서에서 사용자 지정된 월 달력 또는 연도 달력을 빠르게 만들 수 있으며 각 월 달력은 새 워크 시트에 포함됩니다.
Excel 용 Kutools를 설치 한 후 쿠툴즈 플러스 > 워크 시트 > 퍼페 추얼 캘린더. 팝업창에서는 퍼페 추얼 캘린더 대화 상자에서 다음과 같이하십시오.
- 월간 달력을 생성하려면 달력을 통해 달력을 생성하려는 달을 지정하세요. ~ 과에 드롭 다운 목록을 클릭하고 만들기.
- 연간 달력을 생성하려면 달력을 통해 달력을 생성하려는 연도를 지정하세요. ~ 과 에 드롭 다운 목록을 클릭하고 만들기.
결과
- 월간 캘린더:
- 연간 달력:
VBA 코드로 월별 달력 만들기
다음 VBA 코드를 사용하면 월별 달력을 빠르게 만들 수 있습니다. 다음과 같이하십시오 :
1. 프레스 다른 + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니 다.
2. 새 창이 표시됩니다. 딸깍 하는 소리 끼워 넣다 > 모듈그런 다음 모듈에 다음 코드를 입력하십시오.
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. 그런 다음 달리기 버튼을 누르거나 누르십시오. F5 응용 프로그램을 실행하는 키입니다. 이제 프롬프트 상자가 나타나면 빈 상자에 월과 연도를 입력할 수 있습니다.
결과
관련 기사
Excel에서 드롭 다운 목록 달력 (날짜 선택기)을 만드는 방법은 무엇입니까?
Excel 워크 시트의 드롭 다운 달력을 사용하면 수동으로 입력하지 않고도 특정 날짜를 쉽게 선택할 수 있습니다. 이 자습서에서는 ActiveX 컨트롤을 사용하여 Excel 워크 시트에서 달력을 만드는 방법을 보여줍니다.
Excel에서 특정 셀을 클릭 할 때 캘린더를 팝업하는 방법은 무엇입니까?
이번 글에서는 특정 범위의 셀을 클릭하면 달력이 팝업되고, 달력에서 날짜를 선택한 후 선택한 셀에 자동으로 날짜를 삽입하는 방법에 대해 설명합니다.
Excel 시트에서 Outlook 일정으로 약속을 만드는 방법은 무엇입니까?
때로는 Outlook 일정에서 약속을 만들어야 할 수도 있지만 Excel 워크 시트에 약속을 나열한 다음 아래 스크린 샷과 같이 Outlook 일정으로 가져 오려고 한 적이 있습니까?
Excel에서 동적 월별 달력을 만드는 방법은 무엇입니까?
이 기사에서는 Excel에서 동적 월별 달력을 만드는 방법을 자세히 설명합니다.
최고의 사무 생산성 도구
Excel 용 Kutools-군중에서 돋보 이도록 도와줍니다.
🤖 | Kutools AI 보좌관: 다음을 기반으로 데이터 분석을 혁신합니다. 지능형 실행 | 코드 생성 | 사용자 정의 수식 만들기 | 데이터 분석 및 차트 생성 | Kutools 기능 호출... |
인기 기능: 중복 항목 찾기, 강조 표시 또는 식별 | 빈 행 삭제 | 데이터 손실 없이 열이나 셀 결합 | 수식없이 반올림 ... | |
슈퍼 VLookup: 다중 기준 | 다중 값 | 여러 시트에 걸쳐 | 퍼지 조회... | |
고급 드롭 다운 목록: 간편한 드롭다운 목록 | 종속 드롭다운 목록 | 다중 선택 드롭 다운 목록... | |
열 관리자: 특정 개수의 열 추가 | 열 이동 | Toggle 숨겨진 열의 가시성 상태 | 열 비교 동일하고 다른 셀 선택 ... | |
특색 지어진 특징: 그리드 포커스 | 디자인보기 | 큰 수식 바 | 통합 문서 및 시트 관리자 | 리소스 라이브러리 (자동 텍스트) | 날짜 선택기 | 워크 시트 결합 | 셀 암호화/해독 | 목록으로 이메일 보내기 | 슈퍼 필터 | 특수 필터 (굵게/기울임꼴/취소선 필터링...) ... | |
상위 15개 도구 세트: 12 본문 도구 (텍스트 추가, 문자 제거 ~) | 50+ 거래차트 유형 (Gantt 차트 ~) | 40+ 실용 방식 (생일을 기준으로 나이 계산 ~) | 19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입 ~) | 12 매출 상승 도구 (숫자를 단어로, 환율 ~) | 7 병합 및 분할 도구 (고급 결합 행, Excel 셀 분할 ~) | ... 그리고 더 |
Excel용 Kutools는 300개 이상의 기능을 자랑합니다. 필요한 것을 클릭 한 번으로 확인하세요...
Office 탭-Microsoft Office에서 탭 읽기 및 편집 사용 (Excel 포함)
- 수십 개의 열린 문서간에 전환하는 데 XNUMX 초가 걸립니다!
- 매일 수백 번의 마우스 클릭을 줄이고 마우스 손에 작별 인사를하십시오.
- 여러 문서를 보고 편집할 때 생산성이 50% 향상됩니다.
- Chrome, Edge 및 Firefox와 마찬가지로 Office(Excel 포함)에 효율적인 탭을 제공합니다.