(資料圖片僅供參考)

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