[分享] 金額大寫轉換成阿拉伯數字(VBA FUNCTION 自訂函數)

准提部林

金額大寫樣式（一）：　

下載 (7.53 KB)

2015-12-25 12:34

金額大寫樣式（二）：　

下載 (6.84 KB)

2015-12-25 12:34

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

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)　

測試檔下載：　
20151225a01(大寫金額轉阿拉伯數字).rar (7.83 KB)

下載次數: 42

2015-12-25 12:39