首页 > Office专区 > Excel教程 >

excel中使用vba计算指定间隔月后的日期

来源:互联网 2023-02-20 23:46:00 336

excel中使用vba计算指定间隔月后的日期8SK办公区 - 实用经验教程分享!

excel中使用vba计算指定间隔月后的日期8SK办公区 - 实用经验教程分享!

工具/原料

  • excel2013
  • 更多经验请关注,如果帮到了你,请在上方给个投票谢谢支持。 好人一生平安。
  • 先顶后看年薪百万,如果帮到了你,帮忙给个好评,这对小编很重要,万分感谢。

方法/步骤

  • 1

    首先我们打开一个工作样表作为例子。8SK办公区 - 实用经验教程分享!

    excel中使用vba计算指定间隔月后的日期8SK办公区 - 实用经验教程分享!

  • 2

    使用alt f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:8SK办公区 - 实用经验教程分享!

    Option Explicit8SK办公区 - 实用经验教程分享!

    8SK办公区 - 实用经验教程分享!

    Sub ddt()8SK办公区 - 实用经验教程分享!

    8SK办公区 - 实用经验教程分享!

    Dim rq As Date8SK办公区 - 实用经验教程分享!

    Dim lx As String8SK办公区 - 实用经验教程分享!

    Dim n As Integer8SK办公区 - 实用经验教程分享!

    Dim Msg8SK办公区 - 实用经验教程分享!

    lx = "m"8SK办公区 - 实用经验教程分享!

    rq = InputBox("请输入一个日期")8SK办公区 - 实用经验教程分享!

    n = InputBox("输入增加月的数目:")8SK办公区 - 实用经验教程分享!

    Msg = "新日期:" & DateAdd(lx, n, rq)8SK办公区 - 实用经验教程分享!

    MsgBox Msg8SK办公区 - 实用经验教程分享!

    8SK办公区 - 实用经验教程分享!

    End Sub8SK办公区 - 实用经验教程分享!

    excel中使用vba计算指定间隔月后的日期8SK办公区 - 实用经验教程分享!

  • 3

    这里我们先对变量做声明,其中rq变量为日期类型,lx为字符串,n为整数型。msg我并没有设置具体类型,vba会将其默认为可变类型variant。8SK办公区 - 实用经验教程分享!

    excel中使用vba计算指定间隔月后的日期8SK办公区 - 实用经验教程分享!

  • 4

    稍微详细的解释一下代码为什么会这样写,定义变量lx为一个字符串值,因为dateadd函数的必须参数1是一个字符串,这里做个定义其实等价于直接输入。但是这样便于阅读。8SK办公区 - 实用经验教程分享!

    excel中使用vba计算指定间隔月后的日期8SK办公区 - 实用经验教程分享!

  • 5

    输入日期我们并没有做错误纠正,那么只有对excel了解的人,才会输入正确的日期格式,这里我只做一个简单的示例,提示大家输入2016/8/19这样的格式日期。增加的月数我们是赋值给了n这个变量。8SK办公区 - 实用经验教程分享!

    excel中使用vba计算指定间隔月后的日期8SK办公区 - 实用经验教程分享!

  • 6

    最后用msgbox来输出最后的结果,其中,dateadd函数的第一参数是以月增加,第二参数是增加数,第三参数是指定的日期。运行代码我们可以得到结果。增加20个月后的结果。8SK办公区 - 实用经验教程分享!

    excel中使用vba计算指定间隔月后的日期8SK办公区 - 实用经验教程分享!

  • 6此文章非法爬取自百度经验
  • 注意事项

    • 谢谢你的投票。
    • 你的投票是我编辑经验的动力。谢谢你。

    以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!8SK办公区 - 实用经验教程分享!


    标签: excel单元格表格使用指定

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号统计代码