excel表格數字轉英文貨幣大寫

Ⅰ excel中如何將阿拉伯數字自動轉換成英文大寫

具體公式如下：

1. B1公式下拉：

2. =SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";負")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式圓;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整")

Ⅱ 在excel中將貨幣數字轉換成大寫

我們都知道excel可以做很多會計上做的工作，excel小技巧也有很多，今天我們就來一起學習一個在excel中將貨幣數字轉換成大寫，具體方法如下：

1、分別選中E11、F11、G11單元格，依次輸入公式：=TEXT（INT（ABS（C10）），"[DBNum2]G/通用格式"）、=TEXT（INT（ABS（C10*10））-INT（ABS（C10））*10,"[DBNum2]G/通用格式"）、=TEXT（INT（ABS（C10*100）） -INT（ABS（C10*10））*10,"[DBNum2]G/通用格式"）。上述公式的含義是：分別確定統計結果的元、角、分的數值，並將其轉換為中文大寫格式。

2、選中E10單元格，輸入公式：=D11&E11&"元"&F11&"角"&G11&"分"或 =CONCATENATE（D11,E11,"元",F11,"角",G11, "分"）。上述公式的含義是：將D11至G11單元格中的文本組合為一個整體，並在相應位置加上單位“元、角、分”文字。

3、滑鼠左擊11行的行標，選中該行，右擊滑鼠，選“隱藏”選項，將11行隱藏起來，不影響正常列印。至此，轉換工作結束，效果如圖所示。

以上就是我們在excel中將貨幣數字轉換成大寫的方法，大家可以根據自己的需要來使用，同時也可以根據自己的聰明才智發現更多的小技巧。

Ⅲ excel怎麼把數字變成美元大寫

選擇單元格——右鍵彈框——設置單元格格式——會計專用——選擇US$

Ⅳ 在EXCEL中，怎樣把一串數值轉化為英文大寫金額，要按照以下格式

必須用VBA才能實現。
請補充：
（1）有美分時，百位和十位之間無AND，對吧？
（2）1234567.56的格式是什麼？即，百萬和十萬之間是否用AND。

根據https://www.thebalance.com/write-numbers-using-words-4083198的規則，修改了微軟提供的VBA代碼。
按Alt+F11，打開VBA窗口，點擊插入、模塊，將下列代碼復制過去，然後可以在工作表中用=SpellNumber(A1)或=SpellNumber(234.56)的形式進行轉換。代碼：
OptionExplicit
'MainFunction
FunctionSpellNumber(ByValMyNumber)
DimDollars,Cents,Temp
DimDecimalPlace,Count
ReDimPlace(9)AsString
Place(2)="Thousand"
Place(3)="Million"
Place(4)="Billion"
Place(5)="Trillion"
'Stringrepresentationofamount.
MyNumber=Trim(Str(MyNumber))
'Positionofdecimalplace0ifnone.
DecimalPlace=InStr(MyNumber,".")
'.
IfDecimalPlace>0Then
Cents=Right(MyNumber*100,2)*1
'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="NoDollars"
Case"One"
Dollars="OneDollar"
CaseElse
Dollars=Dollars&"Dollars"
EndSelect
SelectCaseCents
Case""
Cents="Only"
CaseElse
Cents="and"&Cents&"/100"&"Only"
EndSelect
SpellNumber="SAYU.S.DOLLARS"&Dollars&Cents
EndFunction
'Convertsanumberfrom100-999intotext
FunctionGetHundreds(ByValMyNumber)
DimResultAsString
IfVal(MyNumber)=0ThenExitFunction
MyNumber=Right("000"&MyNumber,3)
'Convertthehundredsplace.
IfMid(MyNumber,1,1)<>"0"Then
Result=GetDigit(Mid(MyNumber,1,1))&"Hundred"
EndIf
'Convertthetensandonesplace.
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'Ifvaluebetween10-19...
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'Ifvaluebetween20-99...
SelectCaseVal(Left(TensText,1))
Case2:Result="Twenty"
Case3:Result="Thirty"
Case4:Result="Forty"
Case5:Result="Fifty"
Case6:Result="Sixty"
Case7:Result="Seventy"
Case8:Result="Eighty"
Case9:Result="Ninety"
CaseElse
EndSelect
Result=Result&GetDigit_
(Right(TensText,1))'Retrieveonesplace.
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中設置公式將數字轉換為英文大寫金額

使用數字轉英文貨幣大寫「自定義函數」，具體使用方法如下：

所需材料：Excel、數字轉英文貨幣大寫自定義函數（可通過網路復制粘貼）。

一、首先打開Excel表格文件，按Alt+F11打開VBA窗口，插入一個「模塊」。

Ⅶ Excel直接把數字變成英鎊大寫

摘要 1.打開excel表格。

Ⅷ excel里如何把數字轉換成英文貨幣表達

看這里吧，微軟的幫助
http://support.microsoft.com/kb/213360

不過結果跟你的要求少有不同

=SpellNumber(200)
顯示
Two Hundred Dollars and No Cents

Ⅸ excel怎麼設置把金額自動轉化為英文大寫

使用公式
=SUBSTITUTE(SUBSTITUTE(IF(A1>-0.5%,,"負")&TEXT(INT(FIXED(ABS(A1))),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(FIXED(A1),2),"[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整")

Ⅹ EXCEL函數如何將數字轉化成英文大寫金額

B1公式下拉：

=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";負")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式圓;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整")