excel出货单金额下面一列怎么自动设置成大写金额

简介：在使用Excel时，出货单上面需要填写金额，而对于一些商业场景，要求出货单金额下面一列需要自动设置为大写金额。

那么如何在Excel中实现这一点呢？接下来，本文将详细说明Excel出货单金额下面一列怎么自动设置成大写金额。

内容导航：一、如何在Excel中设置数字转换成大写金额二、如何使用IF函数实现金额自动转换三、如何自定义函数实现大写金额转换并应用到表格中内容详情：一、如何在Excel中设置数字转换成大写金额在Excel中，可以通过“工具——>宏——>录制新宏”来设置数字转换为大写金额，具体步骤如下：1.打开Excel表格，在一个单元格内输入数字。

2.选中这个单元格，点击“工具——>宏——>录制新宏”。

3.在弹出的对话框中，输入自己想命名的宏名，比如“AmountToChinese”。

4.点击确定，然后先输入以下快捷键：Ctrl+Shift+U，接着在函数库里选择“中文大写”函数。

5.选中想要转换为大写金额的数字，然后再按一次“Ctrl + Shift + U”，就能够快速将数字转换为大写金额了。

二、如何使用IF函数实现金额自动转换在Excel中，可以通过使用IF函数来实现自动将金额转换为大写金额。

具体步骤如下：1.在出货单金额下面一列中，输入以下公式：=IF(A2“模块”。

3.在模块中输入下面的代码：Function ConvertInRMB(ByRef Num As Variant)Dim RMB, Head, Tail As StringDim intPos, FLength, i As IntegerDim DotPos As IntegerIf Not IsNumeric(Num) ThenRMB = "请输入有效数值"GoTo EndLineEnd IfIf Len(CStr(Num)) > 12 ThenRMB = "数值过大"GoTo EndLineEnd IfIf Num 999999999999.99 ThenRMB = "数值过大"GoTo EndLineEnd IfRMB = ""Head = ""Tail = ""IntNum = CLng(Num)If IntNum 999999999 ThenRMB = "数值过大"GoTo YuanEndEnd IfFLength = 2If InStr(1, CStr(Num), ".") 0 ThenFLength = Len(CStr(Num)) - (InStr(1, CStr(Num), ".") + 1)If FLength > 2 ThenFLength = 2End IfTail = "零"For i = 1 To FLengthTail = Tail & ConvertNums(Mid(CStr(Num), InStr(CStr(Num), ".") + i, 1)) & ""Next iTail = Left(Tail, Len(Tail) - 1)Num = Left(CStr(Num), InStr(1, CStr(Num), ".") - 1)End IfIf IntNum > 0 And IntNum 0 ThenHead = Head & ConvertNums(CLng(IntNum / (10 ^ i))) & ""Head = Head & ConvertW(i)IntNum = IntNum - (CLng(IntNum / (10 ^ i)) * (10 ^ i))ElseIf i = 4 And Len(Head & Tail) > 0 ThenHead = "" ' ' 处理4位以后的，重要在于保留两位小数后面的零，'tail 里的零，如果之前有则不用再次添加，因为加入后会多一个字。

End IfEnd IfEnd IfNext iEnd IfRMB = Head & "点" & Tail & ConvertNums(Num)YuanEnd:RMB = RMB & "元"EndLine:ConvertInRMB = RMBEnd FunctionFunction ConvertNums(ByVal Num As String) As StringSelect Case Val(Num)Case 0: ConvertNums = "零"Case 1: ConvertNums = "壹"Case 2: ConvertNums = "贰"Case 3: ConvertNums = "叁"Case 4: ConvertNums = "肆"Case 5: ConvertNums = "伍"Case 6: ConvertNums = "陆"Case 7: ConvertNums = "柒"Case 8: ConvertNums = "捌"Case 9: ConvertNums = "玖"Case Else: ConvertNums = ""End SelectEnd FunctionFunction ConvertW(ByVal Place As Integer) As StringSelect Case PlaceCase 0: ConvertW = "圆"Case 4: ConvertW = "万"Case 8: ConvertW = "亿"End SelectEnd Function4.按下F5，启动代码，重新打开Excel。

5.在Excel中，输入数字，然后选中大写金额单元格，输入“=ConvertInRMB(A2)”回车即可转换为大写的金额。

综上所述，要在Excel中实现出货单金额下面一列自动设置成大写金额，可以使用宏、IF函数和自定义函数等不同的方法，按照实际需求选择使用即可。