直接上代碼，優化、需求等問題可以直接留言或私信溝通。

Function amountInWordsAbrr(amountInFigures As Variant) Dim amountInWord As String amountInFigures = Format(amountInFigures, "standard") amountInWord = Application.WorksheetFunction.Text(amountInFigures, "[dbnum2]") amountInWord = Replace(amountInWord, "-", "負") If CInt(Right(amountInFigures, 2)) = 0 ThenamountInWordsAbrr = amountInWord & "元整" ElseIf CInt(Right(amountInFigures, 2)) > 0 ThenamountInWord = Replace(amountInWord, ".", "元")If CInt(Right(amountInFigures, 1)) = 0 ThenamountInWordsAbrr = amountInWord & "角"ElseIf CInt(Right(amountInFigures, 2)) < 10 ThenamountInWordsAbrr = Left(amountInWord, Len(amountInWord) - 1) & Right(amountInWord, 1) & "分"ElseIf CInt(Right(amountInFigures, 2)) > 10 ThenamountInWordsAbrr = Left(amountInWord, Len(amountInWord) - 1) & "角" & Right(amountInWord, 1) & "分"End If End If End Function

?

總結

以上是生活随笔為你收集整理的VBA金额转换中文大写（原创新解版）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。