b = b - 1 If Mid(tmp1, a, 1) <> "" Then If b > UBound(str2Ary) Then Exit For tmp2 = tmp2 & Mid(tmp1, a, 1) & str2Ary(b) End If Next If tmp2 = "" Then CurrencyToStr = "": Exit Function ''〓下面为非正式财务算法，可以去掉〓 For a = 1 To Len(tmp2) tmp2 = Replace(tmp2, "零亿", "亿零") tmp2 = Replace(tmp2, "零万", "万零") tmp2 = Replace(tmp2, "零仟", "零") tmp2 = Replace(tmp2, "零佰", "零") tmp2 = Replace(tmp2, "零拾", "零") tmp2 = Replace(tmp2, "零元", "元") tmp2 = Replace(tmp2, "零零", "零") tmp2 = Replace(tmp2, "亿万", "亿") Next ''〓上面为非正式财务算法，可以去掉〓 If Point = 1 Then tmp2 = "零元" + tmp2 If Number < 0 Then tmp2 = "负" + tmp2 If Point = 0 Then tmp2 = tmp2 + "整" CurrencyToStr = tmp2 End Function ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ Cell 属性的使用： Cell 的作用是给以选定区块的特定的设置值，具体值可参阅相应属性值。 语法：Cell(条件准则, Row1, Col1, Row2, Col2) = 相应准则值 其中的“条件准则”有以下准则常数，根据准则的不同而设置相应准则的值： flexcpAlignment 对齐方式 flexcpBackColor 背景色 flexcpChecked 选择框 flexcpCustomFormat 格式设置 flexcpData 日期
精品推荐