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