Board logo

標題: [分享] 金額大寫轉換成阿拉伯數字(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("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) 

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




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