一、利用EXCEL 2000實現利息小寫金額向中文大寫金額的轉換
1、數據導入。運行EXCEL 2000,點擊工具欄上“打開文件”按鈕,找到會計部門提供的貸款欠息情況表文 件后,點擊“打開”,EXCEL 2000自動彈出“文本導入向導”3步驟之1:
如設置無誤,點擊“下一步”按鈕,進入“文本導入向導”3步驟之2,在這里你可以選擇合適的分隔符號,在預覽窗中可預覽分列效果,滿意后點擊“下一步”按鈕,進入“文本導入向導”3步驟之3,在這里你可以對每列數據格式進行簡單設置(當然可以在EXCEL 2000中進行高級設置),如果我們不是導入全部數據列,還可以選擇不導入某列,當所有設置完成后,點擊“完成”按鈕,將數據導入EXCEL 2000中,并將文件另存為EXCEL文件格式(本文設存盤文件名為“應交利息.XLS)。
2、格式轉換。由于在EXCEL 2000中系統提供的中文大寫數字格式與我們日常使用的中文大寫金額格式相差 較遠,如小寫金額“138.59元”在EXCEL 2000中只能轉換成“壹佰叁拾捌.伍玖”,因此我們必須想辦法實現正確的格式轉換。經過實驗,發現通過設置中間字段,利用IF判斷函數、TRUNC截尾取整函數及TEXT函數可以很好地解決這個問題。
1)、打開“應交利息.XLS”文件,在D1至G1單元格按順序增加“元位”、“角位”、“分位”、“應交利 息(大寫)”四個字段。
2)、為了能將“應交利息”C列中小寫金額轉換成中文大寫金額,我們需將小寫金額按“元位”、“角位 ”、“分位”進行分解轉換,并在相應位置添加“元”、“角”、“分”符號,以備將來合并之用。
具體分解通過下列公式實現:
D2=IF(TRUNC(C2)=0,"",TEXT(TRUNC(C2),"[DBNum2]G/通用格式")&"元")
E2=IF(TRUNC(C2*10)-TRUNC(C2*10,-1)=0,"",TEXT(TRUNC(C2*10)-TRUNC(C2
*10,-1),"[DBNum2]G/通用格式 ")&"角")
F2=IF(TRUNC(C2*100)-TRUNC(C2*100,-1)=0,"",TEXT(TRUNC(C2*100)-
TRUNC(C2*100,-1),"[DBNum2]G/通用 格式")&"分")
在G2單元格使用公G2=IF(AND(D2<>"",F2<>"",E2=""),D2&"零"&F2,IF(AND(D2<>"",
E2="",F2=""),D2&"整 ",D2&E2&F2))通過對元、角、分位是否為零的判斷,將元、角、分按照中文大寫金額的書寫規律進行合并,得到所需規范的中文大寫金額。
使用自動填充柄功能將D3至G11單元格公式設置好,得到如下效果圖。
至此我們完成了應收利息由小 寫金額向大寫金額的轉換工作,將文件存盤后退出,進入一步工作
二、利用WORD 2000實現快速批量打印利息催收通知單
為了實現快速批量打印利息催收通知單,我們必須利用WORD 2000中的郵件合并功能來幫助完成工作。
1、建立文檔。啟動WORD 2000新建一空白文檔,按規定格式編輯好利息催收通知單中的固定內容,設置好 頁面格式。
2、郵件合并。
選擇工具菜單中“郵件合并”選項,進入“郵件合并幫助器”窗口;
點擊“主文檔”中“創建”下拉菜單中的“分類”按鈕,在彈出窗口中選擇“活動窗口”;然后點擊“數據源”中“獲取數據”下拉菜單中的“打開數據源”按鈕,彈出“打開數據源”窗口,找到剛才我們在EXCEL 2000中保存的“應交利息.XLS”文件,點擊“打開”;
在隨后彈出的窗口中點擊“確定”,在接著彈出的窗口中點擊“編輯主文檔”按鈕來進行給主文件添加合并域的工作。
將光標移至需要添加合并域的位置,點擊“插入合并域”按鈕,從下拉列表中選擇需要插入的合并域;重復這一步驟,在所有需要插入合并域的地方插入相應的合并域。然后點擊工具欄上“查看合并數據”按鈕進行檢查核對。
檢查無誤后,即可進行批量打印利息催收通知單。點擊工具欄上“合并選項”按鈕,彈出“合并”窗口, 在“合并到”下拉列表中選擇“打印機”,開啟打印機后,點擊“確定”按鈕,直接將合并的每一份利息催收通知單輸出到打印機。