我们在以前的文章介绍了使用excel内置的函数编写公式来判断年份属于闰年还是平年，本文再介绍使用excel的VBA代码来判断闰年的方法。
在excel中，按下ALT+F11键，打开VBE编辑器，插入——模块，复制下面的VBA代码，然后单击“运行”命令运行即可实现VBA判断闰年。
Sub 判断闰年()
Dim Tmp
On Error GoTo skip
Tmp = CDate(InputBox("请输入一个年份", "年份", Year(Now)) & "-2-29")
MsgBox "是闰年!"
Exit Sub
skip:
MsgBox "不是闰年!"
End Sub
核心关注：拓步ERP系统平台是覆盖了众多的业务领域、行业应用，蕴涵了丰富的ERP管理思想，集成了ERP软件业务管理理念，功能涉及供应链、成本、制造、CRM、HR等众多业务领域的管理，全面涵盖了企业关注ERP管理系统的核心领域，是众多中小企业信息化建设首选的ERP管理软件信赖品牌。
转载请注明出处：拓步ERP资讯网http://www.toberp.com/
本文标题：excel VBA判断闰年的代码和方法
相关文章
