本篇经验将和大家分享【在VBA中,【CDate】的实例应用!】
工具/原料
电脑壹台
OFFICE办公软件
方法/步骤
1、如图所示,通过编辑运行VBA代码,计算出”时间段“!
2、在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visualbasic】!
3、会进入VBA编辑界面!点击菜单栏【插入】,在其下拉菜单中,选择【模块】!
4、会弹出模块编辑窗口!
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
6、”(CDate(mat(1)拘七呷憎)-CDate(mat(0)))*24“是将时间换算为天,乘24是把天换算为小时数!
7、在VBA窗口中,点击【运行】按钮!
8、时间段会很快被计算于D列!