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

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

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

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

Sub 查询季度()

Dim jd As Date

Dim Msg

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

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

MsgBox Msg

End Sub

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

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

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

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

赞 (0)

相关推荐

  • 怎么在Excel表格中打印页脚右边的当天日期

    怎么在Excel表格中打印页脚右边的当天日期

    有的朋友想在Excel表格打印页面右下角的当日日期却不懂怎么操作,今天小编就来说说打印页脚右边当天日期的方法.具体如下:1.首先,我们点击打开待打印表格,再点击工具栏的"页面布局" ...

  • Excel表格中的单元格怎么设置计算方式

    Excel表格中的单元格怎么设置计算方式

    Excel表格是我们常用的办公软件之一,有小伙伴问怎么设置单元格下拉菜单可以选择计算方式,下面小编介绍一下.具体如下:1. 打开[Excel],以图中表格为例,用图片中的两个黄色单元格进行汇总计算2. ...

  • Excel表格中怎样根据成绩比重来计算学期成绩

    在大学期间,我们的学期成绩都是按照比重来计算的,下面小编来介绍在Excel表格中怎样根据成绩比重来计算学期成绩 操作方法 01 下面是示例表格,根据成绩比重求学期成绩(如图): 02 这里需要用到su ...

  • excel表格中怎么做简单乘法公式计算?

    使用excel中的公式对数据进行运算,可以大大的提高工作效率.这一篇简单的介绍乘法公式的运用.下面是一张兴隆药店库存药品表,每一种药品都有单价和数量.现在我们想知道每一种药品的总价和所有药品的总价.应 ...

  • 在excel表格中vba使用day函数方法介绍

    今天小编为大家分享excel中vba使用day函数的方法,不会的朋友可以参考本文,来看看吧! 步骤 1.首先我们打开一个工作样表作为例子. 2.使用alt+f11组合快捷键进入vbe编辑器,插入一个新 ...

  • excel表格中日期格式转换为XXXX-XX-XX的样式

    怎么讲Excel表格中的日期样式批量转换为规范化的日期样式，将“XXXXXXXX”日期格式转换为“XXXX-XX-XX”的样式。 方法/步骤 创建一个Excel表格，要求表格中有需要进行规范化显示的日 ...

  • 在excel表格中怎么设置日期格式?

    在excel表格中怎么设置日期格式? 步骤 1.同时按下Ctrl+;键输入当前日期,这时日期显示的格式为yyyy/m/d. 2.右键单击输入的日期,在弹出下拉菜单中选择[设置单元格格式],也可以直接按 ...

  • excel表格中怎么使用vba中的resize命令?

    excel表格中可以使用vba中的Resize函数,Resize用于调整指定区域的大小,返回代表调整后的区域,该怎么使用呢?下面我们就来看看详细的教程. 具体语法是: Range.Resize(Row ...

  • 在excel表格中如何用vba给单元格批量输入序号?

    下面小编为大家介绍excel中使用vba给单元格批量输入序号方法,推荐到我们,喜欢的朋友可以参考本文,一起来看看吧! 步骤 1.首先我们打开一个工作样表作为例子. 2.在excel工作表中输入序列号很 ...