报表在WORD里面。
怎么实现表格内数字转换有千分位的符的。
[抓狂...
手动输入个英文逗号就行,如有你非要高难度的,我转一个文章给你,你看看吧采用了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上运行通用。
在word中怎么输入千分位符号
TypeText Text:=Format(Selection; 5word中,没有自动实现数字转换为千分位格式的方法,只能通过手工编写宏命令的方法来实现。
具体步骤如下; 3; 8、在模块窗口输入以下宏指令: Sub FormatNumbers() Selection, "#,##0.00") End Sub 4、保存退出VBA编辑器; 2,确定; 7、选择需要设置会计格式的数字,点击快捷栏中的宏命令、打开word;'、打开自定义对话框,选择宏,点击添加: 1,点击插入->模块; 6、点击office按钮->word选项、按alt+F11打VBA编辑器...