ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > Excel VBA > 如何用正则表达式计算倒休的总天数?

如何用正则表达式计算倒休的总天数?

作者:绿色风 分类: 时间:2022-08-17 浏览:86
楼主
水星钓鱼
Q:假设A1单元格存放了如下文本“11月18日倒休1天,12月9日加班1天,1月3日-4日倒休2天,10月7日加班1天,10月4日-7日晚加班4天,12月30日加班1天,1月1日倒休1天,1月29日-2月5日倒休8天.”如何用正则表达式计算倒休的总天数?
A:利用MatchCollection循环所有匹配的倒休天数。
  1. Sub Reg()
  2.     Dim oReg As Object
  3.     Dim oMatches As Object
  4.     Dim oMatch As Object
  5.     Dim iSum As Integer
  6.     Set oReg = CreateObject("vbscript.regexp")
  7.     With oReg
  8.         .Global = True
  9.         .Pattern = "倒休\d+"
  10.         Set oMatches = .Execute([a1])
  11.         For Each oMatch In oMatches
  12.             iSum = iSum + Replace(oMatch, "倒休", "")
  13.         Next
  14.         MsgBox iSum
  15.     End With
  16. End Sub
2楼
kevinchengcw
  1.         .Pattern = "倒休(\d+)"
  2.         Set oMatches = .Execute([a1])
  3.         For Each oMatch In oMatches
  4.             iSum = iSum + oMatch.submatches(0)
  5.         Next
这个也可以试一下
3楼
bluexuemei
学习!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap