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季度,与正确答案一致。

相关推荐:

Excel怎么筛选介于两个日期之间的数据?

excel柱形图表坐标轴上的空白日期怎么去掉?

excel输入的数据直接显示成日期格式该怎么办?

  • excel如何使用vba函数计算指定间隔月后的日期?
    excel如何使用vba函数计算指定间隔月后的日期?
    2016-08-19
  • 利用excel vba编程在窗体上画盆子
    利用excel vba编程在窗体上画盆子
    2016-08-19
  • excel vba编程制作一个恶作剧小程序
    excel vba编程制作一个恶作剧小程序
    2016-08-17
  • excel怎么借助vba画一个简笔画西红柿?
    excel怎么借助vba画一个简笔画西红柿?
    2016-08-17
  • Excel如何用SORT函数实现排序? 排序函数SORT用法解析
    Excel如何用SORT函数实现排序? 排序函数SORT用法解析
    2023-02-09
  • Excel功能栏怎么固定 Excel固定功能栏的方法
    Excel功能栏怎么固定 Excel固定功能栏的方法
    2023-02-07
  • Excel表格内容怎么多列合并成一列? excel多列合并成一列的技巧
    Excel表格内容怎么多列合并成一列? excel多列合并成一列的技巧
    2023-02-02
  • Excel表格怎么进行智能分页打印? excel表打印分页的技巧
    Excel表格怎么进行智能分页打印? excel表打印分页的技巧
    2023-01-20
  • ChatGPT中文网 - ChatGPT中文版免费网页入口在线使用
    ChatGPT中文网 - ChatGPT中文版免费网页入口在线使用
    2023-02-12
  • 个人养老金是什么意思? 个人养老金缴纳流程图
    个人养老金是什么意思? 个人养老金缴纳流程图
    2022-11-29
  • 在俄罗斯“微软 Win10 盗版”搜索数量激增,还有用户转投开源 Linux 软件
    在俄罗斯“微软 Win10 盗版”搜索数量激增,还有用户转投开源 Linux 软件
    2022-07-02
  • JetBrains 全家桶宣布 10 月 1 日起涨价,IntelliJ IDEA 新价格首年约 1132 元
    JetBrains 全家桶宣布 10 月 1 日起涨价,IntelliJ IDEA 新价格首年约 1132 元
    2022-07-02
  • 电脑版 - 返回首页

    2006-2023 脚本之家 JB51.Net , All Rights Reserved.
    苏ICP备14036222号