Public Function 大写转换(Amountin) '数值转汉字元角分
    Application.Volatile
    On Error Resume Next
    大写转换= Replace(Application.Text(Round(Amountin + 0.00000001, 2), "[DBnum2]"), ".", "元")
    大写转换= IIf(Left(Right(大写转换, 3), 1) = "元", Left(大写转换, Len(大写转换) - 1) & "角" & Right(大写转换, 1) & "分", IIf(Left(Right(大写转换, 2), 1) = "元", 大写转换 & "角整", IIf(大写转换= "零", "", 大写转换 & "元整")))
    大写转换= Replace(Replace(Replace(Replace(大写转换, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function