excel 如何将数字金额转换为中文大写金额的方法
时间:2023-03-07 22:35:37
很多朋友问到了在Excel中如何将小写的数字金额转换为中文大写的金额,在此,专门开一篇文章介绍这个问题。
实际上,这种数字转换的方法不止一种,在此,主要介绍两种转换方式。第一种,使用公式设定单元格格式,第二种,使用自定义函数。实际效果如下:
那么以下,就来说一下每种方式的具体操作过程。
第一种方式:使用公式
这种方式最为简单,不需要任何设定,只需要在目标单元格写入公式即可,以上图为例,在B2单元格写入如下公式即可:
=IF(INT(B1)=B1,TEXT(INT(B1),"[dbnum2]G/通用格式元整;;"),TEXT(INT(B1),"[dbnum2]G/通用格式元;;") & TEXT(RIGHT(RMB(B1,2),2),"[dbnum2]0角0分;;整"))
大体意思就是,把数据分成两部分来观测,第一部分为为整数,第二部分为小数,判断在不同情况下按照不同的自定义格式输出。
第二种方式:使用自定义函数
在VBA编辑器中插入一个模块,写入如下代码:
Public Function N2RMB(Number As Double) As String
If IsNull(Number) = True Then
N2RMB = "0"
Exit Function
End If
Dim j, k, l, last As Integer
Dim n As Double
Dim C1, C2, X As String
C1 = "零壹贰叁肆伍陆柒捌玖"
C2 = "分角元拾佰仟万拾佰仟亿拾佰"
last = 1
n = Round(Abs(Number), 2) * 100
l = Len(CStr(n))
last = 1
For j = 1 To Len(CStr(n))
'k为右边算起的第j位的数字
k = Mid(n, Len(CStr(n)) + 1 - j, 1)
If k > 0 Then
X = Mid(C1, k + 1, 1) & Mid(C2, j, 1) & X
last = 1
Else
Select Case j
Case 1
Case 3
X = "元" & X
Case 7
If Len(CStr(n)) < 11 Then
X = "万" & X
Else
If Mid(CStr(n), Len(CStr(n)) - 9, 4) <> "0000" Then
X = "万" & X
End If
End If
Case 11
X = "亿" & X
Case Else
If last = 1 Then
X = "零" & X
End If
End Select
last = 0
End If
If j = 2 And Right(n, 2) = 0 Then
X = X & "整"
End If
Next j
N2RMB = X
End Function
以上代码定义了一个全局自定义函数N2RMB()。调用该函数,可以直接把Excel单元格内部数据转化为中文的大写金额。
以开头的图片为例,用法如下:
在B3单元格输入:N2RMB(B1)即可。可以看到,此时函数提示里面已经自动把该自定义函数给列出来了。
比较以上两种方式,各有优劣。如果在单元格简单的数据转化上,那么使用公式比较省事。但如果涉及到复杂的输出,那么公式就会比较冗长,很容易出错。使用自定义函数的话工作簿需要保存为启用宏的工作簿,很多地方可能会被阻止,但用起来非常简洁。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
PowerPoint2013 PPT形状默认填充颜色修改
![](https://img.aspxhome.com/file/2023/10/a351224_0s.jpg)
WPS表格中如何求和?
mac移动硬盘不能写入该怎么办? mac移动硬盘不能写入的解决办法
![](https://img.aspxhome.com/file/2023/1/a214801_0s.jpg)
GIF动画教程:Excel高亮显示最大值或最小值
![](https://img.aspxhome.com/file/2023/3/a143173_0s.gif)
Win10如何显示隐藏文件?Win10显示隐藏文件的方法
![](https://img.aspxhome.com/file/2023/7/48707_0s.jpg)
PPT中怎么调出插图栏
![](https://img.aspxhome.com/file/2023/10/a350898_0s.png)
Excel STDEVP 函数 使用实例教程
![](https://img.aspxhome.com/file/2023/1/a162281_0s.png)
Win11系统怎么更新显卡驱动?
![](https://img.aspxhome.com/file/2023/1/a274763_0s.png)
PPT幻灯片中怎么加页眉页脚
wps表格怎么合并拆分单元格
![](https://img.aspxhome.com/file/2023/8/a164728_0s.jpg)
office2007不能另存为PDF或发布XPS的详细解决办法
![](https://img.aspxhome.com/file/2023/7/15477_0s.jpg)
强化的Office 2021来了,和金山办公软件WPS比谁更好用?
![](https://img.aspxhome.com/file/2023/2/16792_0s.jpg)
pavsched.exe是什么进程 pavsched进程查询
实用的调整WORD表格的快捷键
如何一键去除PPT中动画效果?如何保留PPT 中嵌入特殊字体?
![](https://img.aspxhome.com/file/2023/10/a351960_0s.jpg)
快视频app卸载不了怎么办?快视频app卸载不了的解决方法
![](https://img.aspxhome.com/file/2023/8/a334115_0s.jpg)
PS使用教程:如何在Photoshop中给图片添加水彩画纸滤镜特效?
![](https://img.aspxhome.com/file/2023/4/a202414_0s.jpeg)
win10我的IE图标怎么调出来
![](https://img.aspxhome.com/file/2023/1/a282004_0s.jpg)
如何利用PPT制作灯笼摇摆动画 实例教程
![](https://img.aspxhome.com/file/2023/10/a352414_0s.jpg)
怎么输入勾号叉号 word中输入“√”和“×” 的详细教程
![](https://img.aspxhome.com/file/2023/4/29184_0s.png)