excel如何使用vba函数计算指定间隔月后的日期
今天为大家分享excel中使用vba计算指定间隔月后的日期方法,不会的朋友可以参考本文,希望能对大家有所帮助!
步骤
1、首先我们打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:
Option Explicit
Sub ddt()
Dim rq As Date
Dim lx As String
Dim n As Integer
Dim Msg
lx = "m"
rq = InputBox("请输入一个日期")
n = InputBox("输入增加月的数目:")
Msg = "新日期:" & DateAdd(lx, n, rq)
MsgBox Msg
End Sub
3、这里我们先对变量做声明,其中rq变量为日期类型,lx为字符串,n为整数型。msg我并没有设置具体类型,vba会将其默认为可变类型variant。
4、稍微详细的解释一下代码为什么会这样写,定义变量lx为一个字符串值,因为dateadd函数的必须参数1是一个字符串,这里做个定义其实等价于直接输入。但是这样便于阅读。
5、输入日期我们并没有做错误纠正,那么只有对excel了解的人,才会输入正确的日期格式,这里我只做一个简单的示例,提示大家输入2016/8/19这样的格式日期。增加的月数我们是赋值给了n这个变量。
6、最后用msgbox来输出最后的结果,其中,dateadd函数的第一参数是以月增加,第二参数是增加数,第三参数是指定的日期。运行代码我们可以得到结果。增加20个月后的结果。
最新科技数码科普
如何拆分合并excel单元格
在使用excel的过程中,有需要合并或者拆分单元格的,就是将多个单元格合并成一个,或者将一个大的单元格拆分成单个的很多个。那么怎么拆分合并excel单元格?本...
展开详情autocad如何在相片上标尺寸
在我们实际工作中,为了更加准确的描述某个实物,常遇到标尺寸的问题。本章就利用AUTOCAD软件在相片上标尺寸方法解决这一问题。方法/步骤1、利用手机拍下你要标...
展开详情雀巢胶囊咖啡机怎样 雀巢胶囊咖啡机优点及使用方法
雀巢胶囊咖啡机操作十分方便,能一键萃取咖啡,相比半自动咖啡机和全自动咖啡机来说更易于操作,雀巢胶囊咖啡机在使用的过程中不需要拆开,所使用的胶囊用完后可直接回收...
展开详情天骏空气净化器怎么样 天骏空气净化器特点介绍
随着科学技术的进步,人们对于生活用水的好坏越来越注重,饮用水的好坏直接影响着人体健康, 净水器能够有效的保障饮用水的健康,天骏 空气净化器 就是其中的优秀代表...
展开详情PS怎么精确移动像素px值
在PS中做设计的时候,经常需要对图层进行不停的移动来调整位置, 已达到需求的效果,那么如何知道移动的精确位置呢?自己总结了几点,希望可以对大家有帮助!1、打开...
展开详情iPod电池有哪些常见问题 常见苹果iPod电池问题解决方法
常见苹果iPod电池问题解决方法,iPod是APPLE推出的一种大容量MP3播放器容量高达10~160GB,可存放2500~10000首MP3歌曲,它还有完善...
展开详情买macbookpro后悔了,Mac太贵而且端口极其不便捷
这么多年来,MacBook Air一直是Mac用户想要购买超轻薄笔记本的首选,不过苹果在刚刚发布的MacBook Pro上,进行了大刀阔斧的设计变革,让Mac...
展开详情微软两周狂发7个预览版:Windows10 RedStone 2重磅升级很可能月底推送
进入三月份之前就曾报道微软的Windows 10 RedStone 2公开推送已经箭在弦上,距离发射只差一步。ps.这是继2015年11月、2016年8月之后...
展开详情