Excel人民幣大寫轉換函數

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

輸入數據驗證。

如圖所示。