实用Excel宏代码库.docxVIP

Function 人民币大写转换(M) y = Int(Round(100 * Abs(M)) / 100)?NT函数将数字向下舍入到最接近的整数，即取不大于自变量的最大整数，例如：int[6.4]=6 int[-9.7]= -10.y取的为数字的整数部分。（元） j = Round(100 * Abs(M) + 0.00001) - y * 100?j取的为小数部分（角） f = (j / 10 - Int(j / 10)) * 10?f为分， A = IIf(y 1, , Application.Text(y, [DBNum2]) 元)?IIf(expr, truepart, falsepart) b = IIf(j 9.5, Application.Text(Int(j / 10), [DBNum2]) 角, IIf(y 1, , IIf(f 1, 零, ))) c = IIf(f 1, 整, Application.Text(Round(f, 0), [DBNum2]) 分) 人民币大写转换 = IIf(Abs(M) 0.005, , IIf(M 0, 负 A b c, A b c))End Function为工作表瘦身（一）Sub CountShapes() Dim n As Double Dim ws As Worksheet Dim Co