#小寫轉(zhuǎn)大寫的函數(shù)

Function?DX(M)
??'將小寫數(shù)字轉(zhuǎn)化為大寫金額
y?=?Int(Round(100?*?Abs(M))?/?100)
j?=?Round(100?*?Abs(M)?+?0.00001)?-?y?*?100
f?=?Round((j?/?10?-?Int(j?/?10))?*?10)
A?=?IIf(y?<?1,?"",?Application.Text(y,?"[DBNum2]")?&?"元")
b?=?IIf(j?>?9.4,?Application.Text(Int(j?/?10),?"[DBNum2]")?&?"角",?IIf(y?<?1,?"",?IIf(f?>?0.4,?"零",?"")))
c?=?IIf(f?<?1,?"整",?Application.Text(Round(f,?0),?"[DBNum2]")?&?"分")
DX?=?IIf(Abs(M)?<?0.005,?"",?IIf(M?<?0,?"負(fù)"?&?A?&?b?&?c,?A?&?b?&?c))
End?Function
#統(tǒng)計特定字符個數(shù)：

Public?Function?JISUAN(H_text_source?As?String,?H_special?As?String)?As?Integer
????'統(tǒng)計?H_text_source?里有幾個?H_special
????On?Error?GoTo?LL
????Dim?I?As?Integer
????JISUAN?=?0
????For?I?=?1?To?20?'Len(H_text_source)
??????If?WorksheetFunction.Find(H_special,?H_text_source)?Then
???????????H_text_source?=?Right(H_text_source,?(Len(H_text_source)?-?WorksheetFunction.Find(H_special,?H_text_source)))
???????????JISUAN?=?JISUAN?+?1
??????End?If
????Next
LL:
End?Function

轉(zhuǎn)載于:https://www.cnblogs.com/wangminbai/archive/2008/02/27/1083951.html

總結(jié)

以上是生活随笔為你收集整理的VBA自定义函数集锦[2]的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。