在與報銷單類似的財務單據填寫過程中，我們除了要輸入用阿拉伯數字表示的小寫數字金額外，還要輸入相應的中文大寫數字。如果手工進行處理，不但輸入時很繁瑣，而且還很容易出錯，經常會造成大小寫不相符的情況發生。為此，我們可以利用VBA自定義一個函數，然后再利用這個自定義的函數來實現貨幣大小的自動轉換。這樣，不但方便快捷，而且不易出錯。具體的操作步驟如下：

        1. 啟動Excel。按“Alt+F11”快捷鍵打開“Visual Basic編輯器”。

        2. 在“Visual Basic編輯器”中，單擊“插入”菜單欄中的“模塊”命令，插入一個模塊。雙擊左側“工程”窗口中的“模塊1”選項，在窗口右邊展開“模塊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

        輸入完成后，關閉“Visual Basic編輯器”返回工作表。現在，我們可測試一下這個函數。首先，在A1單元格中輸入一個小寫數字的金額，例如123456.78，然后，在A2單元格中輸入公式：=dx(A1)，確認后即可將A1所表示的小寫數字金額轉換為大寫的數字金額，并在A2單元格中顯示出來。怎么樣，方便吧？