- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-19
|
[分享] 金額大寫轉換成阿拉伯數字(VBA FUNCTION 自訂函數)
金額大寫樣式（一）：
金額大寫樣式（二）：
以下程式碼同時適用這兩種樣式：
- Function 大寫轉數字(xNumber$)
- Dim N1%, N2%, NN, T, X%, i%
- For i = Len(xNumber) To 1 Step -1
- T = Mid(xNumber, i, 1)
- X = InStr("Ｐ十拾百佰千仟", T): If X > 1 Then N1 = Int(X / 2): GoTo 101
- X = InStr("萬億兆", T): If X > 0 Then N2 = X * 4: N1 = 0: GoTo 101
- X = InStr("Ｐ一壹二貳三參四肆五伍六陸七柒八捌九玖", T)
- If X > 1 Then NN = NN + Int(X / 2) * (10 ^ N1) * (10 ^ N2)
- 101: Next
- 大寫轉數字 = NN
- End Function
公式用法：=大寫轉數字(B2)
測試檔下載：
 20151225a01(大寫金額轉阿拉伯數字).rar (7.83 KB)
|
|
發表於 2015-12-25 12:39
| 
