如何在Excel中創建日曆？
Excel中的日曆是一個有用的對象。 使用Excel中的日曆，您可以在日曆中記錄許多消息。 例如：新員工加入公司的日期，貨物交付的日期等等。 使用日曆，這些消息將看起來直觀而簡單。 如何在Excel中創建月曆或年曆？
通過下載Excel日曆模板創建年度日曆
使用此方法，必須確保計算機連接到網絡，以便可以下載 日曆模板.
造訪 文件點擊此處成為Trail Hunter 全新 在左窗格上，然後單擊 日曆 Office.com模板。 看截圖：
然後，您可以選擇一個日曆文件夾，然後單擊它，將出現幾種樣式的日曆，選擇所需的一種，然後單擊 下載 右窗格中的按鈕。
下載日曆模板後，您將在新工作簿中獲得日曆。
使用VBA代碼創建每月日曆
使用以下VBA代碼，您可以快速創建每月日曆。 請執行以下操作：
點擊 開發者 > Visual Basic中，一個新的 適用於應用程序的Microsoft Visual Basic 將顯示一個窗口，單擊 插入 > 模塊，然後將以下代碼輸入到 模塊:
VBA：在Excel中創建每月日曆
子CalendarMaker（）
ActiveSheet.Protect DrawingObjects：= False，內容：= False，_
場景：= False
Application.ScreenUpdating = False
出錯時轉到MyErrorTrap
範圍（“ a1：g14”）。清除
MyInput = InputBox（“日曆的月份和年份的類型”）
如果MyInput =“”，則退出Sub
StartDay = DateValue（MyInput）
如果Day（StartDay）<> 1然後
StartDay = DateValue（Month（StartDay）＆“ / 1 /”＆_
年（開始日）
如果結束
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 =工作日（開始日期）
CurYear =年（開始日期）
CurMonth =月（開始日期）
FinalDay = DateSerial（CurYear，CurMonth + 1，1）
選擇案例DayofWeek
案例1
Range（“ a3”）。Value = 1
案例2
Range（“ b3”）。Value = 1
案例3
Range（“ c3”）。Value = 1
案例4
Range（“ d3”）。Value = 1
案例5
Range（“ e3”）。Value = 1
案例6
Range（“ f3”）。Value = 1
案例7
Range（“ g3”）。Value = 1
最終選擇
對於範圍內的每個單元格（“ a3：g8”）
RowCell = 單元格.Row
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 =“”
退出
如果結束
如果結束
ElseIf cell.Row> 3 And cell.Column = 1然後
cell.Value = cell.Offset（-1，6）.Value +1
如果cell.Value>（FinalDay-StartDay）然後
cell.Value =“”
退出
如果結束
如果結束
下一頁
對於x = 0到5
Range（“ A4”）。Offset（x * 2，0）.EntireRow.Insert
帶範圍（“ A4：G4”）。偏移量（x * 2，0）
.行高 = 65
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText =真
字體大小= 10
.Font.Bold = 假
.Locked = 假
結束
帶Range（“ A3”）。Offset（x * 2，0）.Resize（2，_
7）.Borders（xlLeft）
重量= xlThick
.ColorIndex = xlAutomatic
結束
帶Range（“ A3”）。Offset（x * 2，0）.Resize（2，_
7）.Borders（xlRight）
重量= xlThick
.ColorIndex = xlAutomatic
結束
Range（“ A3”）。Offset（x * 2，0）.Resize（2，7）.BorderAround _
重量：= xlThick，ColorIndex：= xl自動
下一頁
如果Range（“ A13”）。Value =“”那麼Range（“ A13”）。Offset（0，0）_
.resize（2，8）.EntireRow.Delete
ActiveWindow.DisplayGridlines =假
ActiveSheet.Protect DrawingObjects：=真，內容：=真，_
方案：= True
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
退出小組
MyErrorTrap：
MsgBox“您可能未正確輸入月份和年份。” _
＆Chr（13）＆“正確拼寫月份” _
＆“（或使用3個字母的縮寫）” _
＆Chr（13）＆“和年份的4位數字”
MyInput = InputBox（“日曆的月份和年份的類型”）
如果MyInput =“”，則退出Sub
簡歷
END SUB
然後點擊 
按鈕運行代碼，然後會彈出一個提示框，您可以在空白框中輸入月份和年份。 看截圖：
然後點擊 OK。 並在當前工作表中創建了一個新的每月日曆。 看截圖：
VBA代碼對我們大多數人來說都很困難，並且使用此VBA代碼，您只能創建一個月曆，如果您想快速輕鬆地創建一個年曆，還有其他簡單的方法嗎？
快速創建月曆或年曆 Kutools for Excel
Perpetual Calendar 萬年曆 的工具 kutools for Excel 可以在新工作簿中快速創建自定義的月曆或年曆，每個月曆將包含在新工作表中。
Kutools for Excel：具有300多個方便的Excel加載項，可以在30天內免費試用，沒有任何限制。 立即獲取
如果你已經安裝 Kutools for Excel請點擊 企業 > 工作表工具 > Perpetual Calendar 萬年曆， Perpetual Calendar 萬年曆 將顯示對話框。 如果要創建當前的每月日曆，只需在 月數 框並單擊 創建 按鈕。 看截圖：
然後在新工作簿中生成了當前的每月日曆。
如果要創建2012年的年度日曆，請在 月數 框，並指定第一個月 1月，2012 在左窗格中。 看截圖：
然後點擊 創建 按鈕，它將在新工作簿中創建2012年日曆。
最佳辦公生產力工具
| 熱門特色: 尋找、突出顯示或識別重複項 | 刪除空白行 | 合併列或儲存格而不遺失數據 | 沒有公式的回合 ... | |
| 超級查詢: 多條件VLookup | 多值VLookup | 跨多個工作表的 VLookup | 模糊查詢 .... | |
| 高級下拉列表: 快速建立下拉列表 | 依賴下拉列表 | 多選下拉列表 .... | |
| 欄目經理: 新增特定數量的列 | 移動列 | 切換隱藏列的可見性狀態 | 比較範圍和列 ... | |
| 特色功能: 網格焦點 | 設計圖 | 大方程式酒吧 | 工作簿和工作表管理器 | 資源庫 （自動文字） | 日期選擇器 | 合併工作表 | 加密/解密單元格 | 按清單發送電子郵件 | 超級濾鏡 | 特殊過濾器 （過濾粗體/斜體/刪除線...）... | |
| 前 15 個工具集: 12 文本 工具 (添加文本, 刪除字符，...） | 50+ 圖表 類型 (甘特圖，...） | 40+ 實用 公式 (根據生日計算年齡，...） | 19 插入 工具 (插入二維碼, 從路徑插入圖片，...） | 12 轉化 工具 (數字到單詞, 貨幣兌換，...） | 7 合併與拆分 工具 (高級合併行, 分裂細胞，...） | ... 和更多 |
增強您的 Excel 技能 Kutools for Excel，體驗前所未有的效率。 Kutools for Excel 提供 300 多種高級功能，可提高工作效率並節省時間。 點擊此處獲取您最需要的功能...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕鬆
- 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
- 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
- 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！
