方法

打開Excel，在工作表上點(diǎn)擊右鍵，選擇查看代碼。

點(diǎn)擊插入。

點(diǎn)擊模塊。

輸入以下代碼

Function d(q)ybb = Round(q * 100)'將輸入的數(shù)值擴(kuò)大100倍，進(jìn)行四舍五入y = Int(ybb / 100)'截取整數(shù)部分j = Int(ybb / 10) - y * 10'截取十分位f = ybb - y * 100 - j * 100'截取百分位zy = Application.WorksheetFunction.Text(y, "[dbnum2]")'將整數(shù)部分轉(zhuǎn)為中文大寫zj = Application.WorksheetFunction.Text(j, "[dbnum2]")'將十分位轉(zhuǎn)為中文大寫zf = Application.WorksheetFunction.Text(f, "[dbnum2]")'將百分位轉(zhuǎn)為中文大寫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 '如果沒有輸入任何數(shù)值為0End If End Function

輸入數(shù)據(jù)驗(yàn)證。

如圖所示。

聲明：本網(wǎng)頁(yè)內(nèi)容旨在傳播知識(shí)，若有侵權(quán)等問題請(qǐng)及時(shí)與本網(wǎng)聯(lián)系，我們將在第一時(shí)間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com