excel怎么设置把金额自动转化为英文大写?
Excel中利用numberstring公式将阿拉伯数字转换为大写数字
在段落里面就可以改咯!
然后在需要英文数字的地方输入公式=SpellNumber(A1),A1根据你数字的那个单元格进行修改。
就可以了。
'****************
' 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 = "U.S. Dollars Zero"
Case "One"
Dollars = "U.S. Dollars One"
Case Else
Dollars = "U.S. Dollars " & Dollars
End Select
Select Case Cents
Case ""
Cents = " and Cents Zero"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and Cents " & Cents
End Select
SpellNumber = “Say ” & Dollars & Cents & "Only***"
SpellNumber = UCase(SpellNumber)
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
使用公式
=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表格里怎么才能把求和数据小于200的设置成200
excel表格里怎么才能把求和数据小于200的设置成200你可以使用 Excel 的IF、SUM和MAX函数,将所有小于200的求和数据设置为200。具体的方法如下:1. 选中单元格,输入以下公式:=IF(SUM(选定区域)<200,200,SUM(选定
excel表怎么设置把所有内容打印在一页
Excel怎么设置把所有内容打印在一页纸?这个视频告诉你!
excel怎么把一个单元格内容全部显示出来
要在Excel中完全显示一个单元格的内容,可以通过调整列宽、更改字体大小或使用“自动换行”和“文本控制”功能来实现。1. 调整列宽:如果一个单元格的内容被切割或者显示不完整,有可能是因为列宽不够。要解决这个问题,只需将鼠标放在列标题的边界上,当鼠标变成双向箭头时,拖动以调整列宽。2. 更改字体...
excel怎么把小数点后数值显示成两位小数
(电脑型号:惠普 (HP) 暗影精灵8Pro,软件及版本号:WPS 11.1.0.13703) 1、打开需要处理的Excel表格。 2、选中单元格所在的列,点击鼠标右键,选择『设置单元格格式』。 3、选择数值,然后小数位数设置为2,最后点击『确定』。 4、返回编辑区后,就可以看到小数点的数值就显示两位小数了。 2 评论 分享 举报 生活...
excel怎么设置行高和列宽
excel设置行高和列宽的方法:工具/原料:Redmibook Pro15、Windows10、Excel2016 1、将excel表格打开之后,鼠标选中需要【调整列宽的单元格】,单击鼠标【右键】。2、在弹出来的菜单窗口中,找到【列宽】这个选项并点击。3、把列宽调整窗口打开之后,设置具体的【数值】,点击【确定】选项即可。4、鼠标选中...
excel中怎么把手机号码格式设置成11位
excel表格设置电话号码格式的方法图1 设置电话号码格式步骤3:选中需要设置电话号码格式的单元格,右键我的电脑,选择设置单元格格式 excel表格设置电话号码格式的方法图2 设置电话号码格式步骤4:选择自定义设置,将通用哪里输入000-0000-0000 点击保存 excel表格设置电话号码格式的方法图3 ...
excel怎么把数据设置成文本格式啊?
1、先在表格里面选中需要设置的单元格。2、选中了之后,右键单击鼠标点击设置单元格格式进入。3、进入到设置单元格格式界面后再数字分类里面点击文本并确定。4、然后在第一个单元格里面双击,都可以是第一个单元格生成前面带单引号的数字文本。5、然后将光标移到第一个单元格右下角,那光标变成一个十字...
Excel怎么 页面设置成横向,在一张纸上
具体操作步骤如下:1、打开需要相关的EXCEL表格,在上方工具栏中点击“页面布局”选项卡,然后找到并点击“纸张方向”。2、在纸张方向弹出的选项中点击选择“横向”即可将EXCEL表格在一张纸中设置为横向的。3、返回EXCEL表格,通过组合键Ctrl+P打开打印预览,在右侧打印预览中可看到页面纸张已成功设置为横向...
excel怎么把表格设置高宽
1、在表格最左边选定要修改行高的行,点右键,点行高。2、输入行高,点确定。3、在表格顶部选定要修改列宽的行,点右键,点列宽。4、输入列宽数值,点确定即可。
excel怎么把小数转换为万位分隔符?
按国际通用方法,Excel数字计数方式有一种“千分位分隔符”,但这种计数方式不太适合我们中国人的习惯,我们通常用“万”来计数。【实现方法】第1种方法:设置单元格格式 选择单元格或区域,右击,在弹出的快捷菜单中选择“设置单元格格式”,在打开的“设置单元格...
程紫欧佳: 方法如下:1、举例,如表12、在任意空格处输入数字10000,3、复制数字10000,选中需要换算的数据,右击,选择性黏贴,4、选择除,5、点击完成即可.
新抚区13310037058: excel输入数字自动转成银行标准格式大写金额 - ?
程紫欧佳: 选定Excel单元格,单击右键,设置单元格格式,在数字分类下选特殊----中文大写数字,点击确定就可以了.
新抚区13310037058: Excel中怎么实现小写金额自动转换成中文大写金额 - ?
程紫欧佳: 步骤如下: 1.将A列变为中文大写 2.输入公式如下: 3.往下填充,结果如下:
新抚区13310037058: 如何将Excel表格中的数字自动转化为中文大写 - ?
程紫欧佳: 1、打开Excel软件.2、将需要输入中文大写数字的单元格用鼠标拖成蓝色区域.3、按住”Ctrl+1“键,召唤出设置单元格窗口.4、在”分类“栏下选择”特殊“子栏,然后在”类型“栏下选择”中文大写数字“,并点击确认.5、在单元...
新抚区13310037058: 如何让excel 自动变化金额大小写 - ?
程紫欧佳: 假定小写金额在a1,在需要大写金额单元格就输入下面公式即可. ="大写金额:"&IF((A1-INT(A1))=0,TEXT(A1,"[DBNUM2]")&"元整",IF(INT(A1*10)-A1*10=0,TEXT(INT(A1),"[DBNUM2]")&"元"&TEXT((INT(A1*10)-INT(A1)*10),"[DBNUM2]")&"角整",TEXT(INT(A1),"[DBNUM2]")&"元"&IF(INT(A1*10)-INT(A1)*10=0,"零",TEXT(INT(A1*10)-INT(A1)*10,"[DBNUM2]")&"角")&TEXT(RIGHT(A1,1),"[DBNUM2]")&"分"))
新抚区13310037058: excel大小写转换 - ?
程紫欧佳: Excel自动转换数字大小写具体的操作步骤如下:1. 启动excel.按“alt+f11”快捷键打开“visual basic编辑器”.2. 在“visual basic编辑器”中,单击“插入”菜单栏中的“模块”命令,插入一个模块.双击左侧“工程”窗口中的“模块1”...
新抚区13310037058: 在Excel中如公式计算结果金额如何设置自动转为大写金额 - ?
程紫欧佳: 这个如果用函数应该是可以的! 不过设置起来很复杂!用IF语句设置.还要用到很多函数! 不过可以设置成大写,如1.25可以变成壹.贰伍,如果你需要这种可以简单实现.如果是那些就需要函数!
新抚区13310037058: Excel 如何输入小写金额对应的方格自动转换为大写 - ?
程紫欧佳: 1. 假设金额是A列小写、B列大写. 2. 设置B列单元格式:选中B列 →右键→左键单击单元格格式→“数字” → “特殊” → “中文大写数字” 3. 设置B列引用对应A列的行(在B列第一个如:B1需大写的单元格填入=A1后,此单元格下拉填充即可).
新抚区13310037058: Excel中怎么实现小写金额自动转换成中文大写金额 15000大写显示:壹万伍仟零佰零拾零元零角零分 - ?
程紫欧佳: 点单元格,右击,设置单元格格式--数字---特殊--中文大写数字
新抚区13310037058: excel金额大写能自动生成么 - ?
程紫欧佳: 在excel中有时需要把小字金额自动生成大写金额,具体操作如下:一、使用工具:excel2010 二、操作步骤:1、假设小字金额的单元格为A3,然后点击要生成的单元格,输入以下代码【=IF(ISNUMBER(A3),IF(INT(A3),TEXT(INT(A3),"[dbnum2]"...