人民币大写

Function 大写(CELL As String) As String '声明函数名，有一个参数
    Dim RMBS As String
    If CELL = "" Or Not IsNumeric(CELL) Then 大写 = "": Exit Function '如果参数为空或者非数值则返回空白
    If CELL = 0 Then 大写 = "零元整": Exit Function '如果参数为0则返回“零元整”
     '将数值转换成中文大写，并将点替换成“元”，将负号替换成“负”
    RMBS = Replace(Replace(Application.Text(Round(CELL, 2), "[DBnum2]"), ".", "元"), "-", "负")
    '加入角与分,同时将最后的“零”替换成“元整”
    RMBS = IIf(Left(Right(RMBS, 3), 1) = "元", _
                Left(RMBS, Len(RMBS) - 1) & "角" & Right(RMBS, 1) & "分", _
                IIf(Left(Right(RMBS, 2), 1) = "元", _
                RMBS & "角", IIf(RMBS = "零", "", RMBS & "元整")))
    '将“零元”和“零角”替换成空
    RMBS = Replace(Replace(RMBS, "零元", ""), "零角", "")
    大写 = RMBS '将变量的值赋与函数
End Function