您的位置: 首页 > 软件教程 > Excel2010教程专题 > excel表格中的日期怎么通过vba计算日期所在季度呢?

excel表格中的日期怎么通过vba计算日期所在季度呢?

6.0分
出处:网络 时间:2017-12-27

您可能感兴趣的话题: excel  

核心提示:excel表格中的日期怎么通过vba计算日期所在季度?excel表格中有很多日期,想知道这些日期都是哪个季度的,该怎么办呢?下面我们就来看看求出日期所在季度的教程,需要的朋友可以参考下。

  1、首先我们打开一个工作样表作为例子。

excel表格中的日期怎么通过vba计算日期所在季度呢?

  2、使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:

  Sub 查询季度()

  Dim jd As Date

  Dim Msg

  jd = InputBox("请输入一个日期:")

  Msg = "季度: " & DatePart("q", jd)

  MsgBox Msg

  End Sub

excel表格中的日期怎么通过vba计算日期所在季度呢?

  3、我们声明jd变量为日期类型,这里声明Msg变量并没有给出具体类型,所以vba会默认为variant类型。

excel表格中的日期怎么通过vba计算日期所在季度呢?

  4、给jd变量赋值,我们使用inputbox函数,并设置一个提示“请输入一个日期:”,然后使用datepart函数来对inputbox返回的日期值,进行季度判断。其参数为q。记住q的输入必须以双引号包括。

excel表格中的日期怎么通过vba计算日期所在季度呢?

  5、因为我们这里求的是指定日期所在的季度,所以不需要对星期天数起止或年度天数起止进行判断,也就是简写了日期的参数。

excel表格中的日期怎么通过vba计算日期所在季度呢?

  6、我们运行一下这个宏,指定日期为2016/8/19,来看看得到的结果。得到3季度,与正确答案一致。

excel表格中的日期怎么通过vba计算日期所在季度呢?

网友评论

Excel2010教程专题

精品软件课程
更多 >
Word是由Microsoft公司出版的文字... [详细]
PPT(PowerPoint)是Office... [详细]
Excel是office的重要组成部分。最新... [详细]
Word是由Microsoft公司出版的文字... [详细]
Word是由Microsoft公司出版的文字... [详细]