在word中如何将数字千分位(word里面怎么把数字设为千分位)

1.word里面怎么把数字设为千分位

手动输入个英文逗号就行,如有你非要高难度的,我转一个文章给你,你看看吧

采用了vba编写了一个小程序来实现这一功能,以方便有这方向烦恼的读者,程序如下:

sub 改变数字格式为千分位格式 ()

dim strwithth as string '用于保存处理后的数字

dim inti as integer

'循环给定的数字

dim intlen as integer '求数字长度

dim intcount as integer '保存改变个数

with selection

.homekey unit:=wdstory '回到文章开头

.find.clearformatting

do

.find.text = "^#^#^#^#" '查找4位数字

'如果没有找到,退出

if .find.execute = false then

msgbox "长春崔宇的程序:千分位设置完毕!共改变 " & intcount & "个数字。", vbinformation

exit sub

end if

intcount = intcount + 1 '计数器增加

.moveleft '移到整个数字的左边

.moveright unit:=wdword, count:=1, extend:=wdextend '选择整个数字

intlen = len(.text)

strwithth = "" '清空

for inti = intlen to 1 step -3

if inti > 3 then

strwithth = "," & mid(.text, inti - 2, 3) & strwithth

else

'对于长度为3的倍数的数字特别处理

strwithth = left(.text, iif(intlen mod 3 = 0, 3, intlen mod 3)) & strwithth

end if

next

.text = strwithth

.moveright '右移一个来取消选择

loop

end with

end sub

将上面的代码,保存在normal模板中,需要运行时,按alt+f8选择该宏运行就可以了,当然也可为这个宏分配一个按钮。

程序的实现方法:程序是以word的查找为基础,找到四位以上的数字,然后选择这个数字,将其变为千分位格式后写回,循环到查找结束。当然代码中并没有对数字进行细致的分析,所以对“2002年”这样不应加千分位的数字也会处理。代码在office9,office10,office11,office12上运行通用。

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

手动输入个英文逗号就行,如有你非要高难度的,我转一个文章给你,你看看吧采用了VBA编写了一个小程序来实现这一功能,以方便有这方向烦恼的读者,程序如下:Sub 改变数字格式为千分位格式 () Dim strWithTh As String '用于保存处理后的数字 Dim intI As Integer '循环给定的数字 Dim intLen As Integer '求数字长度 Dim intCount As Integer '保存改变个数 With Selection 。

HomeKey Unit:=wdStory '回到文章开头 。Find。

ClearFormatting Do 。Find。

Text = "^#^#^#^#" '查找4位数字 '如果没有找到,退出 If 。Find。

Execute = False Then MsgBox "长春崔宇的程序:千分位设置完毕!共改变 " & intCount & "个数字。 ", vbInformation Exit Sub End If intCount = intCount 1 '计数器增加 。

MoveLeft '移到整个数字的左边 。MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend '选择整个数字 intLen = Len(。

Text) strWithTh = "" '清空 For intI = intLen To 1 Step -3 If intI > 3 Then strWithTh = "," & Mid(。 Text, intI - 2, 3) & strWithTh Else '对于长度为3的倍数的数字特别处理 strWithTh = Left(。

Text, IIf(intLen Mod 3 = 0, 3, intLen Mod 3)) & strWithTh End If Next 。 Text = strWithTh 。

MoveRight '右移一个来取消选择 Loop End WithEnd Sub将上面的代码,保存在NORMAL模板中,需要运行时,按ALT F8选择该宏运行就可以了,当然也可为这个宏分配一个按钮。 程序的实现方法:程序是以WORD的查找为基础,找到四位以上的数字,然后选择这个数字,将其变为千分位格式后写回,循环到查找结束。

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

千分,如何将,数字,word

3.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中如何将数字千分位

转载请注明出处116知识网 » 在word中如何将数字千分位(word里面怎么把数字设为千分位)

资讯

如何将文档排页码(word文档怎么单独排页码)

阅读(8)

本文主要为您介绍如何将文档排页码,内容包括word文档怎么单独排页码,如何将排序混乱的文档按页码顺序排列,word中如何插入章节页码大家好:要排一个word文件,非常大,爱问。以word2007为例,可以将需要单独排页码的部分分别设置成单独的节,然后

资讯

如何将照片改成2048k(手机怎么把图片缩小到200k)

阅读(4)

本文主要为您介绍如何将照片改成2048k,内容包括手机怎么把图片缩小到200k,怎么把800宽*600的照片改成1536*2048高像?怎么把8,怎样把照片做成小于40KB,格式jpg。很多软件,光影魔术手和photoshop都可以缩小。但要不会用的话,也有偷懒的简单方法

资讯

ps如何将月亮排列(ps怎么画半圆月亮)

阅读(5)

本文主要为您介绍ps如何将月亮排列,内容包括如何用ps把多张月亮照片合成到一张图片上,显示月亮升起落下的过程,ps怎么画半圆月亮,怎么用PS软件做出这张图上的月亮。使用Photoshop画半圆月亮,操作如下(CS6):新建白色文档,右击选择【椭圆选框工具

资讯

如何将除垢液加入热水器(热水器除垢剂怎样使用?)

阅读(4)

本文主要为您介绍如何将除垢液加入热水器,内容包括如何把除水垢剂放入电热水器里面,热水器除垢剂怎样使用?,热水器除垢剂怎么使用?。热水器除垢剂简介1主要成份 食品酸、增效剂、金属材料保护剂2主要功能 快速、彻底、清洁热水器内壁、器皿

资讯

如何将文档打字界面居中(怎么让word文档的文字上下居中)

阅读(4)

本文主要为您介绍如何将文档打字界面居中,内容包括怎么让word文档的文字上下居中,怎样使WORD的文字居中?,如何把Word的文档页面调到居中的位置?我的电脑目前一打开Wor爱。让word文档的文字上下居中,操作方法如下:文字上下居中即是垂直居中。

资讯

如何将镶入ppt(怎么把视频嵌入到ppt中)

阅读(7)

本文主要为您介绍如何将镶入ppt,内容包括怎么把视频嵌入到ppt中,ppt2007版有没有办法在给ppt添加视频时直接将视频嵌入ppt中(而不,ppt2007版有没有办法在给ppt添加视频时直接将视频嵌入pp?爱问知。PPT中不能嵌入视频,可以类似插入音乐插入视

资讯

如何将电脑的键盘恢复出厂设置(怎么把键盘恢复出厂设置)

阅读(6)

本文主要为您介绍如何将电脑的键盘恢复出厂设置,内容包括怎么把键盘恢复出厂设置,怎样使电脑恢复出厂设置不用光盘???,电脑里面的DOS怎么恢复出厂设置。0000#查版本。2、*3370#开启EFR,增强型全速率编码功能,#3370#则关闭。3、*4720#开启HR,增

资讯

如何将ppt导入到微信发放(电脑上ppt怎样发到微信)

阅读(6)

本文主要为您介绍如何将ppt导入到微信发放,内容包括电脑上ppt怎样发到微信,ppt可以插入微信公众平台吗,怎么将PPT上传到微博。打开手机版wps,找到并点击需要传输到微信上的文件。2、打开文件后,在页面下方,找到并选择“分享”。3、点击后,选择

资讯

如何将四个颜色渐变成一个(用ps做图时四种颜色渐变怎么做)

阅读(5)

本文主要为您介绍如何将四个颜色渐变成一个,内容包括用ps做图时四种颜色渐变怎么做,PHOTOSHOP蒙版渐变我想将一张图的四周都做成渐变,原来加个爱,怎样在一张图片里做出两种颜色的渐变效果就是这个flash中下面图爱问。用ps做图时四种颜色渐

资讯

汽车如何将汽油放出来(汽车怎么放汽油)

阅读(6)

本文主要为您介绍汽车如何将汽油放出来,内容包括汽车怎么放汽油,汽车怎么往外抽汽油怎样把汽车油箱里的油抽出来(20分)朋友的1辆,有谁知道,怎样将车子油箱里的油吸出来。汽车放油的方法很简单,具体步骤为:将车辆开到陡坡上,然后熄火拉起手刹。

资讯

如何将文档排页码(word文档怎么单独排页码)

阅读(8)

本文主要为您介绍如何将文档排页码,内容包括word文档怎么单独排页码,如何将排序混乱的文档按页码顺序排列,word中如何插入章节页码大家好:要排一个word文件,非常大,爱问。以word2007为例,可以将需要单独排页码的部分分别设置成单独的节,然后

资讯

如何将照片改成2048k(手机怎么把图片缩小到200k)

阅读(4)

本文主要为您介绍如何将照片改成2048k,内容包括手机怎么把图片缩小到200k,怎么把800宽*600的照片改成1536*2048高像?怎么把8,怎样把照片做成小于40KB,格式jpg。很多软件,光影魔术手和photoshop都可以缩小。但要不会用的话,也有偷懒的简单方法

资讯

ps如何将月亮排列(ps怎么画半圆月亮)

阅读(5)

本文主要为您介绍ps如何将月亮排列,内容包括如何用ps把多张月亮照片合成到一张图片上,显示月亮升起落下的过程,ps怎么画半圆月亮,怎么用PS软件做出这张图上的月亮。使用Photoshop画半圆月亮,操作如下(CS6):新建白色文档,右击选择【椭圆选框工具

资讯

如何将除垢液加入热水器(热水器除垢剂怎样使用?)

阅读(4)

本文主要为您介绍如何将除垢液加入热水器,内容包括如何把除水垢剂放入电热水器里面,热水器除垢剂怎样使用?,热水器除垢剂怎么使用?。热水器除垢剂简介1主要成份 食品酸、增效剂、金属材料保护剂2主要功能 快速、彻底、清洁热水器内壁、器皿

资讯

如何将文档打字界面居中(怎么让word文档的文字上下居中)

阅读(4)

本文主要为您介绍如何将文档打字界面居中,内容包括怎么让word文档的文字上下居中,怎样使WORD的文字居中?,如何把Word的文档页面调到居中的位置?我的电脑目前一打开Wor爱。让word文档的文字上下居中,操作方法如下:文字上下居中即是垂直居中。

资讯

如何将镶入ppt(怎么把视频嵌入到ppt中)

阅读(7)

本文主要为您介绍如何将镶入ppt,内容包括怎么把视频嵌入到ppt中,ppt2007版有没有办法在给ppt添加视频时直接将视频嵌入ppt中(而不,ppt2007版有没有办法在给ppt添加视频时直接将视频嵌入pp?爱问知。PPT中不能嵌入视频,可以类似插入音乐插入视

资讯

如何将电脑的键盘恢复出厂设置(怎么把键盘恢复出厂设置)

阅读(6)

本文主要为您介绍如何将电脑的键盘恢复出厂设置,内容包括怎么把键盘恢复出厂设置,怎样使电脑恢复出厂设置不用光盘???,电脑里面的DOS怎么恢复出厂设置。0000#查版本。2、*3370#开启EFR,增强型全速率编码功能,#3370#则关闭。3、*4720#开启HR,增