財務金額的自動化大小寫轉換在與報銷單類似的財務單據填寫過程中,貨幣金額的小寫和大寫轉化是一個很重要的環節,在手工處理時,不但輸入時很繁瑣,而且還往往會出現不符合財務上描述貨幣數字的情況。在本例中,我們事先自定義一個函數,然后再利用自定義的函數來實現自動轉換,具體的操作步驟如下:(1)執行菜單欄中的【工具】|【宏】|【編輯器】命令,進入“編輯”窗口。(2)在“編輯”窗口中,執行菜單欄中的【插入】|【模塊】命令,插入一個模塊(如圖1所示)。雙擊左側的“模塊1”,在窗口右邊展開“模塊1(代碼)”編輯窗口,輸入如下代碼:圖1插入模塊(q)ybb=Round(q*100)'將輸入的數值擴大100倍,進行四舍五入y=Int(ybb/100)'截取出整數部分j=Int(ybb/10)-y*10'截取出十分位f=ybb-y*100-j*10'截取出百分位zy=(y,"[]")'將整數部分轉為中文大寫zj=(j,"[]")'將十分位轉為中文大寫zf=(f,"[]")'將百分位轉為中文大寫dx=zy&"元"&"整"d1=zy&"元"=d1&zj&"角"&zf&"分"Ify==zj&"角"&zf&"分"==d1&zj&"角"&"整"Ify==zj&"角"&"整"==d1&zj&zf&"分"Ify==zf&"分"=""=0'如沒有輸入任何數值為提示:代碼中“dx”是自定義函數名稱,讀者可以修改為其他字符。
(3)輸入完成后,關閉VBA編輯窗口返回工作表狀態。(4)在D13單元格中輸入公式:=dx(F12),確認后即可將F12單元格中所示的小寫數字金額轉換為大寫的數字金額,并將結果顯示在D13單元格中,如圖2所示。財務小寫金額轉大寫金額的多種方法2010-01-2012:43:53|分類:電腦知識主要exce|標簽:|字號大中小訂閱第一種方法:=IF((FIND(".",A1)),(INT(A1),2)&"元整",IF(((MID(A1,FIND(".",A1)+2,1),2))財務數字大小寫轉換,(INT(A1),2)&"元"&(MID(A1,FIND(".",A1)+1,1),2)&"角整",(INT(A1)財務數字大小寫轉換,2)&"元"&(MID(A1,FIND(".",A1)+1,1),2)&"角"&(MID(A1,FIND(".",A1)+2,1),2)&"分"))生成效果:肆佰叁拾伍元整第二種方法:=IF(ISERR
