EXCEL函数(金额大小写转换)
10种Excel人民币小写转大写的函数公式
分享10种Excel人民币小写转大写的函数公式=TEXT(INT(A5),”[DBNum2]“)&”元”&TEXT(INT(A5*10)-INT(A5)*10,”[DBNum2]“)&”角”&TEXT(INT(A5*100)-INT(A5*10)*10,”[DBNum2]“)&”分”=IF(A5<0,REPLACE(IF(TRUNC(A5)=A5,TEXT(A5,”[DBNum2]“)&”元整”,IF(TRUNC(A5*10)=A5*10,TEXT(TRUNC(A5),”[DBNum2]“)&”元”&TEXT(RIGHT(A5),”[DBNum2]“)&”角整”,TEXT(TRUNC(A5),”[DBNum2]“)&”元”&IF(ISNUMBER(FIND(“.0″,A5)),”零”,TEXT(LEFT(RIGHT(A5,2)),”[DBNum2]“)&”角”)&TEXT(RIGHT(A5),”[DBNum2]“)&”分”)),1,1,”负”),IF(TRUNC(A5)=A5,TEXT(A5,”[DBNum2]“)&”元整”,IF(TRUNC(A5*10)=A5*10,TEXT(TRUNC(A5),”[DBNum2]“)&”元”&TEXT(RIGHT(A5),”[DBNum2]“)&”角整”,TEXT(TRUNC(A5),”[DBNum2]“)&”元”&IF(ISNUMBER(FIND(“.0″,A5)),”零”,TEXT(LEFT(RIGHT(A5,2)),”[DBNum2]“)&”角”)&TEXT(RIGHT(A5),”[DBNum2]“)&”分”)))=IF(A5<0,REPLACE(IF(TRUNC(A5)=A5,TEXT(A5,”[DBNum2]“)&”元整”,IF(TRUNC(A5*10)=A5*10,TEXT(TRUNC(A5),”[DBNum2]“)&”元”&TEXT(RIGHT(A5),”[DBNum2]“)&”角整”,TEXT(TRUNC(A5),”[DBNum2]“)&”元”&IF(ISNUMBER(FIND(“.0″,A5)),”零”,TEXT(LEFT(RIGHT(A5,2)),”[DBNum2]“)&”角”)&TEXT(RIGHT(A5),”[DBNum2]“)&”分”)),1,1,”负”),IF(TRUNC(A5)=A5,TEXT(A5,”[DBNum2]“)&”元整”,IF(TRUNC(A5*10)=A5*10,TEXT(TRUNC(A5),”[DBNum2]“)&”元”&TEXT(RIGHT(A5),”[DBNum2]“)&”角整”,TEXT(TRUNC(A5),”[DBNum2]“)&”元”&IF(ISNUMBER(FIND(“.0″,A5)),”零”,TEXT(LEFT(RIGHT(A5,2)),”[DBNum2]“)&”角”)&TEXT(RIGHT(A5),”[DBNum2]“)&”分”)))=IF(ISNUMBER(A5),IF(TRUNC(A5)=0,IF(AND(MID(TEXT(TRUNC(A5,2),”0.00″),LEN(TEXT (TRUNC(A5,2),”0.00″))-1,1)=”0″,RIGHT(TEXT(TRUNC(A5,2),”0.00″),1)=”0″),”零元”,”"),TEXT(TRUNC(A5),”[DBNUM2]“)&”元”)&(IF(MID(TEXT(TRUNC(A5,2),”0.00″),LEN(TEXT(TRUNC(A5,2),”0.00″))-1,1)=”0″,IF( OR(TRUNC(A5)=0,RIGHT(TEXT(TRUNC(A5,2),”0.00″),1)=”0″),”",”零”),TEXT(MID(A5,LEN(TEXT(TRUNC(A5,2),”0.00″))-1,1),”[DBNUM2]“)&”角”))&(IF(RIGHT(TEXT(TRUNC(A5,2),”0.00″),1)=”0″,”",TEXT(RIGHT(TEXT(TRUNC(A5,2) ,”0.00″),1),”[DBNUM2]“)&”分”)),IF(A5=”",”",”不是有效金额,请重新输入!”))=IF(ISNUMBER(A5),IF(TRUNC(A5)=0,IF(AND(MID(TEXT(TRUNC(A5,2),”0.00″),LEN(TEXT (TRUNC(A5,2),”0.00″))-1,1)=”0″,RIGHT(TEXT(TRUNC(A5,2),”0.00″),1)=”0″),”零元”,”"),(IF(A5<0,”负”,”"))&TEXT(TRUNC(ABS(A5)),”[DBNUM2]“)&”元”)&(IF(MID(TEXT(TRUNC(ABS(A5),2),”0.00″),LEN(TEXT(TRUNC(ABS(A5),2),”0.00″))-1 ,1)=”0″,IF(OR(TRUNC(ABS(A5))=0,RIGHT(TEXT(TRUNC(ABS(A5),2),”0.00″),1)=”0″),”",”零”),TEXT(MID(ABS(A5),LEN(TEXT(TRUNC(ABS(A5),2),”0.00″))-1,1),”[DBNUM2]“)&”角”))&(IF(RIGHT(TEXT(TRUNC(ABS(A5),2),”0.00″),1)=”0″,”",TEXT(RIGHT(TEXT(TRUNC( ABS(A5),2),”0.00″),1),”[DBNUM2]“)&”分”)),”不是有效金额,请重新输入!”)=IF(A5=0,”",CONCATENATE(IF(INT(A5)=0,”",TEXT(INT(A5),”[DBNum2]G/通用格式元”)),IF(INT(MID(RIGHT(FIXED(A5,2,1),2),1,1))=0,IF(INT(MID(RIGHT(FIXED(A5,2,1),1), 1,1))=0,”",IF(INT(A5)=0,”",”零”)),TEXT(INT(MID(RIGHT(FIXED(A5,2,1),2),1,1)),”[DBNum2]G/通用格式角”)),IF(INT(MID(RIGHT(FIXED(A5,2,1),1),1,1))=0,”整”,TEXT(INT(MID(RIGHT(FIXED(A5,2,1),1),1,1)),”[DBNum2]G/通用格式分”))))=IF(A5=0,”",CONCATENATE(IF(INT(ABS(A5))=0,”",TEXT(INT(ABS(A5)),”[DBNum2]G/通用格式元”)),IF(INT(MID(RIGHT(FIXED(ABS(A5),2,1),2),1,1))=0,IF(INT(MID(RIGHT(FIXED(A5,2 ,1),1),1,1))=0,”",IF(INT(ABS(A5))=0,”",”零”)),TEXT(INT(MID(RIGHT(FIXED(A5,2,1),2),1,1)),”[DBNum2]G/通用格式角”)),IF(INT(MID(RIGHT(FIXED(A5,2,1),1),1,1))=0,”整”,TEXT(INT(MID(RIGHT(FIXED(A5,2,1),1),1,1)),”[DBNum2]G/通用格式分”))))=IF(A5<0,”负”,”")&IF(TRUNC(A5)=A5,TEXT(IF(A5<0,-A5,A5),”[DBNum2]“)&”元整”,IF(TRUNC(A5*10)=A5*10,TEXT(TRUNC(IF(A5<0,-A5,A5)),”[DBNum2]“)&”元”&TEXT(RIGHT(A5),”[DBNum2]“)&”角整”,TEXT(TRUNC(A5),”[DBNum2]“)&”元”&IF(ISNUMBER(FIND(“.0″,A5)),”零”,TEXT(LEFT(RIGHT(A5,2)),”[DBNum2]“)&”角”)&TEXT(RIGHT(A5),”[DBNum2]“)&”分”))=IF(ISERROR(FIND(“.”,A5)),NUMBERSTRING(INT(A5),2)&”元整”,IF(ISERROR(NUMBERSTRING(MID(A5,FIND(“.”,A5)+2,1),2)),NUMBERSTRING(INT(A 5),2)&”元”&NUMBERSTRING(MID(A5,FIND(“.”,A5)+1,1),2)&”角”,NUMBERSTRING(INT(A5),2)&”元”&NUMBERSTRING(MID(A5,FIND(“.”,A5)+1,1),2)&”角”&NUMBERSTRING(MID(A5,FIND(“.”,A5)+2,1),2)&”分”))=IF(MOD(A5,1)=0,NUMBERSTRING(A5,2)&”元整”,IF(ISERROR(NUMBERSTRING(MID(A5,FIND(“.”,A5)+2,1),2)),NUMBERSTRING(INT(A 5),2)&”元”&NUMBERSTRING(MID(MOD(A5,1),3,1),2)&”角”,NUMBERSTRING(INT(A5),2)&”元”&NUMBERSTRING(MID(MOD(A5,2),3,1),2)&”角”&NUMBERSTRING(MID(ROUND(MOD(A5,1),3),4,1),2)&”分”))。
转大写金额
转大写金额数字大写对照表
Excel中小写金额自动转换成大写1、我们打开需要转换成大写金额的数据表；
2、用鼠标选中大写金额所在单元格列，再鼠标点击右键；
3、弹出下拉选项菜单后，选择“设置单元格格式”；
4、这时就会弹出一个新的“单元格格式”对话框；
5、在对话框的分类列表中，我们选择“特殊”选项；
6、然后在类型列表中，选择“人民币大写”，再点击“确认”按钮；
7、接下来，我们回到数据表格中，在大写金额B3单元格中，输入条件函数公式=IF(A3,A3,””)，按Enter回车键，就设置好了自动转化大写金额的函数公式了；
8、最后，鼠标放到B3单元格右下角，变成黑色十字架后，鼠标双击就将其他需要设置自动转换大写金额的公式设置好了；
9、我们在小写金额单元格中输入金额时，可以看到大写金额单元格中自动的就生成了大写金额了；。
EXCEL电子表格小写人民币转换成大写
EXCEL电子表格小写人民币转换成大写推荐公式1=IF(AND(A1<=-0.01,A1>=-0.99),"负","")&SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(A1),"[dbnum2]G/通用格式元;负[dbnum2]G/通用格式元")&TEXT(RIGHT(FIXED(A1),2),"[dbnum2]0角0分;[dbnum2]0角;[dbnum2]整"),"零角","零"),"零分",)推荐公式2=IF(AND(A1<=-0.01,A1>=-0.99),"负","")&TEXT(TRUNC(FIXED(A2)),"[dbnum2]g/通用格式元;负[dbnum2]g/通用格式元")&SUBSTITUTE(TEXT(RIGHT(FIXED(A2),2),"[=0][dbnum2]整;[<10][dbnum2]零0分;[dbnum2]0角0分"),"零分",)=SUBSTITUTE(IF(RIGHT(FIXED(A1)*100,2)*1=0,TEXT(FIXED(A1),"[dbnum2]")&"元整",SUBSTITUTE(SUBSTITUTE(REPLACE(TEXT(FIXED(A1),"[dbnum2]"),LEN(TEXT(FIX ED(A1),"[dbnum2]")),0,"角")&"分",".","元"),"零角","零")),"-","负") 此公式处理小于-0.99与-0.1之间的数据有问题补充1：EXCEL中隐藏了一个数字转大写的函数NUMBERSTRING，但它仅支持正整数，用中文版的朋友可以试试这个函数:=NUMBERSTRING(VALUE,TYPE)NumberString(1234567890,1) ＝一十二亿三千四百五十六万七千八百九十NumberString(1234567890,2) ＝壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾NumberString(1234567890,3) ＝一二三四五六七八九〇=IF(A1<0,"负",)&NUMBERSTRING(ABS(A1),2)&"元"&SUBSTITUTE(TEXT(MOD(ABS(A1)/1%,100),"[=0]整;[<10][dbnum2]零0分;[dbnum2]0角0分"),"零分",)角后面无分，后面可有“整”，也可无“整”，实际应用中，无“整”的情况更多一些。
excel转大写金额函数
excel转大写金额函数Excel转大写金额函数，也叫数字转大写中文函数，它可以把数字金额用中文汉字表示出来。
使用该函数的步骤很简单，比如：1.打开Excel文件，在“开发”菜单中点击“宏”菜单，然后点击“编辑”按钮。
2.在把以下代码复制到编辑窗口中：Function XNumToChn(Num As Double）Select Case NumCase 0：XNumToChn = "零"Case 1：XNumToChn = "壹"Case 2：XNumToChn = "贰"Case 3：XNumToChn = "叁"Case 4：XNumToChn = "肆"Case 5：XNumToChn = "伍"Case 6：XNumToChn = "陆"Case 7：XNumToChn = "柒"Case 8：XNumToChn = "捌"Case 9：XNumToChn = "玖"Case Else：XNumToChn = ""End SelectEnd Function3.保存代码，关闭窗口。
4.用此函数，在你需要的单元格上输入公式：=XNumToChn（你输入的数字）5.按下回车，该函数将把数字金额转换为大写金额。
以上是Excel转大写金额函数的使用步骤，很简单吧！它可以有效提升工作效率，避免了手动劳动，是一款极大的便利。
Excel转大写金额函数的实质是编程的一种应用。
因此，所有的Excel转大写金额函数，在把数字金额转换为大写金额时，都是根据特定的编程规则来进行的。
有了此函数，就不需要手动地一个个把数字金额换算成中文金额，使用此函数，可以把数字金额转换为直观的大写金额，十分便利。
将数字转为金额大写的函数(Excel)
Excel表格怎么自动换算金额大写
Excel表格怎么自动换算金额大写EXCEL表格怎么自动换算金额大写：A1是123.45,A2我怎么能出现壹佰贰拾叁元肆角伍分第一步，打开已有的表格，同时把这个网页也打开，稍后能用到这个公式。
因为公式太长，必须得用复制，粘贴的方法，才保准。
第二步，复制公式，冒号后一个也不能落下。
即：=SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(R OUND(A1,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROU ND(A1,2)),"[D BNum2]")&"分",IF(ROUND(A1,2)=0,"","整")),"零元零",""),"零元","") 。
第三步，双击进入A2，使A2单元格中有光标在闪，点粘贴。
第四步，回车。
2.如果没有小数点的，就直接在单元格右击-设置单元格格式-特殊-中文大写数字。
3. a列格式为数值-货币,b列格式为特殊-中文大写数字-自定义-格式后加上圆整函数:b1=a1EXCEL表格中怎么设置美元的大写金额1.比如说1.2美元输入自动变成“壹美元贰美分”这样。
Excel中金额大小写转换(四舍五入都OK)
Excel中金额大小写转换编制工程造价很有用编制EXCEL财务表也很有用Excel中金额大小写转换函数[=ntoc(单元格)]一、使用加载宏方法：对于有四舍五入都没问题啊“工具栏”→“宏”→“Visual Basic编辑器”，在“Visual Basic编辑器”中顶部选“插入”→“模块”，在“模块”对话框中选“通用”，并在编辑区域内粘贴以下内容：Function NtoC(n) 'n as singleConst cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"NtoC = ""n = Round(n, 2)sNum = Trim(Str(Int(n * 100)))For i = 1 To Len(sNum) '逐位转换NtoC = NtoC + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)NextFor i = 0 To 11 '去掉多余的零NtoC = Replace(NtoC, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))NextEnd Function然后单击“保存”，关闭“Visual Basic编辑器”，回到“工作表１”，输入函数“=NtoC(单元格)”即可。
例如在单元格A1输入：A1=222, 在单元格A2输入：A2=NTOC(A1) 即可，这样A1单元格输入的数变化，A2单元格的大写自动变化。
A2单元格最好进行单元锁定。
excel表格中数字自动变成人民币大写的函数
标题：excel表格中数字自动变成人民币大写的函数在许多日常工作中，我们经常会用到Microsoft Excel这一办公软件来处理数据和表格。
在处理涉及人民币金额的时候，通常需要将数字自动转换成人民币大写的形式，这不仅方便了数据的阅读和理解，也符合财务报表的要求。
下面介绍一种在Excel中实现这一功能的方法，希望对大家有所帮助。
1. 准备工作在使用Excel表格处理人民币金额时，首先需要保证表格中含有人民币金额的数字列。
假设我们要将A列的数字自动转换成人民币大写，我们可以将转换后的结果显示在B列。
2. 编写函数在B列的第一个单元格中，输入以下函数来实现将数字自动转换成人民币大写的功能：=人民币(A1)其中，A1代表了要转换的人民币金额所在的单元格，人民币()为自定义的转换函数名称，可以根据个人喜好进行修改。
3. 自定义函数在Excel中，默认并没有内置的函数来实现将数字转换成人民币大写的功能，因此需要通过自定义宏来实现。
以下是一个示例的自定义函数，供大家参考：Function 人民币(ByVal MyNumber) As StringDim Dollars, Cents, TempDim DecimalPlace, CountReDim place(9) As Stringplace(2) = " Thousand "place(3) = " Million "place(4) = " Billion "place(5) = " Trillion "' String representation of amount.MyNumber = Trim(Str(MyNumber))' Position of decimal place 0 if none.DecimalPlace = InStr(MyNumber, ".")' Convert cents and set MyNumber to dollar amount.If DecimalPlace > 0 ThenCents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) _ "00", 2))MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))End IfCount = 1Do While MyNumber <> ""Temp = GetHundreds(Right(MyNumber, 3))If Temp <> "" Then Dollars = Temp place(Count) Dollars If Len(MyNumber) > 3 ThenMyNumber = Left(MyNumber, Len(MyNumber) - 3)ElseMyNumber = ""End IfCount = Count + 1LoopSelect Case DollarsCase ""Dollars = "No Dollars"Case "One"Dollars = "One Dollar"Case ElseDollars = Dollars " 元"End SelectSelect Case CentsCase ""Cents = " and No Cents"Case "One"Cents = " and One Cent"Case ElseCents = " and " Cents " 分"End Select人民币 = Dollars CentsEnd FunctionFunction GetHundreds(ByVal MyNumber)Dim Result As StringIf Val(MyNumber) = 0 Then Exit FunctionMyNumber = Right("000" MyNumber, 3)If Mid(MyNumber, 1, 1) <> "0" ThenResult = GetDigit(Mid(MyNumber, 1, 1)) " 百"End IfIf Mid(MyNumber, 2, 1) <> "0" ThenResult = Result GetDigit(Mid(MyNumber, 2, 1)) " 十"ElseIf Mid(MyNumber, 1, 1) <> "0" And Mid(MyNumber, 2, 1) = "0" ThenResult = Result " 零"End IfEnd IfIf Mid(MyNumber, 3, 1) <> "0" ThenResult = Result GetDigit(Mid(MyNumber, 3, 1))End IfGetHundreds = ResultEnd FunctionFunction GetTens(TensText)Dim Result As StringResult = "" ' Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19... Select Case Val(TensText)Case 10: Result = "十"Case 11: Result = "十一"Case 12: Result = "十二"Case 13: Result = "十三"Case 14: Result = "十四"Case 15: Result = "十五"Case 16: Result = "十六"Case 17: Result = "十七"Case 18: Result = "十八"Case 19: Result = "十九"Case ElseEnd SelectElse ' If value between 20-99...Select Case Val(Left(TensText, 1))Case 2: Result = "二十 "Case 3: Result = "三十 "Case 4: Result = "四十 "Case 5: Result = "五十 "Case 6: Result = "六十 "Case 7: Result = "七十 "Case 8: Result = "八十 "Case 9: Result = "九十 "Case ElseEnd SelectResult = Result GetDigit _(Right(TensText, 1)) ' Retrieve ones place. End IfGetTens = ResultEnd FunctionFunction GetDigit(Digit)Select Case Val(Digit)Case 1: GetDigit = "一"Case 2: GetDigit = "二"Case 3: GetDigit = "三"Case 4: GetDigit = "四"Case 5: GetDigit = "五"Case 6: GetDigit = "六"Case 7: GetDigit = "七"Case 8: GetDigit = "八"Case 9: GetDigit = "九"Case Else: GetDigit = ""End SelectEnd Function4. 使用自定义函数在完成自定义函数的编写后，我们可以在B列的第一个单元格中输入=人民币(A1)，然后按下Enter键，即可看到A1单元格中的人民币金额被自动转换成人民币大写的形式，并显示在B1单元格中。