在財務(wù)工作中經(jīng)常與Excel打交道，如果再學(xué)習(xí)一些ＶＢＡ知識，就可以幫助我們解決工作中需要解決的問題。ＶＢＡ是Oｆｆｉｃｅ組件（主要是Excel）的內(nèi)置語言，是應(yīng)用程序開發(fā)語言Ｖisual Ｂasic 的子集，它易于學(xué)習(xí)掌握，是一種自動化語言，使常用的程序自動化，創(chuàng)建自定義的解決方案，可以將Excel作為開發(fā)平臺實現(xiàn)應(yīng)用程序。許多財務(wù)軟件都有Excel接口，將業(yè)務(wù)活動、采購活動等輸入的信息自動導(dǎo)入，生成總賬會計報表，取消輸入憑證這一繁瑣的過程，替代傳統(tǒng)手工操作，實現(xiàn)數(shù)據(jù)準(zhǔn)確、輸入迅速快捷。使憑證操作員的錄入工作簡化，工作重心轉(zhuǎn)移到財務(wù)管理的其他方面。
1 基礎(chǔ)信息梳理
我院已有物資供應(yīng)鏈軟件，平時使用該軟件管理物資收發(fā)存，每月結(jié)賬后可以從該軟件的數(shù)據(jù)庫中導(dǎo)出符合要求的Excel數(shù)據(jù)?；蛘呤褂茫粒模蠑?shù)據(jù)庫訪問技術(shù)鏈接ＳＱＬ數(shù)據(jù)庫，取得所需的Excel數(shù)據(jù)。醫(yī)院財務(wù)軟件使用金蝶ＥＡＳ，會計核算時要求物資數(shù)據(jù)入庫要核算到應(yīng)付賬款——供應(yīng)商，物資數(shù)據(jù)領(lǐng)用要能核算到使用科室。通過Excel ＶＢＡ程序設(shè)計自動應(yīng)用程序，將已有的數(shù)據(jù)生成符合金蝶ＥＡＳ系統(tǒng)標(biāo)準(zhǔn)憑證導(dǎo)入要求的數(shù)據(jù)格式，可以滿足會計核算要求。
經(jīng)統(tǒng)計，我院目前有１．２萬條四級明細(xì)物料。物料編碼規(guī)則是四級９位，即第一級１位，第二級１位，第三級３位，第四級４位，相同類型的物料都?xì)w類到同一三級物料下。如果給最明細(xì)物料（即四級明細(xì)物料）添加上財務(wù)信息，程序運行時會影響其速度，而三級物料（約１ ３８０條）已經(jīng)歸納了相同的財務(wù)處理信息，因此可使用三級物料來作為程序的基礎(chǔ)信息。此外，若同一物料的使用部門不同則核算的會計科目也有所不同。按照新的《醫(yī)院財務(wù)制度》和《醫(yī)院會計制度》的規(guī)定以及《上海市醫(yī)療機構(gòu)醫(yī)療服務(wù)項目和價格匯編（２０１０版）》中的“可另收費的一次性使用醫(yī)療器械目錄”中的明細(xì)分類和解釋，會計科目“醫(yī)療業(yè)務(wù)成本”下設(shè)有“一次性醫(yī)療器械”，明細(xì)內(nèi)容有：手術(shù)器械類、植入材料和人工器官、各類介入器械、醫(yī)用材料及高分子生物材料、口腔材料、其他。為能準(zhǔn)確核算，在三級物料中將增設(shè)“手術(shù)器械類”等類別。對現(xiàn)有的四級明細(xì)物料進(jìn)行校對，將相同的財務(wù)信息歸類在同一三級物料下。建立《三級物料表》給物料明細(xì)中添加上財務(wù)信息，該表中有以下９列：“三級物料代碼”、“三級物料名稱”、“存貨科目代碼”、“管理費用科目代碼”、“管理費用支出經(jīng)濟分類＿編碼”，“管理費用支出經(jīng)濟分類＿名稱”、“醫(yī)療業(yè)務(wù)成本科目”、“醫(yī)療業(yè)務(wù)成本支出經(jīng)濟分類＿編碼”、“醫(yī)療業(yè)務(wù)成本支出經(jīng)濟分類＿名稱”。其中“存貨科目代碼”是物料入庫時的借方科目代碼，領(lǐng)用時的貸方科目代碼；“管理費用科目代碼”、“醫(yī)療業(yè)務(wù)成本科目”是物料領(lǐng)用時借方科目代碼；“管理費用支出經(jīng)濟分類＿編碼”、“醫(yī)療業(yè)務(wù)成本支出經(jīng)濟分類＿編碼”是借方科目輔助賬核算項目編碼。
此外，如果物資供應(yīng)鏈軟件中的科室設(shè)置與金蝶ＥＡＳ系統(tǒng)中的核算單元不一致，還需做一個核算單元對應(yīng)表。
經(jīng)過梳理后的三級物料格式見表1（節(jié)選）。
2 生成物料入庫憑證
生成物料入庫憑證時涉及3個工作表，分別是“三級物料”、“供應(yīng)鏈入庫”、“憑證”。將物資供應(yīng)軟件中的入庫數(shù)據(jù)導(dǎo)出后拷貝到“供應(yīng)鏈入庫”工作表中，物資供應(yīng)鏈入庫數(shù)據(jù)要包含“供貨單位代碼”、“供貨單位名稱”、“發(fā)票號”、“資產(chǎn)代碼”、“金額”等數(shù)據(jù)項。
?。ǎ保ξ镔Y供應(yīng)鏈入庫數(shù)據(jù)中的“供貨單位名稱”和“發(fā)票號”進(jìn)行排序，為以后同一家供貨單位的相同發(fā)票號生成在同一張入庫憑證內(nèi)做準(zhǔn)備。
Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫＂）．Ｒａｎｇｅ（＂Ａ１：Ｖ＂＆ｐ）．ＳｏｒｔＫｅｙ１：＝Ｒａｎｇｅ（＂Ｅ２＂），Ｏｒｄｅｒ１：＝ｘｌＡｓｃｅｎｄｉｎｇ，Ｋｅｙ２：＝Ｒａｎｇｅ（＂Ｇ２＂），Ｏｒｄｅｒ２：＝ｘｌＡｓ
?。悖澹睿洌椋睿纾龋澹幔洌澹颍海剑欤牵酰澹螅?，ＯｒｄｅｒＣｕｓｔｏｍ：＝１，ＭａｔｃｈＣａｓｅ：＝Ｆａｌｓｅ，Ｏｒ
ｉｅｎｔａｔｉｏｎ：＝ｘｌＴｏｐＴｏＢｏｔｔｏｍ，ＳｏｒｔＭｅｔｈｏｄ：＝ｘｌＰｉｎＹｉｎ，ＤａｔａＯｐｔｉｏｎ１：＝ｘｌ
?。樱铮颍簦危铮颍恚幔?，ＤａｔａＯｐｔｉｏｎ２：＝ｘｌＳｏｒｔＮｏｒｍａｌ
（2）為每條物料添加上存貨科目代碼，作用在于可以分清該物料入庫時核算的庫存物資科目。
?。?＝ Ｓｈｅｅｔｓ（＂三級物料＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ’取“三級物料”數(shù)據(jù)表的記錄數(shù)
ｐ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ’取“供應(yīng)鏈入庫”數(shù)據(jù)表的記錄數(shù)
?。樱瑁澹澹簦螅ǎ⒐?yīng)鏈入庫＂）．Ｒａｎｇｅ（＂Ｗ１＂）．Ｖａｌｕｅ＝＂存貨科目代碼＂
?。疲铮?ａ ＝ ２ Ｔｏ ｐ
?。悖洌?＝ ＣＳｔｒ（Ｍｉｄ（Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫＂）．Ｒａｎｇｅ（＂Ｐ＂ ＆ ａ）．Ｖａｌｕｅ， １， ５））
?。疲铮?ｂ ＝ ２ Ｔｏ ｍ
ｓｊｄｍ ＝ ＣＳｔｒ（Ｓｈｅｅｔｓ（＂三級物料＂）．Ｒａｎｇｅ（＂Ａ＂ ＆ ｂ）．Ｖａｌｕｅ）
?。桑?ｚｃｄｍ ＝ ｓｊｄｍ Ｔｈｅｎ
?。樱瑁澹澹簦螅ǎ⒐?yīng)鏈入庫＂）．Ｒａｎｇｅ（＂Ｗ＂ ＆ ａ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂三級物料＂）．Ｒａｎｇｅ（＂ｃ＂ ＆ ｂ）．Ｖａｌｕｅ
