作者：绿色风
分类：
时间：2022-08-18
浏览：98
楼主
海洋之星 |
Q:如何在word中将数据自动以万吨计
A:可以使用域或者VBA,具体方法如下:
域方法:
第一步:选中"390000",按<Ctrl+F9>组合键,此时Word会自动为所选内容添加一个域标记,光标处输入"=int(390000/10000)"
第二步:选中该域,按<F9>键
第三步:将光标移至域结果处,输入"万"
VBA方法
- Sub 数据以万元计()
- Dim myRange As Range, myValue As Double, myDecimal As Byte
- On Error GoTo ErrHandle '如果发生错误则结束程序
- myDecimal = CByte(VBA.InputBox("请输入需要保留的小数位数"))
- Application.ScreenUpdating = False '关闭屏幕更新,加快程序运行
- Do '进入一个循环
- '定义myRange为活动文档的主文字部分
- Set myRange = ActiveDocument.Content
- With myRange.Find '查找设置
- .ClearFormatting '清除格式
- .Text = "[0-9]{4,}.[0-9]{1,}元" '查找4个以上带有小数的金额数据
- .MatchWildcards = True '使用通配符
- If .Execute = False Then Exit Do '如果未找到则退出循环
- myValue = Val(myRange.Text) '取得数字
- myRange.SetRange myRange.Start, myRange.End - 1 '重新定义myRange对象
- myRange.Text = VBA.Round(myValue / 10000, myDecimal) & "万" '写入特定位数的以万元计值
- End With
- Loop
- Do '进入一个循环
- '定义myRange为活动文档的主文字部分
- Set myRange = ActiveDocument.Content
- With myRange.Find '查找设置
- .ClearFormatting '清除格式
- .Text = "[0-9]{4,}元" '查找4个以上的整数金额数据
- .MatchWildcards = True '使用通配符
- If .Execute = False Then Exit Do '如果未找到则退出循环
- myValue = Val(myRange.Text) '取得数字
- myRange.SetRange myRange.Start, myRange.End - 1 '重新定义myRange对象
- myRange.Text = VBA.Round(myValue / 10000, myDecimal) & "万" '写入特定位数的以万元计值
- End With
- Loop
- ErrHandle:
- Application.ScreenUpdating = True '恢复屏幕更新
- End Sub
|
2楼
滴水穿石 |
WORD中的VBA...
留个脚印，以后再来看 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一