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 的示例函数

1. 启动 Microsoft Excel。
2. 按 Alt+F11 启动 Visual Basic 编辑器。
3. 在“插入”菜单上，单击“模块”。
4. 在模块表中键入下面的代码。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

如何使用 SpellNumber 示例函数

要使用该示例函数将某数字更改为书面文本，请使用下列示例中演示的方法之一：

方法 1：直接输入

通过将下面的公式输入单元格中，可以将 32.50 更改为“Thirty Two Dollars and Fifty Cents”：

=SpellNumber(32.50)方法 2：单元格引用

可以引用工作簿中的其他单元格。例如，在单元格 A1 中输入数字 32.50，然后在另一单元格中键入下面的公式：

=SpellNumber(A1)方法 3：插入函数

要使用“插入函数”，请按照下列步骤操作：


Excel 2003：

1. 选择所需的单元格。
2. 单击“常用”工具栏中的“插入函数”。
3. 在“或选择类别”下，单击“用户定义”。
4. 在“选择函数”列表中，单击“SpellNumber”，然后单击“确定”。
5. 输入所需的数字或单元格引用，然后单击“确定”。

Excel 2007 和 2010：

1. 选择所需的单元格。
2. 单击“公式”功能区上的“插入函数”。
3. 在“或选择类别”下，单击“用户定义”。
4. 在“选择函数”列表中，单击“SpellNumber”，然后单击“确定”。
5. 输入所需的数字或单元格引用，然后单击“确定”。

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,,"零")),"零分","整")