阿拉伯数字转换器在线（小阿拉伯数字转换器）
阿拉伯数字转换器在线（小阿拉伯数字转换器）
在与报销单类似的财务单据填写过程中，我们除了要输入用阿拉伯数字表示的小写数字金额外，还要输入相应的中文大写数字。如果手工进行处理，不但输入时很繁琐，而且还很容易出错，经常会造成大小写不相符的情况发生。为此，我们可以利用VBA自定义一个函数，然后再利用这个自定义的函数来实现货币大小的自动转换。这样，不但方便快捷，而且不易出错。具体的操作步骤如下：
1. 启动Excel。按“Alt+F11”快捷键打开“Visual Basic编辑器”。
2. 在“Visual Basic编辑器”中，单击“插入”菜单栏中的“模块”命令，插入一个模块。双击左侧“工程”窗口中的“模块1”选项，在窗口右边展开“模块1（代码）”编辑窗口，然后输入如下代码:
Function dx(q)
Dim Cur as Long,yuan as Long
Dim Jiao as Integer,Fen as Integer
Dim CnYuan as String, CnJiao as String, CnFen as String
If q = "" Then
dx = 0
Exit Function
End If
Cur = Round(q * 100)
Yuan = Int(Cur / 100)
Jiao = Int(Cur / 10) - Yuan * 10
Fen = Cur - Yuan * 100 - Jiao * 10
CnYuan = Application.WorksheetFunction.Text(Yuan, "[DBNum2]")
CnJiao = Application.WorksheetFunction.Text(Jiao, "[DBNum2]")
CnFen = Application.WorksheetFunction.Text(Fen, "[DBNum2]")
dx = CnYuan "元" "整"
d1 = CnYuan "元"
If Fen 0 And Jiao 0 Then
dx = d1 CnJiao "角" CnFen "分"
If Yuan = 0 Then
dx = CnJiao "角" CnFen "分"
End If
End If
If Fen = 0 And Jiao 0 Then
dx = d1 CnJiao "角" "整"
If Yuan = 0 Then
dx = CnJiao "角" "整"
End If
End If
If Fen 0 And Jiao = 0 Then
dx = d1 CnJiao CnFen "分"
If Yuan = 0 Then
dx = CnFen "分"
End If
End If
End Function
输入完成后，关闭“Visual Basic编辑器”返回工作表。现在，我们可测试一下这个函数。首先，在A1单元格中输入一个小写数字的金额，例如123456.78，然后，在A2单元格中输入公式：=dx(A1)，确认后即可将A1所表示的小写数字金额转换为大写的数字金额，并在A2单元格中显示出来。怎么样，方便吧？
大写的换算：“数字大写转换对应大写表_小写转大写(红色字可选中复制使用) 0 =零 1 =壹 2 =贰 3 =叁 4 =肆 5 =伍 6 =陆 7 =柒 8 =捌 9 =玖 人民币大写-使用说明: 正确的大写金额数字为:壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿、元、角、分、零、整(正)。
金额大写转换器的使用说明：首先将小写数字填写或者复制到“输入小写数字金额”中。（不得用中文数字填写，必须使用用阿拉伯数字填写。）然后点击“转换为大写金额”的按钮，即可将输入的金额转换为大写数字。例如：输入“123456”，
点击转换按钮后即可自动转换为大写金额“壹拾贰万叁仟肆佰伍拾陆元整”。最后点击“复制到粘贴板”按钮，把转换完成的大写数字内容复制到所需填写的地方粘贴即可。
注意：输入的数字可以包含小数点（例如9999.99），也可以写成千进制（例如9,999.99），小写数字中的逗号和点必须是英文符号。
应该是壹拾万零肆仟柒佰元整
有个专门的网站，人民币大写转换器（在线将阿拉伯数字转换成中文大写、人民币大写转换工具）
网页链接
望采纳！
7002.02元大写写作，人民币柒仟零贰元零贰分
使用人民币大写在线转换工具得到对应大写汉字：
1、输入人民币金额的小写阿拉伯数字即可得到对应大写汉字。
2、转换方法：输入人民币金额的小写阿拉伯数字，例如198.35，即可得转换成汉字“壹佰玖拾捌元叁角伍分”。
在输入数字的时候，可以包含小数点。
3、人民币金额用到的中文大写汉字如下：零、壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿。
19980817用罗马数字表示为：I Ⅸ ⅨⅧ Ⅷ I Ⅶ
罗马数字没有0的，
1=I, 2=II, 3=III, 4=Ⅳ, 5=Ⅴ
6=Ⅵ, 7=Ⅶ, 8=Ⅷ, 9=Ⅸ, 10=Ⅹ
11=Ⅺ, 12=Ⅻ
office软件即可。
按住“ctrl+H”组合键,在弹出的“查找和替换”窗口上,光标点放在“查找内容”处,再点击“特殊格式”——任意字母；接下来,将鼠标点放在“替换为”处,点击“格式”——字体,设置好后,就点击全部替换,就完成了、
数字也是这样,不过是在“特殊格式”里选中“任意数字”,再点击“字体”.
