word金额千分位 金额千分位 - 电脑 - 【南平电脑网】_南平电脑维修_南平笔记本电脑维修_监控安装_市区上门维修
公司动态

word金额千分位 金额千分位

摘要:在word中怎么输入千分位符号 word中,没有自动实现数字转换为千分位格式的方法,只能通过手工编写宏命令的方法来实现。 具体步骤如下: 1、打开word; 2、按alt+F11打VBA编辑器...

发布日期:2021-01-15

word金额千分位

在word中怎么输入千分位符号

word中,没有自动实现数字转换为千分位格式的方法,只能通过手工编写宏命令的方法来实现。

具体步骤如下: 1、打开word;" 2、按alt+F11打VBA编辑器,点击插入->模块; 3、在模块窗口输入以下宏指令: Sub FormatNumbers() Selection.TypeText Text:=Format(Selection, "#,##0.00") End Sub 4、保存退出VBA编辑器; 5、点击office按钮->word选项; 6、打开自定义对话框,选择宏,点击添加,确定; 7、选择需要设置会计格式的数字,点击快捷栏中的宏命令; 8、完成。

...

在word里怎么将数字转化为千分位的

可以使用宏来解决,具体操作如下:Sub FormatNumbers() Selection.TypeText Text:=Format(Selection, "#,##0.00")End Sub 打VBA编辑器,在Normal.dot文件里填加模块,把上面的宏输入或拷贝进去 保存退出VBA编辑器 打开自定义对话框,自定义刚才那个宏的快捷键,如指定为Ctrl+, 每次在操作时,选中需格式的数字,按Ctrl+,键即可。

...

word2007数字千分位怎么设,是word不是excel,是2?

手动输入个英文逗号就行,如有你非要高难度的,我转一个文章给你,你看看吧采用了VBA编写了一个小程序来实现这一功能,以方便有这方向烦恼的读者,程序如下:Su 改变数字格式为千分位格式 () Dim stWithTh As Sting "用于保存处理后的数字 Dim intI As Intege "循环给定的数字 Dim intLen As Intege "求数字长度 Dim intCount As Intege "保存改变个数 With Selection .HomeKey Unit:=wdStoy "回到文章开头 .Find.CleaFomatting Do .Find.Text = "^#^#^#^#" "查找4位数字 "如果没有找到,退出 If .Find.Execute = False Then MsgBox "长春崔宇的程序:千分位设置完毕!共改变 " & intCount & "个数字。

", vInfomation Exit Su End If intCount = intCount 1 "计数器增加 .MoveLeft "移到整个数字的左边 .MoveRight Unit:=wdWod, Count:=1, Extend:=wdExtend "选择整个数字 intLen = Len(.Text) stWithTh = "" "清空 Fo intI = intLen To 1 Step -3 If intI 3 Then stWithTh = "," & Mid(.Text, intI - 2, 3) & stWithTh Else "对于长度为3的倍数的数字特别处理 stWithTh = Left(.Text, IIf(intLen Mod 3 = 0, 3, intLen Mod 3)) & stWithTh End If Next .Text = stWithTh .MoveRight "右移一个来取消选择 Loop End WithEnd Su将上面的代码,保存在NORMAL模板中,需要运行时,按ALT F8选择该宏运行就可以了,当然也可为这个宏分配一个按钮。

程序的实现方法:程序是以WORD的查找为基础,找到四位以上的数字,然后选择这个数字,将其变为千分位格式后写回,循环到查找结束。

当然代码中并没有对数字进行细致的分析,所以对“2002年”这样不应加千分位的数字也会处理。

代码在OFFICE9,OFFICE10,OFFICE11,OFFICE12上运行通用。

金额千分位啥意思

千分位形式,即从个位数起,每三位之间加一个逗号,例如,将7654321输出成7,654,321。

千分位还有其他解释:1. 分位--小数部分从小数点算起,右边第三位叫做千分位,也可以叫做小数第三位。

如:3.754中的“4”就在千分位。

2. 现已普及,比如工资习惯用“10k”而不是“1万”。

...