Excel如何把阿拉伯数字自动转换成大写金额(含元角分)
你选中要改成大写单元，右击选择设置单元格格式，然后选择数字，在数字选项中选择特殊，特殊项中选择中文大写数字就可以了。
Sub 财务大写()
Selection.NumberFormatLocal = "0.00"
For Each cell In Selection
cell.Offset(0, 1).Value = exchange(cell.Value)
Next cell
End Sub
Function exchange(money)
Dim yuan As Long
Dim jiao As Long
Dim fen As Long
yuan = Int(Round(100 * Abs(money)) / 100)
jiao = Round(100 * Abs(money) + 0.00001) - yuan * 100
fen = Round((jiao / 10 - Int(jiao / 10)) * 10)
If yuan < 1 Then
A = ""
Else
A = Application.Text(yuan, "[dbnum2]") & "元"
End If
If jiao > 9.4 Then
B = Application.Text(Int(jiao / 10), "[dbnum2]") & "角"
Else
If yuan < 1 Then
B = ""
Else
If fen > 0.4 Then
B = "零"
Else
B = ""
End If
End If
End If
If fen < 1 Then
C = "整"
Else
C = Application.Text(Round(fen, 0), "[dbnum2]") & "分"
End If
If Abs(money) < 0.005 Then
exchange = ""
Else
If money < 0 Then
exchange = "负" & A & B & C
Else
exchange = A & B & C
End If
End If
End Function
1、打开需要操作的excel表格，首先在A1单元格内输入需要转换成大写金额的数字，例如数字“879”。
2、然后在B1单元格内输入“=”符号，用来引用计算数值的单元格。
3、继续输入完整的转换公式：
=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,,"零")),"零分","整")。
4、最后点击回车按键，即可生成公式的计算结果：数字“879”被转换成为“捌佰柒拾玖元整”。
选中所有需要使用大写数字的单元格，单击鼠标右键，在弹出的快捷菜单中执行“设置单元格格式”命令，在弹出的“单元格格式”对话框中选择“数字”选项卡，在“分类”列表框中选择“特殊”选项，然后在右侧的“类别”列表框中选中“人民币大写”，单击“确定”按钮。
方法一：右键单元格，设置单元格格式－数字－特殊－中文大写数字
方法二：左键单元格，在上方输入栏输入以下文本=SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"分",IF(ROUND(A1,2)=0,"","整")),"零元零",""),"零元","")
你选中要改成大写单元，右击选择设置单元格格式，然后选择数字，在数字选项中选择特殊，特殊项中选择中文大写数字就可以了。
别人的，你试试...
=SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"分",IF(ROUND(A1,2)=0,"","整")),"零元零",""),"零元","")
肥征烧伤： 用内置函数numbeistring,或者用代码定义数字格式都可以达到把阿拉伯数字转换成大写数字的目的.1、numbeistring的用法如下,假设需要转换的数字位于A1,公式为=numberstring(A1,2),要注意的是,numberstring转换成数字不包括小数...
华亭县15829563566： Excel中如何用公式将阿拉伯数字转换为中文小写数字.如图. - ？
肥征烧伤： B1=SUBSTITUTE(TEXT(A1,＂[DBNum1][$-804]G/通用格式＂),＂一十＂,＂十＂) 下拉即可
华亭县15829563566： 在Excel中如何把阿拉伯数字自动转换成大写数字? - ？
肥征烧伤： 对要设置的单元格,点右键选择＂设置单元格格式＂,出现＂单元格格式对话框＂,选择数字模块中的＂特殊＂,然后在类型框中,出现＂邮政编码...
华亭县15829563566： EXCEL大小写自动转换 - ？
肥征烧伤： =IF(R16=0,＂＂,CONCATENATE(IF(INT(ABS(R16))=0,＂＂,TEXT(INT(ABS(R16)),＂[DBNum2]G/通用格式元＂)),IF(INT(MID(RIGHT(FIXED(ABS(R16),2,1),2),1,1))=0,IF(INT(MID(RIGHT(FIXED(R16,2,1),1),1,1))=0,＂＂,IF(INT(ABS(R16))=0,＂＂...
华亭县15829563566： excel有没有公式可以把小写阿拉伯数字转换成中文大写数字的? - ？
肥征烧伤： 可以通过数据格式设置来实现:步骤如下:特殊 点击单元格--单击数鼠标右键---单元格格式----数字---特殊----中文大写数字
华亭县15829563566： 在excel 中,如何把中文小写数字自动转化为阿拉伯数字?如: 五十五 55 六十 60 - ？
肥征烧伤： =SUMPRODUCT((TEXT(ROW($1:$10000),＂[DBNum1]＂)=A1)*ROW($1:$10000))
华亭县15829563566： 怎样在Excel电子表格中把阿拉伯数字转换成大写 - ？
肥征烧伤： 选中要转换的数据 选择菜单栏中 “格式” 菜单下的 “单元格” 或者直接右击鼠标 选择 “设置单元格格式” 选择 ”设置单元格“ 子菜单上的 “特殊” 选项下有 中文大写数字 和 中文小写数字 两种选项 按自己的需要选择后点击“确定”就可以实现阿拉伯数据和中文小写和大写之间的转换了 还可以转换成大写中文写法哦,对于财务人员来说这是大爱哦6 如果要把单元格转换回常规数字格式,仍然在单元格设置的子菜单中设置,选择需要的数字格式,就可以重新输入数字了
华亭县15829563566： 如何将Excel表格中的数字自动转化为中文大写 - ？
肥征烧伤： 1、打开Excel软件.2、将需要输入中文大写数字的单元格用鼠标拖成蓝色区域.3、按住”Ctrl+1“键,召唤出设置单元格窗口.4、在”分类“栏下选择”特殊“子栏,然后在”类型“栏下选择”中文大写数字“,并点击确认.5、在单元...
华亭县15829563566： excel怎样把阿拉伯数字自动换为大写 - ？
肥征烧伤： 选中单元格,直接设置为“特殊”格式中的“中文大写数字”格式即可
华亭县15829563566： excel中如何将阿拉伯数字自动转换成英文大写? - ？
肥征烧伤： 自订函数的使用方法和内建函数大同小异.使用插入函数的方式来使用该函数: <一> 插入函数的方式可以从功能表的插入>>函数 或 一般工具列的自动加总旁按下拉式选单选其他函数 或 资料编辑列上的 Fx 按钮 以上三种方法皆可插入函数. <...
