中文數(shù)字大小轉(zhuǎn)換（中文數(shù)字大小寫轉(zhuǎn)換）

關(guān)于中文數(shù)字大小轉(zhuǎn)換，中文數(shù)字大小寫轉(zhuǎn)換這個問題很多朋友還不知道，今天小六來為大家解答以上的問題，現(xiàn)在讓我們一起來看看吧！

1、在與報(bào)銷單類似的財(cái)務(wù)單據(jù)填寫過程中，我們除了要輸入用阿拉伯?dāng)?shù)字表示的小寫數(shù)字金額外，還要輸入相應(yīng)的中文大寫數(shù)字。

2、如果手工進(jìn)行處理，不但輸入時很繁瑣，而且還很容易出錯，經(jīng)常會造成大小寫不相符的情況發(fā)生。

3、為此，我們可以利用VBA自定義一個函數(shù)，然后再利用這個自定義的函數(shù)來實(shí)現(xiàn)貨幣大小的自動轉(zhuǎn)換。

4、這樣，不但方便快捷，而且不易出錯。

5、具體的操作步驟如下： ??????? 1. 啟動Excel。

6、按“Alt+F11”快捷鍵打開“Visual Basic編輯器”。

7、 ??????? 2. 在“Visual Basic編輯器”中，單擊“插入”菜單欄中的“模塊”命令，插入一個模塊。

8、雙擊左側(cè)“工程”窗口中的“模塊1”選項(xiàng)，在窗口右邊展開“模塊1（代碼）”編輯窗口，然后輸入如下代碼: ??????? Function dx(q)????????Dim Cur as Long,yuan as Long??????? Dim Jiao as Integer,Fen as Integer??????? Dim CnYuan as String, CnJiao as String, CnFen as String??????? If q = "" Then??????? dx = 0??????? Exit Function??????? End If??????? Cur = Round(q * 100)??????? Yuan = Int(Cur / 100)??????? Jiao = Int(Cur / 10) - Yuan * 10????????Fen = Cur - Yuan * 100 - Jiao * 10??????? CnYuan = 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 Then??????? dx = d1 & CnJiao & "角" & CnFen & "分"??????? If Yuan = 0 Then??????? dx = CnJiao & "角" & CnFen & "分"??????? End If??????? End If????????If Fen = 0 And Jiao <> 0 Then??????? dx = d1 & CnJiao & "角" & "整"??????? If Yuan = 0 Then??????? dx = CnJiao & "角" & "整"??????? End If??????? End If??????? If Fen <> 0 And Jiao = 0 Then??????? dx = d1 & CnJiao & CnFen & "分"??????? If Yuan = 0 Then??????? dx = CnFen & "分"??????? End If??????? End If??????? End Function ??????? 輸入完成后，關(guān)閉“Visual Basic編輯器”返回工作表。

9、現(xiàn)在，我們可測試一下這個函數(shù)。

10、首先，在A1單元格中輸入一個小寫數(shù)字的金額，例如123456.78，然后，在A2單元格中輸入公式：=dx(A1)，確認(rèn)后即可將A1所表示的小寫數(shù)字金額轉(zhuǎn)換為大寫的數(shù)字金額，并在A2單元格中顯示出來。

11、怎么樣，方便吧？。

本文分享完畢，希望對大家有所幫助。

標(biāo)簽：