在Excel函数公式里面怎么把一个数字变成大写的

来源：本站整理作者：梦在深巷时间：2016-08-09 21:20:16

方法一：
Function 大写金额(N)
'数字转为大写金额，仅一个参数。
Application.Volatile
大写金额 = Replace(Application.Text(Round(N + 0.00000001, 2), "[DBnum2]"), ".", "元")
大写金额 = IIf(Left(Right(大写金额, 3), 1) = "元", Left(大写金额, Len(大写金额) - 1) & "角" & Right(大写金额, 1) & "分", IIf(Left(Right(大写金额, 2), 1) = "元", 大写金额 & "角整", IIf(大写金额 = "零", "", 大写金额 & "元整")))
大写金额 = Replace(Replace(Replace(Replace(大写金额, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function

将上面的自定义函数作为加载宏加载到你的EXCEL程序中,再插入函数“大写金额(N)”即可
方法二：
B1输入=IF(ROUND(A1,2)<0,"无效数值",IF(ROUND(A1,2)=0,"零",IF(ROUND(A1,2)<1,"",TEXT(INT(ROUND(A1,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10=0,IF(INT(ROUND(A1,2))*(INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"整",TEXT((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10),"[dbnum2]")&"分")))

本周热门

1

在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
2

Excel常用函数公式大全 2013/08/05
3

Excel怎么做表格 2013/03/06
4

excel求和出现#value是什么原因? 2016/08/18
5

excel表格中隔行选取的三种方法 2016/12/03
6

Excel怎么设置英文首字母大写 2020/08/24
7

Excel中将15位身份证号转换为18位 2014/07/08
8

怎么在EXCEL表格中的数字前统一加一个字母? 2016/08/08

本月热门

1

在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
2

Excel表格中每行数据下面插入一行的方法 2016/12/20
3

Excel常用函数公式大全 2013/08/05
4

excel求和出现#value是什么原因? 2016/08/18
5

Excel打印时每页都有表头设置方法 2015/05/13
6

excel表格的水平(分类)轴标签灰色不可编辑是什么原因? 2016/07/24
7

Excel中将15位身份证号转换为18位 2014/07/08
8

Excel中怎么在散点图中插入直线 2016/08/08
9

Excel表格中如何对比两列数字的大小? 2016/12/28
10

excel表格中隔行选取的三种方法 2016/12/03

在Excel函数公式里面怎么把一个数字变成大写的

相关推荐

本周热门

本月热门