excel數字翻譯成英文貨幣
1. 如何在excel中設置公式將數字轉換為英文大寫金額
使用數字轉英文貨幣大寫「自定義函數」，具體使用方法如下：
所需材料：Excel、數字轉英文貨幣大寫自定義函數（可通過網路復制粘貼）。
一、首先打開Excel表格文件，按Alt+F11打開VBA窗口，插入一個「模塊」。
2. 在EXCEL怎樣使數據格式化為帶美元貨幣符號
以Excel 2016為例，有以下步驟：
1、打開一個Excel工作表，如下圖所示：
3. 在excel中將數字金額變成中文大寫和英文金額
抄來的答案:
阿拉伯數字轉成中文大寫金額,其中A1為數字所在單元格,隨需要調整:
=IF(ISERROR(FIND(".",A1)),NUMBERSTRING(INT(A1),2)&"元整",IF(ISERROR(NUMBERSTRING(MID(A1,FIND(".",A1)+2,1),2)),NUMBERSTRING(INT(A1),2)&"元"&NUMBERSTRING(MID(A1,FIND(".",A1)+1,1),2)&"角整",NUMBERSTRING(INT(A1),2)&"元"&NUMBERSTRING(MID(A1,FIND(".",A1)+1,1),2)&"角"&NUMBERSTRING(MID(A1,FIND(".",A1)+2,1),2)&"分"))
4. EXCEL 中怎樣把數字直接轉換成英文
如何創建名為 SpellNumber 的示例函數- 啟動 Microsoft Excel。
- 按 Alt+F11 啟動 Visual Basic 編輯器。
- 在「插入」菜單上，單擊「模塊」。
- 在模塊表中鍵入下面的代碼。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=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="andNoCents"
Case"One"
Cents="andOneCent"
CaseElse
Cents="and"&Cents&"Cents"
EndSelect
SpellNumber=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
要使用該示例函數將某數字更改為書面文本，請使用下列示例中演示的方法之一：
方法 1：直接輸入通過將下面的公式輸入單元格中，可以將 32.50 更改為「Thirty Two Dollars and Fifty Cents」：
=SpellNumber(32.50)方法 2：單元格引用可以引用工作簿中的其他單元格。例如，在單元格 A1 中輸入數字 32.50，然後在另一單元格中鍵入下面的公式：
=SpellNumber(A1)方法 3：插入函數要使用「插入函數」，請按照下列步驟操作：
Excel 2003：
- 選擇所需的單元格。
- 單擊「常用」工具欄中的「插入函數」。
- 在「或選擇類別」下，單擊「用戶定義」。
- 在「選擇函數」列表中，單擊「SpellNumber」，然後單擊「確定」。
- 輸入所需的數字或單元格引用，然後單擊「確定」。
Excel 2007 和 2010：
- 選擇所需的單元格。
- 單擊「公式」功能區上的「插入函數」。
- 在「或選擇類別」下，單擊「用戶定義」。
- 在「選擇函數」列表中，單擊「SpellNumber」，然後單擊「確定」。
- 輸入所需的數字或單元格引用，然後單擊「確定」。
5. 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,,"零")),"零分","整")