使用excel vba生成供应链凭证

《使用excel vba生成供应链凭证》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、使用ExcelVBA生成供应链凭证在财务工作中经常与Excel打交道，如果再学习一些ＶＢＡ知识，就可以帮助我们解决工作中需要解决的问题。ＶＢＡ是Oｆｆｉｃｅ组件（主要是Excel）的内置语言，是应用程序开发语言ＶisualＢasic的子集，它易于学习掌握，是一种自动化语言，使常用的程序自动化，创建自定义的解决方案，可以将Excel作为开发平台实现应用程序。许多财务软件都有Excel接口，将业务活动、采购活动等输入的信息自动导入，生成总账会计报表，取消输入凭证这一繁琐的过程，替代传统手工操作，实现数据准确、输入迅速快捷。

2、使凭证操作员的录入工作简化，工作重心转移到财务管理的其他方面。　　1基础信息梳理　　我院已有物资供应链软件，平时使用该软件管理物资收发存，每月结账后可以从该软件的数据库中导出符合要求的Excel数据。或者使用ＡＤＯ数据库访问技术链接ＳＱＬ数据库，取得所需的Excel数据。医院财务软件使用金蝶ＥＡＳ，会计核算时要求物资数据入库要核算到应付账款——供应商，物资数据领用要能核算到使用科室。通过ExcelＶＢＡ程序设计自动应用程序，将已有的数据生成符合金蝶ＥＡＳ系统标准凭证导入要求的数据格式，可以满足会计核算要求。　　经统计，

3、我院目前有１．２万条四级明细物料。物料编码规则是四级９位，即第一级１位，第二级１位，第三级３位，第四级４位，相同类型的物料都归类到同一三级物料下。如果给最明细物料（即四级明细物料）添加上财务信息，程序运行时会影响其速度，而三级物料（约１３８０条）已经归纳了相同的财务处理信息，因此可使用三级物料来作为程序的基础信息。此外，若同一物料的使用部门不同则核算的会计科目也有所不同。按照新的《医院财务制度》和《医院会计制度》的规定以及《上海市医疗机构医疗服务项目和价格汇编（２０１０版）》中的“可另收费的一次性使用医疗器械目录”中的

4、明细分类和解释，会计科目“医疗业务成本”下设有“一次性医疗器械”，明细内容有：手术器械类、植入材料和人工器官、各类介入器械、医用材料及高分子生物材料、口腔材料、其他。为能准确核算，在三级物料中将增设“手术器械类”等类别。对现有的四级明细物料进行校对，将相同的财务信息归类在同一三级物料下。建立《三级物料表》给物料明细中添加上财务信息，该表中有以下９列：“三级物料代码”、“三级物料名称”、“存货科目代码”、“管理费用科目代码”、“管理费用支出经济分类＿编码”，“管理费用支出经济分类＿名称”、“医疗业务成本科目”、“医疗业务

5、成本支出经济分类＿编码”、“医疗业务成本支出经济分类＿名称”。其中“存货科目代码”是物料入库时的借方科目代码，领用时的贷方科目代码；“管理费用科目代码”、“医疗业务成本科目”是物料领用时借方科目代码；“管理费用支出经济分类＿编码”、“医疗业务成本支出经济分类＿编码”是借方科目辅助账核算项目编码。　　此外，如果物资供应链软件中的科室设置与金蝶ＥＡＳ系统中的核算单元不一致，还需做一个核算单元对应表。　　经过梳理后的三级物料格式见表1（节选）。　　2生成物料入库凭证　　生成物料入库凭证时涉及3个工作表，分别是“三级物料”、“

6、供应链入库”、“凭证”。将物资供应软件中的入库数据导出后拷贝到“供应链入库”工作表中，物资供应链入库数据要包含“供货单位代码”、“供货单位名称”、“发票号”、“资产代码”、“金额”等数据项。　　（１）对物资供应链入库数据中的“供货单位名称”和“发票号”进行排序，为以后同一家供货单位的相同发票号生成在同一张入库凭证内做准备。　　Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ａ１：Ｖ＂＆ｐ）．ＳｏｒｔＫｅｙ１：＝Ｒａｎｇｅ（＂Ｅ２＂），Ｏｒｄｅｒ１：＝ｘｌＡｓｃｅｎｄｉｎｇ，Ｋｅｙ２：＝Ｒａｎｇｅ（＂Ｇ２＂），Ｏｒｄｅｒ２

7、：＝ｘｌＡｓ　　ｃｅｎｄｉｎｇ，Ｈｅａｄｅｒ：＝ｘｌＧｕｅｓｓ，ＯｒｄｅｒＣｕｓｔｏｍ：＝１，ＭａｔｃｈＣａｓｅ：＝Ｆａｌｓｅ，Ｏｒ　　ｉｅｎｔａｔｉｏｎ：＝ｘｌＴｏｐＴｏＢｏｔｔｏｍ，ＳｏｒｔＭｅｔｈｏｄ：＝ｘｌＰｉｎＹｉｎ，ＤａｔａＯｐｔｉｏｎ１：＝ｘｌ　　ＳｏｒｔＮｏｒｍａｌ，ＤａｔａＯｐｔｉｏｎ２：＝ｘｌＳｏｒｔＮｏｒｍａｌ　　（2）为每条物料添加上存货科目代码，作用在于可以分清该物料入库时核算的库存物资科目。　　ｍ＝Ｓｈｅｅｔｓ（＂三级物料＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ’取“

8、三级物料”数据表的记录数　　ｐ＝Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ’取“供应链入库”数据表的记录数　　Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｗ１＂）．Ｖａｌｕｅ＝＂存货科目代码＂　　Ｆｏｒａ＝２Ｔｏｐ　　ｚｃｄｍ＝ＣＳｔｒ（Ｍｉｄ（Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａ