Note: The other languages of the website are Google-translated. Back to English

如何在Excel中創建日曆?

Excel中的日曆是一個有用的對象。 使用Excel中的日曆,您可以在日曆中記錄許多消息。 例如:新員工加入公司的日期,貨物交付的日期等等。 使用日曆,這些消息將看起來直觀而簡單。 如何在Excel中創建月曆或年曆?

通過下載Excel日曆模板創建年度日曆

使用VBA代碼創建每月日曆

使用Kutools for Excel快速創建每月或每年的日曆

Office選項卡在Office中啟用選項卡式編輯和瀏覽,並使您的工作更加輕鬆...
Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%
  • 重用任何東西: 將最常用或最複雜的公式,圖表等添加到您的收藏夾中,並在將來快速重用它們。
  • 超過20種文字功能: 從文本字符串中提取數字; 提取或刪除部分文字; 將數字和貨幣轉換為英文單詞。
  • 合併工具:將多個工作簿和工作表合二為一; 合併多個單元格/行/列,而不會丟失數據; 合併重複的行和總和。
  • 分割工具:根據價值將數據分割成多個工作表; 一本工作簿可轉換為多個Excel,PDF或CSV文件; 一列到多列。
  • 跳過粘貼 隱藏/過濾的行; 計數與求和 按背景色; 向多個收件人批量發送個性化電子郵件。
  • 超級過濾器: 創建高級過濾方案並應用於任何工作表; 分類 按星期,日期,頻率等 篩選 用粗體,公式,註釋...
  • 超過300個強大的功能; 適用於 Office 2007-2021 和 365; 支持所有語言; 在您的企業或組織中輕鬆部署。

箭頭藍色右氣泡通過下載Excel日曆模板創建年度日曆

使用此方法,必須確保計算機連接到網絡,以便可以下載 日曆模板.

造訪 文件點擊此處成為Trail Hunter 全新 在左窗格上,然後單擊 日曆 Office.com模板。 看截圖:

文檔創建日曆1

然後,您可以選擇一個日曆文件夾,然後單擊它,將出現幾種樣式的日曆,選擇所需的一種,然後單擊 下載 右窗格中的按鈕。

下載日曆模板後,您將在新工作簿中獲得日曆。


箭頭藍色右氣泡 使用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”)
.Horizo​​ntalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
字體大小= 18
.Font.Bold =真
.RowHeight = 35
結束
帶範圍(“ a2:g2”)
.ColumnWidth = 11
.VerticalAlignment = xlCenter
.Horizo​​ntalAlignment = xlCenter
.VerticalAlignment = xlCenter
方向= xlHorizo​​ntal
字體大小= 12
.Font.Bold =真
.RowHeight = 20
結束
Range(“ a2”)=“星期日”
Range(“ b2”)=“星期一”
Range(“ c2”)=“星期二”
Range(“ d2”)=“星期三”
Range(“ e2”)=“星期四”
Range(“ f2”)=“星期五”
Range(“ g2”)=“星期六”
帶範圍(“ a3:g8”)
.Horizo​​ntalAlignment = xlRight
.VerticalAlignment = xlTop
字體大小= 18
.Font.Bold =真
.RowHeight = 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)
.RowHeight = 65
.Horizo​​ntalAlignment = 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

然後點擊 文檔-日曆-2 按鈕運行代碼,然後會彈出一個提示框,您可以在空白框中輸入月份和年份。 看截圖:

文檔創建日曆2

然後點擊 OK。 並在當前工作表中創建了一個新的每月日曆。 看截圖:

文檔創建日曆3

VBA代碼對我們大多數人來說都很困難,並且使用此VBA代碼,您只能創建一個月曆,如果您想快速輕鬆地創建一個年曆,還有其他簡單的方法嗎?


箭頭藍色右氣泡 使用Kutools for Excel快速創建每月或每年的日曆

Perpetual Calendar 萬年曆 的工具 Excel 的 kutools 可以在新工作簿中快速創建自定義的月曆或年曆,每個月曆將包含在新工作表中。

Excel的Kutools:具有300多個方便的Excel加載項,可以在30天內免費試用,沒有任何限制。 立即獲取

如果您已安裝Kutools for Excel,請單擊 企業 > 工作表工具 > Perpetual Calendar 萬年曆Perpetual Calendar 萬年曆 將顯示對話框。 如果要創建當前的每月日曆,只需在 月數 框並單擊 創建 按鈕。 看截圖:

文檔創建日曆4

然後在新工作簿中生成了當前的每月日曆。

文檔創建日曆5

如果要創建2012年的年度日曆,請在 月數 框,並指定第一個月 1月,2012 在左窗格中。 看截圖:

文檔創建日曆6

然後點擊 創建 按鈕,它將在新工作簿中創建2012年日曆。

文檔創建日曆7


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (3)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
很棒的工作。 數十億人感謝您對 Excel 日曆模板的出色設計。 :哈哈:
網站主持人對此評論進行了最小化
嗨,我怎樣才能讓它從星期一開始呢? 提前致謝
網站主持人對此評論進行了最小化
謝謝各位幫忙。 希望能夠有一個年度日曆,我可以在其中輸入項目。 如果您能提供幫助,那就太好了。
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護