標題: [分享] 金額大寫轉換成阿拉伯數字(VBA FUNCTION 自訂函數) [打印本頁]

---

作者: 准提部林    時間: 2015-12-25 12:39     標題: 金額大寫轉換成阿拉伯數字(VBA FUNCTION 自訂函數)

金額大寫樣式（一）：　
[attach]22969[/attach]

金額大寫樣式（二）：　
[attach]22970[/attach]

以下程式碼同時適用這兩種樣式：　

1. Function 大寫轉數字(xNumber$)
   
2. Dim N1%, N2%, NN, T, X%, i%
   
3. For i = Len(xNumber) To 1 Step -1
   
4. 　　T = Mid(xNumber, i, 1)
   
5. 　　X = InStr("Ｐ十拾百佰千仟", T): If X > 1 Then N1 = Int(X / 2): GoTo 101
   
6. 　　X = InStr("萬億兆", T): If X > 0 Then N2 = X * 4: N1 = 0: GoTo 101
   
7. 　　X = InStr("Ｐ一壹二貳三參四肆五伍六陸七柒八捌九玖", T)
   
8. 　　If X > 1 Then NN = NN + Int(X / 2) * (10 ^ N1) * (10 ^ N2)
   
9. 101: Next
   
10. 大寫轉數字 = NN
    
11. End Function

複製代碼

公式用法：=大寫轉數字(B2)　

測試檔下載：　
[attach]22971[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)