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