1、在與報(bào)銷單類似的財(cái)務(wù)單據(jù)填寫過程中，我們除了要輸入用阿拉伯?dāng)?shù)字表示的小寫數(shù)字金額外，還要輸入相應(yīng)的中文大寫數(shù)字。
2、如果手工進(jìn)行處理，不但輸入時(shí)很繁瑣，而且還很容易出錯(cuò)，經(jīng)常會(huì)造成大小寫不相符的情況發(fā)生。
(相關(guān)資料圖)
3、為此，我們可以利用VBA自定義一個(gè)函數(shù)，然后再利用這個(gè)自定義的函數(shù)來實(shí)現(xiàn)貨幣大小的自動(dòng)轉(zhuǎn)換。
4、這樣，不但方便快捷，而且不易出錯(cuò)。
5、具體的操作步驟如下：1. 啟動(dòng)Excel。
6、按“Alt+F11”快捷鍵打開“Visual Basic編輯器”。
7、2. 在“Visual Basic編輯器”中，單擊“插入”菜單欄中的“模塊”命令，插入一個(gè)模塊。
8、雙擊左側(cè)“工程”窗口中的“模塊1”選項(xiàng)，在窗口右邊展開“模塊1（代碼）”編輯窗口，然后輸入如下代碼:Function dx(q)Dim Cur as Long,yuan as LongDim Jiao as Integer,Fen as IntegerDim CnYuan as String, CnJiao as String, CnFen as StringIf q = "" Thendx = 0Exit FunctionEnd IfCur = Round(q * 100)Yuan = Int(Cur / 100)Jiao = Int(Cur / 10) - Yuan * 10Fen = Cur - Yuan * 100 - Jiao * 10CnYuan = Application.WorksheetFunction.Text(Yuan, "[DBNum2]")CnJiao = Application.WorksheetFunction.Text(Jiao, "[DBNum2]")CnFen = Application.WorksheetFunction.Text(Fen, "[DBNum2]")dx = CnYuan & "元" & "整"d1 = CnYuan & "元"If Fen 0 And Jiao 0 Thendx = d1 & CnJiao & "角" & CnFen & "分"If Yuan = 0 Thendx = CnJiao & "角" & CnFen & "分"End IfEnd IfIf Fen = 0 And Jiao 0 Thendx = d1 & CnJiao & "角" & "整"If Yuan = 0 Thendx = CnJiao & "角" & "整"End IfEnd IfIf Fen 0 And Jiao = 0 Thendx = d1 & CnJiao & CnFen & "分"If Yuan = 0 Thendx = CnFen & "分"End IfEnd IfEnd Function輸入完成后，關(guān)閉“Visual Basic編輯器”返回工作表。
9、現(xiàn)在，我們可測(cè)試一下這個(gè)函數(shù)。
10、首先，在A1單元格中輸入一個(gè)小寫數(shù)字的金額，例如123456.78，然后，在A2單元格中輸入公式：=dx(A1)，確認(rèn)后即可將A1所表示的小寫數(shù)字金額轉(zhuǎn)換為大寫的數(shù)字金額，并在A2單元格中顯示出來。
11、怎么樣，方便吧？。
本文就為大家分享到這里，希望小伙伴們會(huì)喜歡。
關(guān)鍵詞：
