各种极品米+站,请来西数米表来购买:https://www.west.cn/shop/?1299575

excel中使用vba求当前日期所在季度

作者: keoneo    标签:    点击:4    时间:2017-10-12

简介

  1. 1
    excel中使用vba求当前日期所在季度
    excel中使用vba求当前日期所在季度

工具/原料

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

方法/步骤

  1. 1
    首先我们打开一个工作样表作为例子。
    excel中使用vba求当前日期所在季度
  2. 2
    使用alt f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:Sub查询季度()DimjdAsDateDimMsgjd=InputBox("请输入一个日期:")Msg="季度:"&DatePart("q",jd)MsgBoxMsgEndSub
    excel中使用vba求当前日期所在季度
  3. 3
    我们声明jd变量为日期类型,这里声明Msg变量并没有给出具体类型,所以vba会默认为variant类型。
    excel中使用vba求当前日期所在季度
  4. 4
    给jd变量赋值,我们使用inputbox函数,并设置一个提示“请输入一个日期:”,然后使用datepart函数来对inputbox返回的日期值,进行季度判断。其参数为q。记住q的输入必须以双引号包括。
    excel中使用vba求当前日期所在季度
  5. 5
    因为我们这里求的是指定日期所在的季度,所以不需要对星期天数起止或年度天数起止进行判断,也就是简写了日期的参数。
    excel中使用vba求当前日期所在季度
  6. 6
    我们运行一下这个宏,指定日期为2016/8/19,来看看得到的结果。得到3季度,与正确答案一致。
    excel中使用vba求当前日期所在季度

注意事项

  1. 1
    谢谢你的投票。
  2. 2
    你的投票是我编辑经验的动力。谢谢你。

热门文章