1、好用的公式-人民币大写的函数公式.txt 看一个人的的心术，要看他的眼神；看一个人的身价，要看他的对手；看一个人的底牌，要看他的朋友。明天是世上增值最快的一块土地，因它充满了希望。好用的公式-人民币大写的函数公式人民币大写的函数公式，可正负無條件捨去：=CONCATENATE(IF(A1 9.4, Application.Text(Int(j / 10), “DBNum2“) & “角“, IIf(y 0.4, “零“, “)c = IIf(f 1, “整“, Application.Text(Round(f, 0), “DBNum2“) & “分“)ldy888 = IIf(Abs(M) 0
2、.005, “, IIf(M 0, “负“ & A & b & c, A & b & c)End FunctionPublic Function dx(n)dx = Replace(Application.Text(Round(n+0.00000001, 2), “DBnum2“), “.“, “元“)dx = IIf(Left(Right(dx, 3), 1) = “元“, Left(dx, Len(dx) - 1) & “角“ & Right(dx, 1) & “分“, IIf(Left(Right(dx, 2), 1) = “元“, dx & “角整“, IIf(dx = “零“, “, dx & “元整“)dx = Replace(Replace(Replace(Replace(dx, “零元零角“, “), “零元“, “), “零角“, “零“), “-“, “负“)End Function
