在EXCEL中将数字转换为人民币大写的三种方式.doc

在EXCEL中将数字转换为人民币大写的三种方式鉴于EXCEL本身提供将数字转换为大写表示的功能根本不能正常应用在实际投标或财务应用之中，所以要自己建设，暂时找到了三种实现途径，经过测试均功能正常，还有一种是在书上找到的，懒得KEYIN进来了，反正也差不多了。 方法1，通过在EXCEL表格框（例如在“B1”单元）中直接输入以下公式： IF A1 0,金额为负无效, IF OR A1 0,A1 , 人民币 零元,IF A1 1, 人民币 ,TEXT INT A1 ,[dbnum2] 人民币 G/通用格式 元 IF  INT A1*10 -INT A1 *10 0,IF INT A1*100 -INT A1*10 *10 0,,零 , TEXT INT A1*10 -INT A1 *10,[dbnum2] 角 IF  INT A1*100 -INT A1*10 *10 0,整,TEXT INT A1*100 -INT A1*10 *10 ,[dbnum2] 分 然后在“A1”中输入数字，就可看到效果。 方法2，通过VBA（宏）输入转换公式: 点击菜单“工具”- “宏”- “VisualBasic编辑器”,在编辑器窗口中，点击菜单“插入”- “模块”，在出现的窗口中输入以下内容： Function daxie ByVal Num 人民币中文大写函数 Application.Volatile True Place 分角元拾佰仟万拾佰仟亿拾佰仟万 Dn 壹贰叁肆伍陆柒捌玖 D1 整零元零零零万零零零亿零零零万 If Num 0 Then FuHao （负） Num Format Abs Num , ###0.00 * 100 If Num 座机电话号码# Then: daxie 数字超出转换范围!!: Exit Function If Num 0 Then: daxie 零元零分: Exit Function NumA Trim Str Num NumLen Len NumA For J NumLen To 1 Step -1 数字转换过程 temp Val Mid NumA, NumLen - J + 1, 1 If temp 0 Then 非零数字转换 NumC NumC Mid Dn, temp, 1 Mid Place, J, 1 Else 数字零的转换 If Right NumC, 1 零 Then NumC NumC Mid D1, J, 1 Else Select Case J 特殊数位转换 Case 1 NumC Left NumC, Len NumC - 1 Mid D1, J, 1 Case 3, 11 NumC Left NumC, Len NumC - 1 Mid D1, J, 1 零 Case 7 If Mid NumC, Len NumC - 1, 1 亿 Then NumC Left NumC, Len NumC - 1 Mid D1, J, 1 零 End If Case Else End Select End If End If Next daxie 人民币 FuHao Trim NumC End Function 然后切换回excel,在“A2”单元中输入数字，在“B2”单元中输入：“ DaXie A2 ”，就可看到效果。 方法3，同样是通过VBA公式，方法同上，公式如下： Function daxie1 money As String As String Dim x As String, y As StringConst zimu .sbqwsbqysbqwsbq 定义位置代码Const letter 01座机电话号码sbqwy.zjf 定义汉字缩写Const upcase 零壹贰叁肆伍陆柒捌玖拾佰仟萬億圆整角分 定义大写汉字Dim temp As Stringtemp moneyIf InStr temp, . 0 Then temp Left temp, InStr temp, . - 1 If Len temp 16 Then MsgBox 数目太大，无法换算！请输入一亿亿以下的数字, 64, 错误提示: Exit Function 只能转换一亿亿元以下数目的货币！ x Format money, 0.00 格式化货币y For i 1 To Len x - 3y y Mid x, i, 1 Mid zimu, Len