excel人民币金额大小写转换-excel表格金额大小写转换公式设置

excel表格金额大小写转换公式设置

把“（大写）：”调整到前面单元格，在需要填入金额的单元格中写入下面公式:=SUBSTITUTE(IF(N12,IF(N12<0,"负",)&TEXT(TRUNC(N12),"[dbnum2]g/通用格式元;[dbnum2]g/通用格式元;")&TEXT(RIGHT(RMB(N12),2),"[>9][dbnum2]0角0分;[>][dbnum2]0分;整"),"零元"),"零分","整")单元格格式调整为左对齐，注意的是公式中“N13”根据实际需写入大写数字的单元格修改。

怎么用Excel将小写金额转换成人民币的大写金额?

补充一下，hjj5118 的意思我明白了。综合tangjiangli的答案，我教hjj5118 做：第一步，打开已有的表格，同时把这个网页也打开，稍后能用到这个公式。因为公式太长，必须得用复制，粘贴的方法，才保准。第二步，复制公式，冒号后一个也不能落下。即：=SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"分",IF(ROUND(A1,2)=0,"","整")),"零元零",""),"零元","") 。第三步，双击进入A2，使A2单元格中有光标在闪，点粘贴。第四步，回车。

求Excel高手，人民币大小写转换问题。

假设在A1单元格输入数字，B1单元格显示人民币钱数。在B1单元格中输入：=IF(A1=0,零,(IF(TRUNC(A1)=0,,TEXT(TRUNC(A1),[DBNum2]G/通用格式)元))0,TRUNC(A1*10)-TRUNC(A1)*10=0,TRUNC(A1*100)-TRUNC(A1*10)*100),零,IF(AND(TRUNC(A1)0,TRUNC(A1*10)-TRUNC(A1)*10=0,TRUNC(A1*100)-TRUNC(A1*10)*10=0),整,IF(TRUNC(A1*10)-TRUNC(A1*10,-1)=0,,TEXT(TRUNC(A1*10)-TRUNC(A1*10,-1),[DBNum2]G/通用格式)角))))),TEXT(TRUNC(A1*100)-TRUNC(A1*10)*10,[DBNum2]G/通用格式)分)) 减少分位就行了

如何在Excel中将人民币大写金额转换成小写金额?

按如下步骤：选定大写形式的单元格－>右键点击，选择“设定单元格格式”－>特殊－>右侧选择“中文小写数字”－>确定，就OK了

怎么将人民币大写在excel 中转换成小写，使用什么公式

据我所知，公式还不能解决这个问题，下面给出EXCEL VBA解决方法：1、打开EXCEL 表，按下ALT + F11 ,双击 “ThisWorkbook”，如下图：2、按下 F5，静待代码运行结束，效果如下：3、需要注意的几个问题：①，运行代码前，请先备份好数据，代码会占用B列，若你原B列有数据，建议插入空列。②，大写按照标准来的，即万前必须有填，例如“贰拾零万”，不是“贰拾万”。③，代码以“元”来区分小写后的小数点，必须要有哟。Sub DaxieToXiao()    Dim XiaoNub As String    Dim i As Integer    For i = 2 To 100     If Cells(i, 1) <> "" Then        Dim n As Integer        For n = 1 To Len(Cells(i, 1))            If Right(Left(Cells(i, 1), n), 1) = "零" Then               XiaoNub = XiaoNub & "0"            End If            If Right(Left(Cells(i, 1), n), 1) = "壹" Then               XiaoNub = XiaoNub & "1"            End If            If Right(Left(Cells(i, 1), n), 1) = "贰" Then               XiaoNub = XiaoNub & "2"            End If            If Right(Left(Cells(i, 1), n), 1) = "叁" Then               XiaoNub = XiaoNub & "3"            End If            If Right(Left(Cells(i, 1), n), 1) = "肆" Then               XiaoNub = XiaoNub & "4"            End If            If Right(Left(Cells(i, 1), n), 1) = "伍" Then               XiaoNub = XiaoNub & "5"            End If            If Right(Left(Cells(i, 1), n), 1) = "陆" Then               XiaoNub = XiaoNub & "6"            End If            If Right(Left(Cells(i, 1), n), 1) = "柒" Then               XiaoNub = XiaoNub & "7"            End If            If Right(Left(Cells(i, 1), n), 1) = "捌" Then               XiaoNub = XiaoNub & "8"            End If            If Right(Left(Cells(i, 1), n), 1) = "玖" Then               XiaoNub = XiaoNub & "9"            End If            If Right(Left(Cells(i, 1), n), 1) = "元" Then               XiaoNub = XiaoNub & "."            End If        Next n        Cells(i, 2) = XiaoNub        XiaoNub = ""     End If    Next iEnd Sub

怎么用Excel将小写金额转换成人民币的大写金额?

假设A1中为数值123.45, 在B1中输入公式=SUBSTITUTE(SUBSTITUTE(IF(A1&lt;0,"负","")&amp;TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&amp;"元"&amp;IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBNum2]"))&amp;IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&amp;IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&amp;"分",IF(ROUND(A1,2)=0,"","整")),"零元零",""),"零元","")