如何在Excel中创建日历?

网友投稿 166 2023-12-22

如何在Excel中创建日历?

Excel中的日历是一个有用的对象。 使用Excel中的日历,您可以在日历中记录许多消息。 例如:新员工加入公司的日期,货物交付的日期等等。 使用日历,这些消息将看起来直观而简单。 如何在Excel中创建月历或年历?

通过下载Excel日历模板创建年度日历

使用VBA代码创建每月日历

如何在Excel中创建日历?

快速创建月历或年历 Kutools for Excel

通过下载Excel日历模板创建年度日历
惊人的! 在 Excel 中使用高效的选项卡,如 Chrome、Firefox 和 Safari! 每天节省50%的时间,并减少数千次鼠标单击!

使用此方法,必须确保计算机连接到网络,以便可以下载 日历模板.

在MyCAD中点击 软件更新 文件,单击“ 全新 在左窗格上,然后单击 日历Office.com模板。 看截图:

然后,您可以选择一个日历文件夹,然后单击它,将出现几种样式的日历,选择所需的一种,然后单击 下载 右窗格中的按钮。

下载日历模板后,您将在新工作簿中获得日历。

使用VBA代码创建每月日历

使用以下VBA代码,您可以快速创建每月日历。 请执行以下操作:

点击 开发商 > Visual Basic中,一个新的 适用于应用程序的Microsoft Visual Basic 将显示一个窗口,单击 插页 > 模块,然后将以下代码输入到 模块:

VBA:在Excel中创建每月日历

子CalendarMaker() ActiveSheet.Protect DrawingObjects:= False,内容:= False,_ 场景:= False 应用程序.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 =真 .行高 = 35 结束 带范围(“ a2:g2”) .列宽 = 11 .VerticalAlignment = xlCenter .Horizo​​ntalAlignment = xlCenter .VerticalAlignment = xlCenter 方向= xlHorizo​​ntal 字体大小= 12 .Font.Bold =真 .行高 = 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 =真 .行高 = 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 .Horizo​​ntalAlignment = xlCenter .VerticalAlignment = xlTop .WrapText =真 字体大小= 10 .Font.Bold = 假 .Locked = 假 结束 带Range(“ A3”)。Offset(x * 2,0).Resize(2,_ 7).Borders(xlLeft) 重量= xlThick .ColorIndex = xl自动 结束 带Range(“ A3”)。Offset(x * 2,0).Resize(2,_ 7).Borders(xlRight) 重量= xlThick .ColorIndex = xl自动 结束 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,内容:= True,_ 场景:= True ActiveWindow.WindowState = xlMaximized ActiveWindow.ScrollRow = 1 Application.ScreenUpdating =真 退出小组 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年的年度日历,请在 月数 框,并指定第一个月 2012年XNUMX月 在左窗格中。 看截图:

然后点击 创建 按钮,它将在新工作簿中创建2012年日历。

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗? 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel!

为什么需要 Kutools for Excel

🛠️  超过 300 项强大功能: Kutools 包含 300 多项高级功能,可简化您在 1500 多种场景中的工作。

📈  卓越的数据处理能力:合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力!

⏱️  高效的批量操作:当你可以聪明地工作时,为什么还要付出额外的努力呢? 轻松批量导入、导出、组合和调整数据。

📊  可定制的图表和报告:访问各种附加图表并生成富有洞察力的报告。

🗄️  强大的导航窗格:通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。

📝  七种类型的下拉列表:通过各种功能和类型的下拉列表使数据输入变得轻而易举。

🎓  用户友好:对于初学者来说轻而易举,对于专家来说是一个强大的工具。

立即下载,与 Excel 一起穿越时空!

阅读更多 免费下载... 采购... 
Office Tab 为 Office 带来选项卡式界面,让您的工作更轻松
在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50%,并减少数百次鼠标单击!
阅读更多 免费下载... 采购... 

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:如何在Excel中创建双向条形图?
下一篇:如何通过Excel中的值计数创建图表?
相关文章