WORD中的元变成万元？希望哪个网友再补充一个excel版的代码（补充要求附件在17楼）

DAHAI31415

WORD中有很多以元表示的内容，如12,345.88元，359,465.21元如何一次性的将以上数字变为1.23万元，35.95万元
希望哪个网友再补充一个excel版的代码，要求附件在17楼

https://club.excelhome.net/forum ... 47&pid=11584132

doitbest

Public Sub abc()
Dim m
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "([0-9,.]+)元"
      For Each m In .Execute(ActiveDocument.Content)
         ActiveDocument.Content.Find.Execute m, , , 2, , , , , , Round(Val(Replace(m.submatches(0), ",", "")) / 10000, 2) & "万元", 2
      Next
End With
End Sub

DAHAI31415

doitbest 发表于 2014-3-26 09:23
Public Sub abc()
Dim m
With CreateObject("vbscript.regexp")

还有两个问题：
1、能不能像EXCEL那样设计出一个命令按钮
2、实际用了一下，大部分能替换，有几个数字无法替换
以上内容，看您方便再改进一下？多谢了！

doitbest

什么样的数字无法替换？

DAHAI31415

doitbest 发表于 2014-3-26 10:41
什么样的数字无法替换？

请看附件，标注红色的为未转换。另有转换错误一处，未分节一处。再次感谢

doitbest

用用这个
Public Sub abc()
Dim m, s
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "([0-9,，. ]{5,})元"
      For Each m In .Execute(ActiveDocument.Content)
      .Pattern = "[,，]"
         ActiveDocument.Content.Find.Execute m, , , 2, , , , , , Format(Val(.Replace(m.submatches(0), "")) / 10000, "#,##0.00万元"), 2
      Next
End With
End Sub

DAHAI31415

doitbest 发表于 2014-3-26 11:25
用用这个
Public Sub abc()
Dim m, s

好的，再试一下

DAHAI31415

doitbest 发表于 2014-3-26 11:25
用用这个
Public Sub abc()
Dim m, s

很流畅而且进行了四舍五入，谢谢！！！

晚秋~落叶

大神，你的这个是有千分号的，有的没得千分符号的怎么替换哦？比如：40000000元替换成4,000万元？

wshcw

doitbest 发表于 2014-3-26 11:25
用用这个
Public Sub abc()
Dim m, s

转换结果还不完善：
1.从2022年8月开始对我县71家中小微企业单位实行应征部分缓缴184.90元，缓解了大部分企业资金困难问题，工作成效明显。
2.2023年我县上半年继续执行缴费单位基本医疗保险单位缴费比例降低1%（由原来9%将为8%）的政策措施。2003年1月-6月，我县基本医疗保险缴费单位缴费基数和为40,172.00元，按原9%比例我县2003年1-6月缴费单位基本医疗保险应缴3,615.00元，2023年1-6月实际应缴（8%）3,213.00元，减征了401.00元。
2.2023年我县上半年继续执行缴费单位基本医疗保险单位缴费比例降低1%（由原来9%将为8%）的政策措施。2003年1月-6月，我县基本医疗保险缴费单位缴费基数和为78,940,172.00元，按原9%比例我县2003年1-6月缴费单位基本医疗保险应缴3,615.00元，2023年1-6月实际应缴（8%）12,343,213.00元，减征了258,401.00元。


转换结果为：
1.从2022年8月开始对我县71家中小微企业单位实行应征部分缓缴0.02万元，缓解了大部分企业资金困难问题，工作成效明显。
2.2023年我县上半年继续执行缴费单位基本医疗保险单位缴费比例降低1%（由原来9%将为8%）的政策措施。2003年1月-6月，我县基本医疗保险缴费单位缴费基数和为4.02万元，按原9%比例我县2003年1-6月缴费单位基本医疗保险应缴0.36万元，2023年1-6月实际应缴（8%）0.32万元，减征了0.04万元。
2.2023年我县上半年继续执行缴费单位基本医疗保险单位缴费比例降低1%（由原来9%将为8%）的政策措施。2003年1月-6月，我县基本医疗保险缴费单位缴费基数和为78,94.02万元，按原9%比例我县2003年1-6月缴费单位基本医疗保险应缴0.36万元，2023年1-6月实际应缴（8%）12,340.32万元，减征了258,0.04万元。