如何把阿拉伯數字轉變成貨幣大寫

❶ 如何把阿拉伯數字轉換成大寫數字

如果
阿拉伯數字
在
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。