把表格的貨幣數字變成英文
『壹』 如何把EXCEL里的合計數字金額變成英文的數字金額
自己去看微軟官方的幫助文件吧：http://support.microsoft.com/kb/213360
一沾vba我就頭暈 希望你能看的懂
這種功能 excel 基本功能並沒有提供 只能藉助vba程序來實現
希望對樓主有些幫助
『貳』 求在excel表中如何將數字轉換成英文貨幣大寫謝謝！
選中數字單元格，「格式」，「單元格」，「數字」選項卡，「分類」下選擇「會計專用」或「貨幣」均可。可以選擇各國貨幣符號。
『叄』 Excel中怎麼將一個單元格中的金額數字轉換成英文大寫金額
英文金額沒大寫，只有中國有大寫，你的意識是前面加美元或者英鎊的符號？單元格式裡面點貨幣，各種貨幣格式都有
『肆』 如何在excel中設置公式將數字轉換為英文大寫金額
使用數字轉英文貨幣大寫「自定義函數」，具體使用方法如下：
所需材料：Excel、數字轉英文貨幣大寫自定義函數（可通過網路復制粘貼）。
一、首先打開Excel表格文件，按Alt+F11打開VBA窗口，插入一個「模塊」。
『伍』 WPS表格文件裡面的阿拉伯數字怎麼能自動轉換成英文金額呢
有兩種方法可以把阿拉伯數字轉換成英文。
一、用公式比較復雜
="US DOLLARS "&UPPER(TRIM(IF(VALUE(RIGHT(INT(A1/1000000000),3))=0,"",LOOKUP(VALUE(LEFT(TEXT(RIGHT(INT(A1/1000000000),3),"000"),1)),{0,1,2,3,4,5,6,7,8,9;"","one","two","three","four","five","six","seven","eight","nine"})&IF(LEFT(TEXT(RIGHT(INT(A1/1000000000),3),"000"),1)="0"," "," hundred ")&IF(MID(TEXT(RIGHT(INT(A1/1000000000),3),"000"),2,1)="1",LOOKUP(VALUE(MID(TEXT(RIGHT(INT(A1/1000000000),3),"000"),2,2)),{10,11,12,13,14,15,16,17,18,19;"ten","eleven","twelve","thirteen","fourteen","fiifteen","sixteen","seventeen","eighteen","nineteen"}),LOOKUP(VALUE(MID(TEXT(RIGHT(INT(A1/1000000000),3),"000"),2,1)),{0,1,2,3,4,5,6,7,8,9;"","","twenty","thirty","fourty","fifty","sixty","seventy","eighty","ninety"}))&IF(MID(TEXT(RIGHT(INT(A1/1000000000),3),"000"),2,1)="1","",LOOKUP(VALUE(RIGHT(TEXT(RIGHT(INT(A1/1000000000),3),"000"),1)),{0,1,2,3,4,5,6,7,8,9;""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"}))&" billion ")&IF(VALUE(RIGHT(INT(A1/1000000),3))=0,"",LOOKUP(VALUE(LEFT(TEXT(RIGHT(INT(A1/1000000),3),"000"),1)),{0,1,2,3,4,5,6,7,8,9;"","one","two","three","four","five","six","seven","eight","nine"})&IF(LEFT(TEXT(RIGHT(INT(A1/1000000),3),"000"),1)="0"," "," hundred ")&IF(MID(TEXT(RIGHT(INT(A1/1000000),3),"000"),2,1)="1",LOOKUP(VALUE(MID(TEXT(RIGHT(INT(A1/1000000),3),"000"),2,2)),{10,11,12,13,14,15,16,17,18,19;"ten","eleven","twelve","thirteen","fourteen","fiifteen","sixteen","seventeen","eighteen","nineteen"}),LOOKUP(VALUE(MID(TEXT(RIGHT(INT(A1/1000000),3),"000"),2,1)),{0,1,2,3,4,5,6,7,8,9;"","","twenty","thirty","fourty","fifty","sixty","seventy","eighty","ninety"}))&IF(MID(TEXT(RIGHT(INT(A1/1000000),3),"000"),2,1)="1","",LOOKUP(VALUE(RIGHT(TEXT(RIGHT(INT(A1/1000000),3),"000"),1)),{0,1,2,3,4,5,6,7,8,9;""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"}))&" million ")&IF(VALUE(RIGHT(INT(A1/1000),3))=0,"",LOOKUP(VALUE(LEFT(TEXT(RIGHT(INT(A1/1000),3),"000"),1)),{0,1,2,3,4,5,6,7,8,9;"","one","two","three","four","five","six","seven","eight","nine"})&IF(LEFT(TEXT(RIGHT(INT(A1/1000),3),"000"),1)="0"," "," hundred ")&IF(MID(TEXT(RIGHT(INT(A1/1000),3),"000"),2,1)="1",LOOKUP(VALUE(MID(TEXT(RIGHT(INT(A1/1000),3),"000"),2,2)),{10,11,12,13,14,15,16,17,18,19;"ten","eleven","twelve","thirteen","fourteen","fiifteen","sixteen","seventeen","eighteen","nineteen"}),LOOKUP(VALUE(MID(TEXT(RIGHT(INT(A1/1000),3),"000"),2,1)),{0,1,2,3,4,5,6,7,8,9;"","","twenty","thirty","fourty","fifty","sixty","seventy","eighty","ninety"}))&IF(MID(TEXT(RIGHT(INT(A1/1000),3),"000"),2,1)="1","",LOOKUP(VALUE(RIGHT(TEXT(RIGHT(INT(A1/1000),3),"000"),1)),{0,1,2,3,4,5,6,7,8,9;""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"}))&" thousand ")&LOOKUP(VALUE(LEFT(TEXT(RIGHT(INT(A1),3),"000"),1)),{0,1,2,3,4,5,6,7,8,9;"","one","two","three","four","five","six","seven","eight","nine"})&IF(LEFT(TEXT(RIGHT(INT(A1),3),"000"),1)="0"," "," hundred ")&IF(MID(TEXT(RIGHT(INT(A1),3),"000"),2,1)="1",LOOKUP(VALUE(MID(TEXT(RIGHT(INT(A1),3),"000"),2,2)),{10,11,12,13,14,15,16,17,18,19;"ten","eleven","twelve","thirteen","fourteen","fiifteen","sixteen","seventeen","eighteen","nineteen"}),LOOKUP(VALUE(MID(TEXT(RIGHT(INT(A1),3),"000"),2,1)),{0,1,2,3,4,5,6,7,8,9;"","","twenty","thirty","fourty","fifty","sixty","seventy","eighty","ninety"}))&IF(MID(TEXT(RIGHT(INT(A1),3),"000"),2,1)="1","",LOOKUP(VALUE(RIGHT(TEXT(RIGHT(INT(A1),3),"000"),1)),{0,1,2,3,4,5,6,7,8,9;""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"}))&IF(VALUE(RIGHT(TEXT(A1,"0.00"),2))=0,""," AND CENTS "&IF(VALUE(RIGHT(TEXT(A1,"0.00"),2))<20,LOOKUP(VALUE(RIGHT(TEXT(A1,"0.00"),2)),{0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19;"","one","two","three","four","five","six","seven","eight","nine","ten","eleven","twelve","thirteen","fourteen","fiifteen","sixteen","seventeen","eighteen","nineteen"}),LOOKUP(VALUE(LEFT(RIGHT(TEXT(A1,"0.00"),2),1)),{2,3,4,5,6,7,8,9;"twenty","thirty","fourty","fifty","sixty","seventy","eighty","ninety"})&" "&LOOKUP(VALUE(RIGHT(TEXT(A1,"0.00"),1)),{0,1,2,3,4,5,6,7,8,9;"","one","two","three","four","five","six","seven","eight","nine"})))&" ONLY"))
『陸』 excel中如何將數字轉換成英文貨幣
EXCEL中將人民幣更換成美元操作方法如下：
一、選中所要更改在的單元格區域；
二、右擊單元格區域，並在下拉菜單中點擊「設置單元格格式」（或者使用快捷鍵Ctrl+1）；此時「設置單元格格式」對話框打開；
三、在「設置單元格格式」對話框里選擇「數字」按鈕；此時「數字」出現下拉框；
四、在「數字」出現下拉框里選擇「貨幣」；
五、在「貨幣」的對話框里將人民幣符號更改為美元符號，並點擊保存即可。如下圖所示：
『柒』 請問在excel表格中，怎樣把錢數由數字變換成英文單詞表示，比如說456，直接轉換成four hundred fivty-six
這個有點麻煩哦。不過做一次，以後一勞永逸。
啟動 Microsoft Excel。
按 Alt+F11 啟動 Visual Basic 編輯器。
在「插入」菜單上，單擊「模塊」。
在模塊表中鍵入下面的代碼。
Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert cents and set MyNumber to dollar amount.
If DecimalPlace > 0 Then
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumber = Dollars & Cents
End Function
' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function
' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If value between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function
' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function
如何使用 SpellNumber 示例函數要使用該示例函數將某數字更改為書面文本，請使用下列示例中演示的方法之一：方法 1：直接輸入通過將下面的公式輸入單元格中，可以將 32.50 更改為「Thirty Two Dollars and Fifty Cents」：
=SpellNumber(32.50)
方法 2：單元格引用可以引用工作簿中的其他單元格。例如，在單元格 A1 中輸入數字 32.50，然後在另一單元格中鍵入下面的公式：
=SpellNumber(A1)
方法 3：粘貼函數或插入函數可以使用「粘貼函數」（在 Excel 2000 和 Excel 2002 中）或「插入函數」（在 Excel 2003 中）來將自定義函數輸入工作表中。Excel 2000 和 Excel 2002要使用「粘貼函數」，請按照下列步驟操作：
選擇所需的單元格。
單擊「常用」工具欄中的「粘貼函數」。
在「函數類別」下，單擊「用戶定義」。
在「函數名稱」下，單擊「SpellNumber」，然後單擊「確定」。
輸入所需的數字或單元格引用，然後單擊「確定」。
單擊「完成」。
Excel 2003要使用「插入函數」，請按照下列步驟操作：
選擇所需的單元格。
單擊「常用」工具欄中的「插入函數」。
在「或選擇類別」下，單擊「用戶定義」。
在「選擇函數」列表中，單擊「SpellNumber」，然後單擊「確定」。
輸入所需的數字或單元格引用，然後單擊「確定」。
『捌』 EXCEL里如何把數字金額轉換成英文金額
選擇要轉的單元格，右鍵，設置單元格格式，數字，分類里的貨幣項，裡面有你要的配置。
『玖』 excel里如何把數字轉換成英文貨幣表達
看這里吧，微軟的幫助
http://support.microsoft.com/kb/213360
不過結果跟你的要求少有不同
=SpellNumber(200)
顯示
Two Hundred Dollars and No Cents
『拾』 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」，然後單擊「確定」。
- 輸入所需的數字或單元格引用，然後單擊「確定」。