EXCEL电子表格小写人民币转换成大写.docxVIP

EXCEL电子表格小写人民币转换成大写推荐公式1=IF(AND(A1=-0.99),负,)&SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(A1),dbnum2G/通用格式元;负dbnum2G/通用格式元)&TEXT(RIGHT(FIXED(A1),2),dbnum20角0分;dbnum20角;dbnum2整),零角,零),零分,)推荐公式2=IF(AND(A1=-0.99),负,)&TEXT(TRUNC(FIXED(A2),dbnum2g/通用格式元;负dbnum2g/通用格式元)&SUBSTITUTE(TEXT(RIGHT(FIXED(A2),2),=0dbnum2整;10dbnum2零0分;dbnum20角0分),零分,)=SUBSTITUTE(IF(RIGHT(FIXED(A1)*100,2)*1=0,TEXT(FIXED(A1),dbnum2)&元整,SUBSTITUTE(SUBSTITUTE(REPLACE(TEXT(FIXED(A1),dbnum2),LEN(TEXT(FIXED(A1),dbnum2),0,角)&分,.,元),零角,零),-,负) 此公式处理小于-0.99与-0.1之间的数据有问题补充1：EXCEL中隐藏了一个数字转大写的函数NUMBERSTRING，但它仅支持正整数，用中文版的朋友可以试试这个函数:=NUMBERSTRING(VALUE,TYPE)NumberString(1234567890,1) 一十二亿三千四百五十六万七千八百九十NumberString(1234567890,2) 壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾NumberString(1234567890,3) 一二三四五六七八九=IF(A10,负,)&NUMBERSTRING(ABS(A1),2)&元&SUBSTITUTE(TEXT(MOD(ABS(A1)/1%,100),=0整;10dbnum2零0分;dbnum20角0分),零分,)角后面无分，后面可有“整”，也可无“整”，实际应用中，无“整”的情况更多一些。“整”也可写成“正”。补充2：在转换成大写金额前，最好用round(a1,2)将小写金额数字四舍五入保留两位小数。补充3：使用自定义函数的方法：Function DX(ByVal Num) 人民币中文大写函数 Application.Volatile True Place = 分角元拾佰仟万拾佰仟亿拾佰仟万 Dn = 壹贰叁肆伍陆柒捌玖 D1 = 整零元零零零万零零零亿零零零万 If Num 999999999999999# Then: DX = 超出转换范围!: Exit Function If Num = 0 Then: DX = 零元零分: 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 DX = FuHao & Trim(NumC)End Function使用自定义函数另外最简洁的方法如下:Function RMBDX(M) Y = Int(Round(100 * Abs(M) / 100) j = Round(100 * Abs(M) + 0.00001) - Y * 100 f = (j / 10 - Int(j / 10) * 10 A = IIf(Y 9.5, Application.Text(Int(j / 10), DBNum2) & 角, IIf(Y 1, 零, ) c = IIf(f 1, 整, Application.Text(Round(f, 0), DBNum2) & 分) RMBDX = IIf(Abs(M) 0.005, , IIf(M 0, 负 & A & B & c, A & B & c)End FunctionFunction rmbd(m) y = Int(Round(Abs(m), 2) 整数部分 j = Right(Round(Abs(m) * 100), 2) * 0.01 j1 = IIf(j 0.1 And j 0, 零 & Application.Text(j * 100, dbnum2) & 分, ) 零几分 j2 = IIf(Int(j * 10) = j * 10 And j 0, Application.Text(j * 10, dbnum2) & 角整, ) j3 = IIf(j = 0, 整, ) j4 = IIf(Int(j * 10) j * 10 And j 0.1, Application.Text(Int(j * 10), dbnum2) & 角 & Application.Text(