在VBA中,【CDate】的实例应用!

 时间:2024-10-19 11:43:39

本篇经验将和大家分享【在VBA中,【CDate】的实例应用!】

工具/原料

电脑壹台

OFFICE办公软件

方法/步骤

1、如图所示,通过编辑运行VBA代码,计算出”时间段“!

在VBA中,【CDate】的实例应用!

2、在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visualbasic】!

在VBA中,【CDate】的实例应用!

3、会进入VBA编辑界面!点击菜单栏【插入】,在其下拉菜单中,选择【模块】!

在VBA中,【CDate】的实例应用!

4、会弹出模块编辑窗口!

在VBA中,【CDate】的实例应用!

5、在代码编辑窗口输入以下代码:Subtest2()Setregx=Creat娣定撰钠eObject("稆糨孝汶;vbscript.regexp")Setrngs=Columns("a").Find("*",,,,,xlPrevious)Withregx.Global=True.Pattern="\d+:\d+"ForEachRngInRange("a2",rngs)Setmat=.Execute(Rng)'Rng.Offset(0,1)=mat(0)'Rng.Offset(0,2)=mat(1)Rng.Offset(0,3)=(CDate(mat(1))-CDate(mat(0)))*24Rng.Offset(0,3).NumberFormat="0.00"NextEndWithEndSub

在VBA中,【CDate】的实例应用!

6、”(CDate(mat(1)拘七呷憎)-CDate(mat(0)))*24“是将时间换算为天,乘24是把天换算为小时数!

在VBA中,【CDate】的实例应用!

7、在VBA窗口中,点击【运行】按钮!

在VBA中,【CDate】的实例应用!

8、时间段会很快被计算于D列!

在VBA中,【CDate】的实例应用!

如何隐藏计算公式 电脑桌面倒了怎么设置回来 excel公式监视方法 快速查看公式内容和结果 怎样使用VBA删除工作簿中所有空白工作表? Excel在数据表中悬停鼠标显示数据值
热门搜索
和田玉籽料图片 小猴头饰图片 北京雾霾图片 小马宝莉柔柔图片 野燕麦图片