如何把阿拉伯数字转变成货币大写

❶ 如何把阿拉伯数字转换成大写数字

如果
阿拉伯数字
在
J20
，那么输入以下公式，转换为大写的元
角分
金额。
=
SUBSTITUTE
(SUBSTITUTE(IF(-RMB(J20,2),TEXT(J20,";负")TEXT(INT(ABS(RMB(J20,2))),"[dbnum2]G/通用格式元;;")TEXT(RIGHT(RMB(J20,2),2),"[dbnum2]0角0分;;整"),),"
零角
",IF(J20^2<1,,"零")),"
零分
","整")

❷ 在EXCEL中怎样使输入的数字生成人民币大写

Excel中使输入的数字生成大写，可在设置单元格格式中设置选择“中文大写数字”。

具体的操作步骤如下：

1、在电脑中打开相关的EXCEL表格，使用鼠标选中需要将数字转换为人民币大写的单元格，并在选中区域内点击鼠标右键，然后点击选择“设置单元格格式”。

❸ Excel如何把阿拉伯数字自动转换成大写金额(含元角分)

1、打开需要操作的excel表格，首先在A1单元格内输入需要转换成大写金额的数字，例如数字“879”。

❹ 阿拉伯数字 转换成 人民币大写

晕。Excel里通过设置单元格格式就可以实现，居然舍简求繁，服了你。

❺ 如何在excel中设置公式将数字转换为英文大写金额

这个需要VB代码：你需要复制代码——在EXCEL中按ALT+F11——插入——模块——粘贴代码——然后就可以使用函数Spellnumber了。

如：=Spellnumber(A1)

FunctionSpellNumber(ByValMyNumber)
DimDollars,Temp
DimDecimalPlace,Count
ReDimPlace(9)AsString
Application.VolatileTrue
Place(2)="THOUSAND"
Place(3)="MILLION"
Place(4)="BILLION"
Place(5)="TRILLION"
MyNumber=Trim(Str(MyNumber))
DecimalPlace=InStr(MyNumber,".")
IfDecimalPlace>0Then
Cents=GetTens(Left(Mid(MyNumber,DecimalPlace+1)&"00",2))
MyNumber=Trim(Left(MyNumber,DecimalPlace-1))
EndIf
Count=1
DoWhileMyNumber<>""
Temp=GetHundreds(Right(MyNumber,3))
IfTemp<>""ThenDollars=Temp&Place(Count)&Dollars
IfLen(MyNumber)>3Then
MyNumber=Left(MyNumber,Len(MyNumber)-3)
Else
MyNumber=""
EndIf
Count=Count+1
Loop
SelectCaseDollars
Case""
Dollars=""
Case"One"
Dollars="OneDollar"
CaseElse
Dollars="USDOLLARS"&Dollars
EndSelect
SpellNumber=Dollars
EndFunction
FunctionGetHundreds(ByValMyNumber)
DimResultAsString
IfVal(MyNumber)=0ThenExitFunction
MyNumber=Right("000"&MyNumber,3)
IfMid(MyNumber,1,1)<>"0"Then
Result=GetDigit(Mid(MyNumber,1,1))&"HUNDRED"
EndIf
IfMid(MyNumber,2,1)<>"0"Then
Result=Result&GetTens(Mid(MyNumber,2))
Else
Result=Result&GetDigit(Mid(MyNumber,3))
EndIf
GetHundreds=Result
EndFunction
FunctionGetTens(TensText)
DimResultAsString
Result=""
IfVal(Left(TensText,1))=1Then
SelectCaseVal(TensText)
Case10:Result="Ten"
Case11:Result="ELEVEN"
Case12:Result="TWELVE"
Case13:Result="THIRTEEN"
Case14:Result="FOURTEEN"
Case15:Result="FIFTEEN"
Case16:Result="SIXTEEN"
Case17:Result="SEVENTEEN"
Case18:Result="EIGHTEEN"
Case19:Result="NINETEEN"
CaseElse
EndSelect
Else
SelectCaseVal(Left(TensText,1))
Case2:Result="ANDTWENTY"
Case3:Result="ANDTHIRTY"
Case4:Result="ANDFORTY"
Case5:Result="ANDFIFTY"
Case6:Result="ANDSIXTY"
Case7:Result="ANDSEVENTY"
Case8:Result="ANDEIGHTY"
Case9:Result="ANDNINETY"
CaseElse
EndSelect
Result=Result&GetDigit_
(Right(TensText,1))
EndIf
GetTens=Result
EndFunction
FunctionGetDigit(Digit)
SelectCaseVal(Digit)
Case1:GetDigit="ONE"
Case2:GetDigit="TWO"
Case3:GetDigit="THREE"
Case4:GetDigit="FOUR"
Case5:GetDigit="FIVE"
Case6:GetDigit="SIX"
Case7:GetDigit="SEVEN"
Case8:GetDigit="EIGHT"
Case9:GetDigit="NINE"
CaseElse:GetDigit=""
EndSelect
EndFunction

❻ 在Excel 如何实现把阿拉伯数字变成大写人民币金额

所以就想了利用Excel函数公式自动转化成人民币大写金额。现在和大家分享一样：=IF(B9=1,TEXT(INT(ROUND(ABS(B9),2)),"[DBNum2]")&"元","")&IF(RIGHT(TEXT(B9,".00"),2)*1=0,"整",IF(RIGHT(TEXT(B9,".00"),4)*1>=1,IF(RIGHT(TEXT(B9,".00"),2)*1>9,"","零"),IF(ROUND(ABS(B9),2)>=1,"零",""))&IF(RIGHT(TEXT(B9,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(B9,".00"),2)),"[DBNum2]")&"角","")&IF(RIGHT(TEXT(B9,".00"))*1>0,TEXT(RIGHT(TEXT(B9,".00")),"[DBNum2]")&"分","整")))注：B9是填写的小写数字。

❼ 如何在电子表格中将阿拉伯数字转换为大写金额

1、演示使用的办公软件为Excel电子表格，演示所使用的版本为office家庭和学生版2016。