Excel怎么将阿拉伯数字转换为中文大写数字
办公教程导读
收集整理了【Excel怎么将阿拉伯数字转换为中文大写数字】办公软件教程,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含750字,纯文字阅读大概需要2分钟。
办公教程内容图文
1、Excel自带的中文大写数字转换函数:
可以使用Excel的"外文函数"工具,选择它们中的"外文-中文-十进制转换",可以将阿拉伯数字直接转换为中文大写数字。
2、使用VBA代码实现:
可以自己编写一段VBA代码,来实现将阿拉伯数字转换为中文大写数字的功能,
以下是VBA代码:
Function translater(num As Variant) As String
Dim ch(), zero, midStr, firstChar
num = Trim(num) ' 去除空格
' 将阿拉伯数字转换为中文大写数字
ch = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")
zero = "零"
midStr = ""
For i = 1 To Len(num)
If Mid(num, i, 1) <> "0" Or i = Len(num) Then
midStr = midStr & ch(Val(Mid(num, i, 1)))
ElseIf i > 1 And Mid(num, i – 1, 1) <> "0" Then
midStr = midStr & zero
End If
Next
If Right(midStr, 1) = zero Then
translater = Left(midStr, Len(midStr) – 1)
Else
translater = midStr
End If
End Function
办公教程总结
以上是为您收集整理的【Excel怎么将阿拉伯数字转换为中文大写数字】办公软件教程的全部内容,希望文章能够帮你了解办公软件教程Excel怎么将阿拉伯数字转换为中文大写数字。
如果觉得办公软件教程内容还不错,欢迎将网站推荐给好友。