Word中数字金额小写

合集下载

给Word添加数字大小写转换命令

给Word添加数字大小写转换命令

给Word添加数字大小写转换命令Next i 当用 Wo rd 输入表示金额的数字时 , 除了输入阿拉伯数字(() )k = Val Mid c , l - 1 , 1 外 ,常常需要输入数字的中文大写形式 ,而输入中文大写数字显 ( ) chine se = chine se + Midstr1 , k + 1 , 1+ “角” 然比输入阿拉伯数字要慢得多 ,若能提供一个直接将阿拉伯数字(() )k = Val Mid c , l , 1 自动转换中文大写数字的命令 ,可以大大提高输入速度。

笔者编( ) chine se = chine se + Midstr1 , k + 1 , 1+ “分” 写了一个 Change To Cn 宏命令可以实现这一功能 ,本文详细介绍 detail = chine se Selectio n. Inse rtAfte r chine se Wo rd97/ 2000 中创建该宏命令。

如何在 End If 一、创建一个对话窗口 frmchangeto cn. hide 单击“工具”3“宏”3“Vi sual Ba sic 编辑器”,启动 Vi sual Ba2 End Sub sic 编辑器。

单击其菜单栏上的命令“插入”3“添加用户窗体”, ( ) 单击“取消”命令按钮 Co mmandButto n2 , btnCanc el,为其添加一 () 添加一个空白用户窗体 ,在窗体上添加两个标签 La bel、两个文段命令处理程序如下 : ( ) ( ) 本编辑Te xtBo x和两个命令按钮 Co mmandButto n控件 ,按下表()Privat e Sub btnc anc el- Click 修改它们的属性。

frmchangeto cn. hide 组件属性值 End Sub() 最后给窗体的激活事件 Use rFo rm- Activat e添加如下程序段 : )( 命名 frmChange To Cn userfo rm 将阿拉伯数字转换为中文大写数字 ()Privat e Sub Use rFo rm- activat e Captio n)( 命名 Lo a d frmchangeto cn la bel La bel 输入阿拉伯数字 : End Sub Captio n 二、创建调用该对话窗口的宏命令 ( )命名 Te xtBo x txt alb 单击Vi sual Ba sic 编辑器菜单栏上的“插入”3“添加模块”命 )( 命名 btnO K令 ,在代码编辑窗口输入如下程序段 : Co mmandButto n1 确定 Captio n ()Sub changeto cn )( 命名 btnCancel Co mmandButto n2 frmchangeto cn. Show 取消Captio n End Sub ( ) 然后单击“确定”命令按钮 Co mmandButto n1 ,btnO K,为其添完成上述步骤后 ,保存整个工作 ,切换回 Wo rd ,就可以使用该宏加一段命令处理程序如下 : 命令了。

大小写金额书写规范

大小写金额书写规范

大小写金额书写规范第一篇:大小写金额书写规范银行、单位和个人填写的各种票据和结算凭证是办理支付结算和现金收付的重要依据,直接关系到支付结算的准确、及时和安全。

票据和结算凭证是银行、单位和个人凭以记载账务的会计凭证,是记载经济业务和明确经济责任的一种书面证明。

因此,填写票据和结算凭证必须做到标准化、规范化、要素齐全、数字正确、字迹清晰、不错漏、不潦草、防止涂改。

中文大写金额数字应用正楷或行书填写,如壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿、元、角、分、零、整(正)等字样,不得用一、二(两)、三、四、五、六、七、八、九、十、毛、另(或0)填写,不得自造简化字。

如果金额数字书写中使用繁体字,也应受理。

人民币大写的正确写法还应注意以下几项:一、中文大写金额数字到“元”为止的,在“元”之后、应写“整”(或“正”)字;在“角”之后,可以不写“整”(或“正”)字;大写金额数字有“分”的,“分”后面不写“整”(或“正”)字。

二、在票据和结算凭证大写金额栏内不得预印固定的“仟、佰、拾、万、仟、佰、拾、元、角、分”字样。

三、阿拉伯数字小写金额数字中有“0”时,中文大写应按照汉语语言规律、金额数字构成和防止涂改的要求进行书写。

举例如下:1、阿拉伯数字中间有“0”时,中文大写要写“零”字,如¥1409.50应写成人民币壹仟肆佰零玖元伍角;2、阿拉伯数字中间连续有几个“0”时、中文大写金额中间可以只写一个“零”字,如¥6007.14应写成人民币陆仟零柒元壹角肆分。

3、阿拉伯金额数字万位和元位是“0”,或者数字中间连续有几个“0”,万位、元位也是“0”但千位、角位不是“0”时,中文大写金额中可以只写一个零字,也可以不写“零”字,如¥1680.32应写成人民币壹仟陆佰捌拾元零叁角贰分,或者写成人民币壹仟陆佰捌拾元叁角贰分。

又如¥107000.53应写成人民币壹拾万柒仟元零伍角叁分,或者写成人民币壹拾万零柒仟元伍角叁分。

合同金额大小写格式

合同金额大小写格式

合同金额大小写格式合同金额大小写格式篇一:大小写金额书写规范银行、单位和个人填写的各种票据和结算凭证是办理支付结算和现金收付的重要依据,直接关系到支付结算的准确、及时和安全。

票据和结算凭证是银行、单位和个人凭以记载账务的会计凭证,是记载经济业务和明确经济责任的一种书面证明。

因此,填写票据和结算凭证必须做到标准化、规范化、要素齐全、数字正确、字迹清晰、不错漏、不潦草、防止涂改。

中文大写金额数字应用正楷或行书填写,如壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿、元、角、分、零、整(正)等字样,不得用一、二(两)、三、四、五、六、七、八、九、十、毛、另(或0)填写,不得自造简化字。

如果金额数字书写中使用繁体字,也应受理。

人民币大写的正确写法还应注意以下几项:一、中文大写金额数字到“元”为止的,在“元”之后、应写“整”(或“正”)字;在“角”之后,可以不写“整”(或“正”)字;大写金额数字有“分”的,“分”后面不写“整”(或“正”)字。

二、在票据和结算凭证大写金额栏内不得预印固定的“仟、佰、拾、万、仟、佰、拾、元、角、分”字样。

三、阿拉伯数字小写金额数字中有“0”时,中文大写应按照汉语语言规律、金额数字构成和防止涂改的要求进行书写。

举例如下:1、阿拉伯数字中间有“0”时,中文大写要写“零”字,如¥应写成人民币壹仟肆佰零玖元伍角;2、阿拉伯数字中间连续有几个“0”时、中文大写金额中间可以只写一个“零”字,如¥应写成人民币陆仟零柒元壹角肆分。

3、阿拉伯金额数字万位和元位是“0”,或者数字中间连续有几个“0”,万位、元位也是“0”但千位、角位不是“0”时,中文大写金额中可以只写一个零字,也可以不写“零”字,如¥应写成人民币壹仟陆佰捌拾元零叁角贰分,或者写成人民币壹仟陆佰捌拾元叁角贰分。

又如¥应写成人民币壹拾万柒仟元零伍角叁分,或者写成人民币壹拾万零柒仟元伍角叁分。

4、阿拉伯金额数字角位是“0”而分位不是“0”时,中文大写金额“元”后面应写“零”字,如¥应写成人民币壹万陆仟肆佰零玖元零贰分,又如¥应写成人民币叁佰贰拾伍元零肆分。

数字金额小写大写转换

数字金额小写大写转换

数字金额小写大写转换(excel)(wotd)
1、运用输入法来实现,如极点中文(QQ五笔)输入平台,在极点
五笔(QQ五笔)中,输入“;阿拉伯数字;”(注意分号是半角英文分号),
后面是所要的金额数字,如输入;123.45即得壹佰贰拾叁圆肆角伍分。

注意不要关闭输入法,一定在输入汉字状态下。

这个是我用过所有的当
中最好用也是最方便的一个,而且还有一个好处就是word和Excel通
用。

如用搜狗拼音输入法(v模式):v123.45即得壹佰贰拾叁圆肆角
伍分。

示例:
日期转换按;(分号)后输入数字;2005.8.26 输出二〇〇五年八月二十金额转换按;(分号)后输入数字;2088.82 输出贰仟零捌拾捌元捌角
假设你要造一个能输入当前日期及时间的词组,编码是now,那么你可以根据自己的格式要求使用上面的变量来造出此词组。

比如,我们造了一个"$y年$m年$d日$20$h时$mi分$0s秒"的词组,当你输入编码:空格now后在输入
2008.6.24.20.45.06,输出的内容会是类似下面这样的:
2008年6月24日 20时45分06秒(只有在极点五笔中才有此功能)
2.EXCEL中,选中数字金额的单元格,打开“设置单元格格式”对
话框,“数字”分类下“特殊”,有中文大写,小写数字,不过此方法
只是把阿拉伯数字原样改成大写金额而已,比较生搬硬套。

以上的公式
就是根据此选项定义变通改编而来。

word文档英语大小写转换

word文档英语大小写转换

一、让不同类型数据用不同颜色显示在工资表中,如果想让大于等于2000元的工资总额以“红色”显示,大于等于1500元的工资总额以“蓝色”显示,低于1000元的工资总额以“棕色”显示,其它以“黑色”显示,我们可以这样设置。

1.打开“工资表”工作簿,选中“工资总额”所在列,执行“格式→条件格式”命令,打开“条件格式”对话框。

单击第二个方框右侧的下拉按钮,选中“大于或等于”选项,在后面的方框中输入数值“2000”。

单击“格式”按钮,打开“单元格格式”对话框,将“字体”的“颜色”设置为“红色”。

2.按“添加”按钮,并仿照上面的操作设置好其它条件(大于等于1500,字体设置为“蓝色”;小于1000,字体设置为“棕色”)。

3.设置完成后,按下“确定”按钮。

看看工资表吧,工资总额的数据是不是按你的要求以不同颜色显示出来了。

附送一条小编知道的Word中转换大小写的快捷键:Shift+F3。

选中字母先,按一次,小写变大写;再按一次,大写变小写。

如果选中的是大小写混排的字母,则转换效果依次为:首字母大写->全部大写->全部小写。

推而广之,在这个案例中,我们可以把Excel中需要转换的内容整个复制到Word中(Excel单元格在Word中会自动转换成表格),再用Shift+F3转换,最后复制回Excel。

它们分别是:“=UPPER(源数据格)”,将文本全部转换为大写;“=LOWER(源数据格)”,将文本全部转换成小写;“=PROPER(源数据格)”,将文本转换成“适当”的大小写,如让每个单词的首字母为大写等。

例如,我们在一张表格的A1单元格中输入小写的“excel”,然后在目标单元格中输入“=UPPER(A1)”,回车后得到的结果将会是“EXCEL”。

同样,如果我们在A3单元格中输入“mr.weiwei”,然后我们在目标单元格中输入“=PROPER(A3)”,那么我们得到的结果就将是“Mr.Weiwei”了。

一秒将合同金额变成大写你学会了吗

一秒将合同金额变成大写你学会了吗

一秒将合同金额变成大写你学会了吗
今天零壹学长给大家介绍的这种方法就可以帮助你快速又准确地将阿
拉伯数字金额转换成大写金额~
01
选中合同中的金额数据
02
点击【插入】-【符号】中的“编号”按钮,在弹出的“编号”对话
框中编号类型选择“壹、贰、叁……”,点击确定,即可将小写的金额转
换成大写金额
03
若金额有小数点的,要分两次转换,小数点前转换一次,小数点后又
转换一次
04
注意此方法转换的金额在0~999999之间,若选中的数值超过999999
则无法转化,同样要分批转换。

05
这个小技巧既能快速转换小写金额为大写金额,还能准确转换,同样,可以用这个方法将大写金额转换为小写金额。

52万5千600元小写

52万5千600元小写

52万5千600元小写
摘要:
1.了解文本内容
2.转换为小写形式
3.突出可读性和实用性
正文:
在日常生活中,我们经常会遇到大额金额的表述,而将这些金额转化为小写形式是一项基本的财务技能。

今天,我们就来学习如何将金额如52万5千600元转换为小写形式。

首先,我们需要了解文本内容。

给出的金额是52万5千600元,我们需要将其转换为小写形式。

接下来,我们来进行转换。

52万5千600元的小写形式为:525,600。

最后,为了突出可读性和实用性,我们可以将这个数字进行适当的格式化。

例如,我们可以将其写作525,600元整,这样既方便阅读,又方便理解。

综上,52万5千600元的小写形式为525,600元整。

掌握这个技巧,你在处理大额金额时会更加得心应手,无论是日常记账还是商务往来,都能体现出你的专业素养。

大小写金额书写规范

大小写金额书写规范

阿拉伯数字的书写阿拉伯数字有0、1、2、3、4、5、6、7、8、9,是世界各国通用的数字。

1.书写与数位相结合数位即数字所在位置所表示的单位。

数位按照个、十、百、千、万、的顺序是由小到大、从左向右的。

数万千百十万千百十万千百十个十百千万十百位万万万万万万万万位位位位位分分分分万万万万万万位位位位位位位位分分位位位位位位读兆千百十亿千百十万千百十个分厘毫兰忽微法亿亿亿万万万2.采用三位分节制使用分节号能够较容易地辨认数的位数,有利于数字的书写、阅读和计算工作。

数的整数部分,采用国际通用的“三位分节制”,从个位向左每三位数用分节号“,”分开。

例如:千百十万万千百十个带小数的数字,应将小数点记在个位与十分万万位位位位位位位之间的下方。

位位十百千百十个分分9 2 ,0 7 0 ,0 0 0位位位位位位6,0 7 8. 9 5一般账表凭证的金额栏印有分位格,元位前每三位印有一组线代表分为节,元位与角位之间的粗红线则代表小数点,计数时不要再另加分节号或小数点。

3.关于人民币符号“¥”的使用在填制凭证时,小写金额前一般均冠以人民币符号“¥”。

“¥”是拼音“YUAN ”(元)的缩写,“¥”既代表了人民币币制,又表示了人民币“元”的单位。

所以小写金额前填写“¥”以后,数字之后就不必再写“元”了。

例如:¥3 214.03,即为人民币叁仟贰佰壹拾肆元零叁分。

书写时在“¥”与数字之间不能留有空位,以防止金额数字被人涂改。

阿拉伯小写金额数字前面均应填写人民币符号“¥”,阿拉伯小写金额数字要认真填写,不得连写分辨不清。

在登记账簿,编制报表时不能使用“¥”符号,因为账簿、报表上不存在金额数字被涂改而造成损失的情况。

在账页或报表上如果使用“¥”反而会增加错误的可能性。

4.关于金额角、分的写法在无金额分位格的凭证上,所有以元为单位的阿拉伯数字除表示单价等情况外,一律写到角分,无角分的,角位和分位可写成“00”,或符号“-”,有角无分的,分为应写成“0”,不能用符号“-”代替。

word小写金额转换大写金额公式

word小写金额转换大写金额公式

word小写金额转换大写金额公式
首先,我们需要了解一下小写金额转换大写金额的规则:
1. 小写金额的每一位数字都有对应的大写金额,如:0对应“零”,1对应“壹”,2对应“贰”,3对应“叁”,4对应“肆”,5对应“伍”,6对应“陆”,7对应“柒”,8对应“捌”,9对应“玖”。

2. 小写金额的每一位数字都有对应的单位,如:个位数字对应“元”,十位数字对应“拾”,百位数字对应“佰”,千位数字对应“仟”,万位数字对应“万”,十万位数字对应“拾万”,百万位数字对应“佰万”,千万位数字对应“仟万”,亿位数字对应“亿”,十亿位数字对应“拾亿”,百亿位数字对应“佰亿”,千亿位数字对应“仟亿”。

3. 小写金额的每一位数字都有对应的节权位,如:个位数字对应“角”,十位数字对应“分”,百位数字对应“厘”。

根据以上规则,我们可以构建一个小写金额转换大写金额的公式:
设小写金额为X,则大写金额为Y,则有:
Y=X/10000000000*“仟亿”+X/100000000%10*“佰
亿”+X/10000000%10*“拾
亿”+X/1000000%10*“亿”+X/100000%10*“仟
万”+X/10000%10*“佰万”+X/1000%10*“拾
万”+X/100%10*“万”+X/10%10*“仟”+X/1%10*“佰”+X/0.1%10*“拾”+X/0.01%10*“元”+X/0.001%10*“角”+X/0.0001%10*“分”+ X/0.00001%10*“厘”。

最后,我们可以根据上述公式,将小写金额转换为大写金额。

在Word中进行小额计算的技巧与详细步骤

在Word中进行小额计算的技巧与详细步骤

在Word中进行小额计算的技巧与详细步骤大家知道,EXCEL电子表格在计算中是一个很不错的电算化程序,但是如果在作小数目的简单数据运算时,使用EXCEL也不见得方便,主要是文字的说明上不好排版,还占用不少空间。

为此我教大家使用WORD进行小额数目的运算方法。

一、只有一两项数据的运算第<1>种方法与步骤:使用普通表格进行运算。

第一步、先插入普通表格,下面通过两种途径插入普通表格。

第一种途径:通过工具栏的插入表格图标选定插入的表格大小。

比如选二行五列:1.将鼠标移到工具栏上的“插入表格”图标,如下面图一所示。

图一选用工具栏上的“插入表格”的图标2.左键点击鼠标已经指向“插入表格”的图标,如下面图二所示。

图二 调出表格样式3.使用鼠标功能来选择表格行列数目,如图三所示。

图三 选择表格行列数目4.成功地插入了所需要的普通表格图四 成功插入了表格把鼠标移动到样表的左上角,然后按住左键并向下拖动鼠标,使两行表格变成蓝色即为已被选择部分,然后再向右拖动鼠标,直到够五列即放手,这时可以看到WORD 文档中出现了你所需要的表格了。

第二个途径:通过菜单栏的表格菜单项进行表格的插入。

也以选二行五列为例:1.先肥鼠标移到菜单栏中的“表格”菜单项。

如下图五所示。

图五选择菜单项是“表格”2.单击左键于“表格”这个菜单项后,即弹出一个下拉菜单图六点击表格即出现下拉菜单3.在弹出的下拉菜单中先往下移动鼠标到“插入”命令项后,往右移动到“表格”一项命令,如下图七所示。

图七选择下拉菜单中的表格方法4.点击一下“表格”命令即弹出插入表格规格的对话框,如下图八所示。

图八弹出的“插入表格”的对话框5.将鼠标移到表格尺寸的“表格尺寸”的“行数”和“列数”的对话框中填写所需要的规格,然后点确定,如下面图九所示。

6.点“确定”后即完成“插入表格”任务,得出如同图四的表格样式,如下面图十所示。

图十完成表格的插入第二步、在已插入的表格中输入数据,如下面图十一所示。

word转换人民币金额大写

word转换人民币金额大写

word转换人民币金额大写word转换人民币金额大写宏在word中启用A lt+F11编辑宏,在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口,在代码编辑窗口中输入如下代码:Sub 小写金额变大写()Dim Numeric As Currency, IntPart As Long, DecimalPart As Byte, MyField As Field, Lable As StringDim Jiao As Byte, Fen As Byte, Oddment As String, Odd As String, MyChinese As StringConst ZWDX As String = "壹贰叁肆伍陆柒捌玖零"'定义一个中文大写汉字常量On Error Resume Next '错误忽略With SelectionNumeric = VBA.Round(VBA.Val(.Text), 2) '四舍五入保留小数点后两位'判断是否在表格中!!此处为向左MoveLeft移动3(count)个单元格(wdCell)If .Information(wdWithInTable) Then _.MoveLeft unit:=wdCell, Count:=3 Else .MoveRightunit:=wdCharacter'对数据进行判断,是否在指定的范围内If VBA.Abs(Numeric) &gt; 2147483647 Then MsgBox "数值超过范围!", _vbOKOnly + vbExclamation, "Warning": Exit SubIntPart = Int(VBA.Abs(Numeric)) '定义一个正整数Odd = VBA.IIf(IntPart = 0, "", "元") '定义一个STRING变量'插入中文大写前的标签Lable = VBA.IIf(Numeric = VBA.Abs(Numeric), "合计金额大写: ", "合计金额大写: 负")'对小数点后面二位数进行择定DecimalPart = (VBA.Abs(Numeric) - IntPart) * 100Select Case DecimalPartCase Is = 0 '如果是0,即是选定的数据为整数Oddment = VBA.IIf(Odd = "", "", Odd &amp; "整")Case Is &lt; 10 '&lt;10,即是零头是分Oddment = VBA.IIf(Odd &lt;&gt; "", "元零"&amp; VBA.Mid(ZWDX, DecimalPart, 1) &amp; "分", _VBA.Mid(ZWDX, DecimalPart, 1)&amp; "分")Case 10, 20, 30, 40, 50, 60, 70, 80, 90 '如果是角整Oddment = "元" &amp; VBA.Mid(ZWDX, DecimalPart / 10, 1) &amp; "角整"Case Else '既有角,又有分的情况Jiao = VBA.Left(CStr(DecimalPart), 1) '取得角面值Fen = VBA.Right(CStr(DecimalPart), 1) '取得分面值Oddment = Odd &amp; VBA.Mid(ZWDX, Jiao, 1) &amp; "角" '转换为角的中文大写Oddment = Oddment &amp; VBA.Mid(ZWDX, Fen, 1) &amp; "分" '转换为分的中文大写End Select'指定区域插入中文大写格式的域Set MyField = .Fields.Add(Range:=.Range, Text:="= " &amp; IntPart &amp; " \*CHINESENUM2")MyField.Select '选定域(最后是用指定文本覆盖选定区域)'如果仅有角分情况下,Mychinese为""MyChinese = VBA.IIf(MyField.Result &lt;&gt; "零", MyField.Result, "").Text = Lable &amp; MyChinese &amp; OddmentEnd WithEnd Sub输入完毕后按下Alt+Q键返回word中,以后只需要依次选中需要转换的小写金额后,按下Alt+F8打开宏对话框,选择“小写金额变大写”宏,并单击“运行”即可快速地得出大写金额。

金额小写规范

金额小写规范

金额小写规范金额小写规范是指在书写金额时,用阿拉伯数字表达出来的数字转化为小写的金额。

以下是金额小写规范的1000字说明:金额小写规范是指用阿拉伯数字表达的金额转化为小写金额。

在书写金额时,我们要遵循以下规范和要求。

首先,在书写金额时,应该用阿拉伯数字表示。

不管是整数还是小数,都应该使用阿拉伯数字,并用小数点将整数部分和小数部分分开。

其次,在书写小数金额时,阿拉伯数字的小数点后应该保留两位小数。

如果小数位不足两位,则应该在小数点后面补零,以示标准化。

再次,在书写大数金额时,应该按照逢三进一的原则,将金额分割为一组一组的三位数,并使用逗号将各组数字隔开。

每组三位数从右往左数,第一组的最左边不需要加逗号。

例如,表示一千的阿拉伯数字为1000,对应的小写金额为“壹仟元整”。

表示一千零五十的阿拉伯数字为1050,对应的小写金额为“壹仟零伍拾元整”。

表示一千零五十点五的阿拉伯数字为1050.5,对应的小写金额为“壹仟零伍拾元伍角整”。

表示一千零五十点五六的阿拉伯数字为1050.56,对应的小写金额为“壹仟零伍拾元伍角陆分”。

需要注意的是,当小数部分最后一位为零时,应该省略该零并在字尾加上“整”字。

当小数部分最后两位均为零时,也应该省略这两个零并加上“整”字。

而当小数部分的最后一位不为零时,应该依次写出相应的数字和单位。

此外,在金额的单位上,一般使用“元”作为基本单位,表示整数金额;使用“角”和“分”表示小数金额,其中一元等于十角,一角等于十分。

总结起来,金额小写规范是将阿拉伯数字转化为小写金额的一种标准化写法。

在书写小数金额时,小数点后保留两位小数;在书写大数金额时,按照逢三进一的原则,使用逗号将数字分组,每组从右往左数,最左边的组不加逗号。

在单位上,使用“元”表示整数金额,“角”和“分”表示小数金额。

(完整版)Word中转换大小写的快捷键

(完整版)Word中转换大小写的快捷键

Word中转换大小写的快捷键Ctrl+Shift+K 组合键将所有字母设成小写Ctrl+Shift+A 组合键将所有字母设为大写Ctrl+Shift+Spacebar 创建不间断空格Ctrl+连字符创建不间断连字符Ctrl+B 使字符变为粗体Ctrl+I 使字符变为斜体Ctrl+U 为字符添加下划线Ctrl+Shift+< 缩小字号Ctrl+Shift+> 增大字号Ctrl+Q 删除段落格式Ctrl+Spacebar 删除字符格式Ctrl+C 复制所选文本或对象Ctrl+X 剪切所选文本或对象Ctrl+V 粘贴文本或对象Ctrl+Z 撤消上一操作Ctrl+Y 重复上一操作F1 获得联机帮助或Office 助手F2 移动文字或图形F3 插入自动图文集词条(在Word 显示该词条之后)F4 重复上一项操作F5 选择“编辑”菜单中的“定位”命令F6 前往下一个窗格或框架F7 选择“工具”菜单中的“拼写和语法”命令F8 扩展所选内容F9 更新选定域F10 激活菜单栏F11 前往下一个域F12 选择“文件”菜单中的“另存为”命令Shift+功能键Shift+F1 组合键启动上下文相关帮助或显示格式Shift+F2 组合键复制文本Shift+F3 组合键改变字母大小写Shift+F4 组合键重复“查找”或“定位”操作Shift+F5 组合键移动到上一处修订Shift+F6 组合键前往上一个窗格或框架Shift+F7 组合键选择“同义词库”命令(位于“工具”菜单的“语言”子菜单中)Shift+F8 组合键缩小所选内容Shift+F9 组合键在域代码和其结果之间进行切换Shift+F10 组合键显示快捷菜单Shift+F11 组合键前往上一个域Shift+F12 组合键选择“文件”菜单上的“保存”命令Ctrl+功能键Ctrl+F2 组合键选择“文件”菜单上的“打印预览”命令Ctrl+F3 组合键剪切至图文场Ctrl+F4 组合键关闭窗口Ctrl+F5 组合键还原文档窗口文档大小Ctrl+F6 组合键前往下一个窗口Ctrl+F7 组合键选择“控制”菜单上的“移动”命令Ctrl+F8 组合键选择“控制”菜单上的“大小”命令Ctrl+F9 组合键插入空域Ctrl+F10 组合键将文档窗口最大化Ctrl+F11 组合键锁定域Ctrl+F12 组合键选择“文件”菜单上的“打开”命令Ctrl+Shift+功能键Ctrl+Shift+F3 组合键插入图文场的内容Ctrl+Shift+F5 组合键编辑书签Ctrl+Shift+F6 组合键前往上一个窗口Ctrl+Shift+F7 组合键更新Word 源文档中链接的信息Ctrl+Shift+F8 组合键扩展所选区域或块(然后按箭头键)Ctrl+Shift+F9 组合键取消域的链接Ctrl+Shift+F10 组合键激活标尺Ctrl+Shift+F11 组合键取消对域的锁定Ctrl+Shift+F12 组合键选择“文件”菜单上的“打印”命令Alt+功能键Alt+F1 组合键前往下一个域Alt+F3 组合键创建自动图文集词条Alt+F4 组合键退出WordAlt+F5 组合键还原程序窗口大小Alt+F7 组合键查找下一处拼写或语法错误。

会计小写数字书写技能——大小写练习(账格)

会计小写数字书写技能——大小写练习(账格)

阿拉伯数字大小写书写实训
一、阿拉伯数字小写书写实训
实训1在表1-1账格中用规范化的阿拉伯数字书写。

会专业达到四级标准。

试试看你达到了几级?
一级2.5分钟以内完成;二级3分钟以内完成;
三级3.5分钟以内完成;四级4分钟以内完成。

实训4将下列中文大写数字写成阿拉伯数字。

(1)人民币贰拾柒元伍角肆分应写成
(2)人民币伍仟贰佰万零陆仟玖佰柒拾捌元整应写成
(3)人民币叁仟万零贰拾元整应写成
(4)人民币壹拾玖万零贰拾叁元整应写成
(5)人民币玖角捌分应写成
清晰、整齐、流畅、标准、规范和美观?
(1)
(2)
(3)
(4)
(5)
(6)
(7)
(8)
(9)
(10)。

word转换人民币金额大写

word转换人民币金额大写

word转换人民币金额大写word转换人民币金额大写word转换人民币金额大写宏在word中启用A lt+F11编辑宏,在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口,在代码编辑窗口中输入如下代码:Sub 小写金额变大写()Dim Numeric As Currency, IntPart As Long, DecimalPart As Byte, MyField As Field, Lable As StringDim Jiao As Byte, Fen As Byte, Oddment As String, Odd As String, MyChinese As StringConst ZWDX As String = "壹贰叁肆伍陆柒捌玖零"'定义一个中文大写汉字常量On Error Resume Next '错误忽略With SelectionNumeric = VBA.Round(VBA.Val(.Text), 2) '四舍五入保留小数点后两位'判断是否在表格中!!此处为向左MoveLeft移动3(count)个单元格(wdCell)If .Information(wdWithInTable) Then _.MoveLeft unit:=wdCell, Count:=3 Else .MoveRightunit:=wdCharacter'对数据进行判断,是否在指定的范围内If VBA.Abs(Numeric) > 2147483647 Then MsgBox "数值超过范围!", _vbOKOnly + vbExclamation, "Warning": Exit SubIntPart = Int(VBA.Abs(Numeric)) '定义一个正整数Odd = VBA.IIf(IntPart = 0, "", "元") '定义一个STRING变量'插入中文大写前的标签Lable = VBA.IIf(Numeric = VBA.Abs(Numeric), "合计金额大写: ", "合计金额大写: 负")'对小数点后面二位数进行择定DecimalPart = (VBA.Abs(Numeric) - IntPart) * 100Select Case DecimalPartCase Is = 0 '如果是0,即是选定的数据为整数Oddment = VBA.IIf(Odd = "", "", Odd & "整")Case Is < 10 '<10,即是零头是分Oddment = VBA.IIf(Odd <> "", "元零"& VBA.Mid(ZWDX, DecimalPart, 1) & "分", _VBA.Mid(ZWDX, DecimalPart, 1)& "分")Case 10, 20, 30, 40, 50, 60, 70, 80, 90 '如果是角整Oddment = "元" & VBA.Mid(ZWDX, DecimalPart / 10, 1) & "角整"Case Else '既有角,又有分的情况Jiao = VBA.Left(CStr(DecimalPart), 1) '取得角面值Fen = VBA.Right(CStr(DecimalPart), 1) '取得分面值Oddment = Odd & VBA.Mid(ZWDX, Jiao, 1) & "角" '转换为角的中文大写Oddment = Oddment & VBA.Mid(ZWDX, Fen, 1) & "分" '转换为分的中文大写End Select'指定区域插入中文大写格式的域Set MyField = .Fields.Add(Range:=.Range, Text:="= " & IntPart & " \*CHINESENUM2")MyField.Select '选定域(最后是用指定文本覆盖选定区域)'如果仅有角分情况下,Mychinese为""MyChinese = VBA.IIf(MyField.Result <> "零", MyField.Result, "").Text = Lable & MyChinese & OddmentEnd WithEnd Sub输入完毕后按下Alt+Q键返回word中,以后只需要依次选中需要转换的小写金额后,按下Alt+F8打开宏对话框,选择“小写金额变大写”宏,并单击“运行”即可快速地得出大写金额。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

Word中数字金额小写“变”大写有两招
在日常的办公应用中,尤其是作为一名财务人员,经常需要输入大写金额的形式的数字,“肆仟叁佰五拾元零伍分”,如果用手工输入的话,显得比较麻烦,其实只要通过输入小写数字并通过如下两招就能达到快速输入的目的。

第一招:釜底抽薪——自动更正法
如果需要重复的输入一个大写数字金额,可以采用自动更正的方法。

例如要重复输入“肆仟叁佰伍拾元零伍分”,可以先输入“肆仟叁佰伍拾元零伍分”并选中它,然后执行菜单“工具→自动更正选项”打开“自动更正”对话框(图1),在“替换”下的框内输入“4350.05”并单击“添加”按钮确定后退出,以后直接输入“4350.05”后回车即可快速得到“肆仟叁佰伍拾元零伍分”。

第二招:一劳永逸——编制自动宏
如果有许多小写金额要变成大写的话,用上面的自动更正的方法需要定义很多自动更正项,显然也比较麻烦,其实只需要编辑一个宏就能做到“一劳永逸”了。

启动Word后按下A
lt+F11组合键,在打开的工程窗口左侧双击“ThisDocument”进入代码编写窗口,在代码编辑窗口中输入如下代码:
Option Explicit
Sub 小写金额变大写()
Dim Numeric As Currency, IntPart As Long, DecimalPart As Byte, MyField As Field, Lable As String
Dim Jiao As Byte, Fen As Byte, Oddment As String, Odd As String, MyChinese As String
Const ZWDX As String = "壹贰叁肆伍陆柒捌玖零" ''定义一个中文大写汉字常量 On Error Resume Next ''错误忽略
With selection
Numeric = VBA.Round(VBA.Val(.Text), 2) ''四舍五入保留小数点后两位
''判断是否在表格中
If .Information(wdWithInTable) Then _
.MoveRight unit:=wdCell Else .MoveRight unit:=wdCharacter
''对数据进行判断,是否在指定的范围内
If VBA.Abs(Numeric) > 2147483647 Then MsgBox "数值超过范围!", _
vbOKOnly + vbExclamation, "Warning": Exit Sub
IntPart = Int(VBA.Abs(Numeric)) ''定义一个正整数
Odd = VBA.IIf(IntPart = 0, "", "圆") ''定义一个STRING变量
''插入中文大写前的标签
Lable = VBA.IIf(Numeric = VBA.Abs(Numeric), "人民币金额大写:", "人民币金额大写:负")
''对小数点后面二位数进行择定
DecimalPart = (VBA.Abs(Numeric) - IntPart) * 100
selectCase DecimalPart
Case Is = 0 ''如果是0,即是选定的数据为整数
Oddment = VBA.IIf(Odd = "", "", Odd & "整")
Case Is < 10 ''<10,即是零头是分
Oddment = VBA.IIf(Odd <> "", "圆零" & VBA.Mid(ZWDX, DecimalPart, 1) & "分", _
VBA.Mid(ZWDX, DecimalPart, 1) & "分")
Case 10, 20, 30, 40, 50, 60, 70, 80, 90 ''如果是角整
Oddment = "圆" & VBA.Mid(ZWDX, DecimalPart / 10, 1) & "角整"
Case Else ''既有角,又有分的情况
Jiao = VBA.Left(CStr(DecimalPart), 1) ''取得角面值
Fen = VBA.Right(CStr(DecimalPart), 1) ''取得分面值
Oddment = Odd & VBA.Mid(ZWDX, Jiao, 1) & "角" ''转换为角的中文大写
Oddment = Oddment & VBA.Mid(ZWDX, Fen, 1) & "分" ''转换为分的中文大写
End select
''指定区域插入中文大写格式的域
Set MyField = .Fields.Add(Range:=.Range, Text:="= " & IntPart & "
\*CHINESENUM2")
MyField.select''选定域(最后是用指定文本覆盖选定区域)
''如果仅有角分情况下,Mychinese为""
MyChinese = VBA.IIf(MyField.Result <> "零", MyField.Result, "")
.Text = Lable & MyChinese & Oddment
End With
End Sub
输入完毕后按下Alt+Q键返回word中,以后只需要依次选中需要转换的小写金额后,按下Alt+F8打开宏对话框,选择“小写金额变大写”宏(图2),并单击“运行”即可快速地得出大写金额。

运行该宏可以在选定的文本数据后面插入此金额大写,如果选定范围在表格中,则在右侧单元格中插入金额大写。

相关文档
最新文档