MerryG1的博客

原创 Excel阳历转农历VBA函数

使用方法如下： 1、在Excel工作表界面下同时按Alt+F11键，打开VBA窗口，进入VBA编辑环境，在菜单中点击“插入-模块”，在当前窗口编辑区域中输入自定义函数代码，代码见下文。复制粘贴代码后，将窗口关闭。 2、在A1单元格中输入阳历日期，再在另一个单元格输入公式=NongLi(A1)，就可以自动将阳历转换成农历了。Public Function NongLi(Optional xx_date As Date)Dim MonthAdd(11), NongliD...