Excel에서 캘린더를 만드는 방법은 무엇입니까?

Excel의 달력은 유용한 개체입니다. Excel의 캘린더를 사용하면 캘린더에 많은 메시지를 기록 할 수 있습니다. 예 : 신입 사원이 회사에 입사 한 날짜, 상품 배송 날짜 등. 캘린더를 사용하면 이러한 메시지가 시각적이고 단순 해 보입니다. Excel에서 월별 달력 또는 연간 달력을 만드는 방법은 무엇입니까?

Excel 캘린더 템플릿을 다운로드하여 연간 캘린더 만들기

VBA 코드로 월별 달력 만들기

Excel 용 Kutools를 사용하여 월별 또는 연간 캘린더를 빠르게 만듭니다.

Excel 캘린더 템플릿을 다운로드하여 연간 캘린더 만들기

놀랄 만한! Chrome, Firefox 및 Safari와 같은 Excel에서 효율적인 탭 사용!

시간의 50 %를 절약하고 매일 수천 번의 마우스 클릭을 줄이십시오!

---

이 방법을 사용하면 컴퓨터가 네트워크에 연결되어 있는지 확인해야합니다. 캘린더 템플릿.

We Buy Orders 신청서를 클릭하세요. 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에클릭 신규클래스 왼쪽 창에서 칼렌더 에 Office.com 템플릿. 스크린 샷보기 :

그런 다음 하나의 캘린더 폴더를 선택하고 클릭하면 여러 스타일의 캘린더가 있으며 원하는 것을 선택하고 클릭하십시오. 다운로드 오른쪽 창에서 버튼을 클릭합니다.

캘린더 템플릿을 다운로드하면 새 통합 문서에 캘린더가 제공됩니다.

VBA 코드로 월별 달력 만들기

다음 VBA 코드를 사용하면 월별 달력을 빠르게 만들 수 있습니다. 다음과 같이하십시오 :

개발자 > Visual Basic을새를 애플리케이션 용 Microsoft Visual Basic 창이 표시되면 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈:

VBA : Excel에서 월별 달력 만들기

하위 CalendarMaker ()
ActiveSheet.Protect DrawingObjects : = False, Contents : = False, _
시나리오 : = 거짓
Application.ScreenUpdating = False
오류시 MyErrorTrap으로 이동
Range ( "a1 : g14"). 지우기
MyInput = InputBox ( "달력의 월 및 연도 입력")
MyInput = ""이면 Sub 종료
StartDay = DateValue (MyInput)
If Day (StartDay) <> 1 Then
StartDay = DateValue (월 (시작일) & "/ 1 /"& _
년 (시작일))
END IF
Range ( "a1"). NumberFormat = "mmmm yyyy"
범위 포함 ( "a1 : g1")
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.글꼴.크기 = 18
.Font.Bold = 참
.행 높이 = 35
끝
범위 포함 ( "a2 : g2")
.열 너비 = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.방향 = xlHorizontal
.글꼴.크기 = 12
.Font.Bold = 참
.행 높이 = 20
끝
Range ( "a2") = "일요일"
Range ( "b2") = "월요일"
Range ( "c2") = "화요일"
Range ( "d2") = "수요일"
Range ( "e2") = "목요일"
Range ( "f2") = "금요일"
Range ( "g2") = "토요일"
범위 포함 ( "a3 : g8")
.HorizontalAlignment = xlRight
.VerticalAlignment = xlTop
.글꼴.크기 = 18
.Font.Bold = 참
.행 높이 = 21
끝
Range ( "a1"). Value = Application.Text (MyInput, "mmmm yyyy")
DayofWeek = Weekday (StartDay)
CurYear = Year (StartDay)
CurMonth = 월 (시작일)
FinalDay = DateSerial (CurYear, CurMonth + 1, 1)
DayofWeek 케이스 선택
사례
Range ( "a3"). 값 = 1
사례
Range ( "b3"). 값 = 1
사례
Range ( "c3"). 값 = 1
사례
Range ( "d3"). 값 = 1
사례
Range ( "e3"). 값 = 1
사례
Range ( "f3"). 값 = 1
사례
Range ( "g3"). 값 = 1
선택 종료
범위 내의 각 셀 ( "a3 : g8")
RowCell = 셀.행
ColCell = 셀.열
cell.Column = 1이고 cell.Row = 3이면
ElseIf cell.Column <> 1 다음
cell.Offset (0, -1) .Value> = 1이면
cell.Value = cell.Offset (0, -1) .Value + 1
cell.Value> (FinalDay-StartDay) 다음
cell.Value = ""
종료
END IF
END IF
ElseIf cell.Row> 3 And cell.Column = 1 Then
cell.Value = cell.Offset (-1, 6) .Value + 1
cell.Value> (FinalDay-StartDay) 다음
cell.Value = ""
종료
END IF
END IF
다음
X = 0 ~ 5
범위 ( "A4"). Offset (x * 2, 0) .EntireRow.Insert
범위 포함 ( "A4 : G4"). Offset (x * 2, 0)
.행 높이 = 65
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = 참
.글꼴.크기 = 10
.Font.Bold = 거짓
.잠김 = 거짓
끝
Range ( "A3"). Offset (x * 2, 0) .Resize (2, _
7). 테두리 (xlLeft)
.무게 = xl두께
.ColorIndex = xl자동
끝
Range ( "A3"). Offset (x * 2, 0) .Resize (2, _
7). 테두리 (xlRight)
.무게 = xl두께
.ColorIndex = xl자동
끝
Range ( "A3"). Offset (x * 2, 0) .Resize (2, 7) .BorderAround _
무게 : = xlThick, ColorIndex : = xlAutomatic
다음
If Range ( "A13"). Value = ""Then Range ( "A13"). Offset (0, 0) _
.Resize (2, 8) .EntireRow.Delete
ActiveWindow.DisplayGridlines = 거짓
ActiveSheet.Protect DrawingObjects : = True, Contents : = True, _
시나리오 : = 참
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
서브 종료
MyErrorTrap :
MsgBox "월과 연도를 올바르게 입력하지 않았을 수 있습니다." _
& Chr (13) & "올바른 달 철자"_
& "(또는 3 자 약어 사용)"_
& Chr (13) & "연도의 4 자리 숫자"
MyInput = InputBox ( "달력의 월 및 연도 입력")
MyInput = ""이면 Sub 종료
이력서
최종 하위

그런 다음  버튼을 눌러 코드를 실행하면 프롬프트 상자가 나타나면 빈 상자에 월과 년을 입력 할 수 있습니다. 스크린 샷보기 :

그런 다음 OK. 그리고 현재 워크 시트에 새로운 월별 달력이 생성되었습니다. 스크린 샷보기 :

VBA 코드는 우리 대부분에게 어렵습니다.이 VBA 코드를 사용하면 월별 달력 만 만들 수 있습니다. 연간 달력을 빠르고 쉽게 만들려면 다른 간단한 방법이 있습니까?

Excel 용 Kutools를 사용하여 월별 또는 연간 캘린더를 빠르게 만듭니다.

퍼페 추얼 캘린더 도구 Excel 용 kutools 새 통합 문서에서 사용자 지정된 월 달력 또는 연도 달력을 빠르게 만들 수 있으며 각 월 달력은 새 워크 시트에 포함됩니다.

Excel 용 Kutools: 300 개 이상의 편리한 Excel 추가 기능으로 30 일 동안 제한없이 무료로 사용해 볼 수 있습니다. 그것을 지금

Excel 용 Kutools를 설치 한 경우 Enterprise > 워크 시트 도구 > 퍼페 추얼 캘린더및 퍼페 추얼 캘린더 대화 상자가 표시됩니다. 현재 월별 달력을 만들려면 개월 수 상자를 클릭하고 만들기 단추. 스크린 샷보기 :

그런 다음 현재 월별 달력이 새 통합 문서에 생성되었습니다.

2012 년 달력을 만들려면 숫자 12를 입력하십시오. 개월 수 상자에 첫 달을 지정하고 January, 2012 왼쪽 창에서. 스크린 샷보기 :

그런 다음 만들기 버튼을 클릭하면 새 통합 문서에 2012 년 달력이 생성됩니다.

---

최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

• 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
• 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
• 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
• 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
• 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
• 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
• 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
• 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
• 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.

자세히보기 ... 무료 다운로드... 매수... 

---

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

• Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
• 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
• 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!

자세히보기 ... 무료 다운로드... 매수...