(資料圖片僅供參考)

我有一個自定義函數(shù)，你看看合用不？Function 大寫(m)大寫 = IIf(m = "", "", IIf(m > -0.005, "", "負") & IIf(Abs(m) + 0.005 < 1, "", "計" & Application.Text(Int(Round(Abs(m), 2)), "[DBnum2]") & "元") & Application.Text(Right(100 * Round(m, 2), 2), "[dbnum2]0角0分"))大寫 = Replace(Replace(大寫, "零角", IIf(Abs(m) > 1 And Right(Round(100 * m, 0), 1), "零", "")), "零分", IIf(Round(m, 2), "整", ""))End Function 如果你不會用，給我留言