返回列表 上一主題 發帖

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

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

金額大寫樣式(一): 
20151225-01.GIF
2015-12-25 12:34


金額大寫樣式(二): 
20151225-02.GIF
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("P十拾百佰千仟", 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("P一壹二貳三參四肆五伍六陸七柒八捌九玖", 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)
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

        靜思自在 : 站在半路,比走到目標更辛苦。
返回列表 上一主題