Excel人民幣大寫轉換函式

方法

開啟Excel，在工作表上點選右鍵，選擇檢視程式碼。

點選插入。

點選模組。

輸入以下程式碼

Function d(q)ybb = Round(q * 100)'將輸入的數值擴大100倍，進行四捨五入y = Int(ybb / 100)'擷取整數部分j = Int(ybb / 10) - y * 10'擷取十分位f = ybb - y * 100 - j * 100'擷取百分位zy = Application.WorksheetFunction.Text(y, "[dbnum2]")'將整數部分轉為中文大寫zj = Application.WorksheetFunction.Text(j, "[dbnum2]")'將十分位轉為中文大寫zf = Application.WorksheetFunction.Text(f, "[dbnum2]")'將百分位轉為中文大寫d = zy & "元"If f <> 0 And j <> 0 Thend = d & zj & "角" & zf & "分"If y = 0 Thend = zj & "角" & zf & "分"End IfEnd IfIf f = 0 And j <> 0 Thend = d & zj & "角"If y = 0 Thend = zj & "角" End IfEnd IfIf f <> 0 And j = 0 Thend = d & zj & zf & "分"If y = 0 Then d = zf & "分" End IfEnd IfIf q = "" Then d = 0 '如果沒有輸入任何數值為0End If End Function

輸入資料驗證。

如圖所示。