钱小写数字怎么转换大写
在Excel中进行金额的大写数字转换时,可以通过自定义格式法、公式以及宏代码等方法来实现。具体步骤如下:
1.自定义格式法:
a.选中要转换成大写的金额数据,点击开始菜单,在“数字”选项组中找到“数字格式”按钮。
b.在弹出的“设置单元格格式”对话框中,选择“常规”或“货币”等分类,然后在“类型”下拉框中选择“[中文大写]C”,点击确定即可实现金额的大写转换。
2.公式法:
a.假设要将金额数字15263转换为大写数字,在单元格中输入以下公式:
=CONVERT(15263,"[$-804]0
General Number")
b.按下回车键,即可将该单元格中的金额数字转换为大写数字。
3.宏代码法:
a.按下“ALT+F11”进入VBA编辑器,然后依次点击“插入”、“模块”;
b.在编辑窗口中输入以下宏代码:
Function ConvertToChinese(Number As Double) As String
Dim N As String
N = Trim(Str(Number))
If N = "" Then Exit Function
If Left(N, 1) = "." Then N = "0" & N
If Right(N, 1) = "." Then N = N & "0"
N = Replace(N, ",", "")
If Len(N) > 12 Then
ConvertToChinese = "金额太大,无法计算!"
Exit Function
End If
If Not IsNumeric(N) Then
ConvertToChinese = "非数值型数据,无法计算!"
Exit Function
End If
Dim I As Integer, J As Integer
Dim S As String, T As String
J = 0
For I = 1 To Len(N) Step 1
J = J + 1
T = Mid(N, I, 1)
Select Case J
Case 1
S = CName(T) & BName(J)
Case 2, 5, 8, 11
Change S
If T = "0" And Len(N) <> J Then
S = CName(T)
Else
S = CName(T) & BName(J)
End If
Case 3, 6, 9, 12
If T <> "0" Then
Change S
S = CName(T) & BName(J)
Else
S = CName(T)
End If
Case 4, 7, 10
Change S
If T = "0" Then
S = "零"
Else
S = CName(T) & BName(J)
End If
End Select
Next I
S = Change(S)
ConvertToChinese = S
End Function
Function BName(B As Integer) As String
BName = ""
Select Case B
Case 1, 5, 9
BName = "亿"
Case 2, 6, 10
BName = "万"
End Select
End Function
Function CName(D As String) As String
CName = ""
Select Case D
Case "0"
CName = "零"
Case "1"
CName = "壹"
Case "2"
CName = "贰"
Case "3"
CName = "叁"
Case "4"
CName = "肆"
Case "5"
CName = "伍"
Case "6"
CName = "陆"
Case "7"
CName = "柒"
Case "8"
CName = "捌"
Case "9"
CName = "玖"
End Select
End Function
Function Change(S As String) As String
If Right(S, 1) = "零" Then S = Left(S, Len(S) 1)
Change = S
End Function
c.保存宏代码,关闭VBA编辑器。在Excel中的单元格中输入以下公式:
=ConvertToChinese(A1)
d.按下回车键,即可将A1单元格中的金额数字转换为大写数字。
在进行金额的大写数字转换时,还需要注意以下几点:
1.数字的大小写对应关系:0-零、1-壹、2-贰、3-叁、4-肆、5-伍、6-陆、7-柒、8-捌、9-玖、10-拾。
2.金额的大写数字中还有“佰”、“仟”、“万”、“亿”等单位,需要根据具体金额进行转换。
3.转换过程中如果出现小数部分,需要将小数部分转换成对应的汉字,如“点”、“角”、“分”等。
在Excel中进行金额的大写数字转换可以通过自定义格式法、公式法以及宏代码法来实现,根据具体需求选择合适的方法进行操作,即可将小写数字转换为大写汉字。
- 上一篇:博威合金有矿吗