數值轉成文字如「三千九百五十元」

數值轉成文字如「三千九百五十元」

瀏覽:1399
日期:2024-08-03
國數字 = Mid(tmp國字, 英數字 + 1, 1) 位名 = Mid(tmp位名, i, 1): If 英數字 = "0" Then 位名 = "" 結果 = 國數字 & 位名 & 結果 ... Debug.Print 轉國字("1502000") Debug.Print 轉國字("10000000000") Debug.Print 轉國字("100000000000000") End Sub Dim WoAll ......看更多