本站原创
［摘要］ 从物资供应链系统中导出物资收发存Excel数据，运用Excel VBA编写程序生成符合财务软件要求的导入数据，完成大量供应链凭证录入工作，实现数据准确、工作简化的目的。
［关键词］ Excel VBA；导入；财务软件；供应链；凭证
doi : 10 . 3969 / j . issn . 1673 - 0194 . 2012 . 1
在财务工作中经常与Excel打交道，如果再学习一些ＶＢＡ知识，就可以帮助我们解决工作中需要解决的问题。ＶＢＡ是Oｆｆｉｃｅ组件（主要是Excel）的内置语言，是应用程序开发语言Ｖisual Ｂasic 的子集，它易于学习掌握，是一种自动化语
1基础信息梳理
我院已有物资供应链软件，平时使用该软件管理物资收发存，每月结账后可以从该软件的数据库中导出符合要求的Excel数据。或者使用ＡＤＯ数据库访问技术链接ＳＱＬ数据库，取得所需的Excel数据。医院财务软件使用金蝶ＥＡＳ，会计核算时要求物资数据入库要核算到应付账款——供应商，物资数据领用要能核算到使用科室。通过Excel ＶＢＡ程序设计自动应用程序，将已有的数据生成符合金蝶ＥＡＳ系统标准凭证导入要求的数据格式，可以满足会计核算要求。
经统计，我院目前有１．２万条四级明细物料。物料编码规则是四级９位，即第一级１位，第二级１位，第３位，第四级４位，相同类型的物料都归类到同一物料下。如果给最明细物料（即四级明细物料）添加上财务信息，程序运行时会影响其速度，而物料（约１ ３８０条）已经归纳了相同的财务处理信息，因此可使用物料来作为程序的基础信息。此外，若同一物料的使用部门不同则核算的会计科目也有所不同。按照新的《医院财务制度》和《医院会计制度》的规定以及《上海市医疗机构医疗怎么写作项目和汇编（２０１０版）》中的“可另收费的一次性使用医疗器械目录”中的明细分类和解释，会计科目“医疗业务成本”下设有“一次性医疗器械”，明细内容有：手术器械类、植入材料和人工器官、各类介入器械、医用材料及高分子生物材料、口腔材料、其他。为能准确核算，在物料中将增设“手术器械类”等类别。对现有的四级明细物料进行校对，将相同的财务信息归类在同一物料下。建立《物料表》给物料明细中添加上财务信息，该表中有以下９列：“物料代码”、“物料名称”、“存货科目代码”、“管理费用科目代码”、“管理费用支出经济分类＿编码”，“管理费用支出经济分类＿名称”、“医疗业务成本科目”、“医疗业务成本支出经济分类＿编码”、“医疗业务成本支出经济分类＿名称”。其中“存货科目代码”是物料入库时的借方科目代码，领用时的贷方科目代码；“管理费用科目代码”、“医疗业务成本科目”是物料领用时借方科目代码；“管理费用支出经济分类＿编码”、“医疗业务成本支出经济分类＿编码”是借方科目辅助账核算项目编码。
此外，如果物资供应链软件中的科室设置与金蝶ＥＡＳ系统中的核算单元不一致，还需做一个核算单元对应表。
经过梳理后的物料格式见表1（节选）。
2生成物料入库凭证
生成物料入库凭证时涉及3个工作表，分别是“物料”、“供应链入库”、“凭证”。将物资供应软件中的入库数据导出后拷贝到“供应链入库”工作表中，物资供应链入库数据要包含“供货单位代码”、“供货单位名称”、“号”、“资产代码”、“金额”等数据项。
（１）对物资供应链入库数据中的“供货单位名称”和“号”进行排序，为以后同一家供货单位的相同号生成在同一张入库凭证内做准备。
Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ａ１：Ｖ＂＆ｐ）．ＳｏｒｔＫｅｙ１：＝Ｒａｎｇｅ（＂Ｅ２＂），Ｏｒｄｅｒ１：＝ｘｌＡｓｃｅｎｄｉｎｇ，Ｋｅｙ２：＝Ｒａｎｇｅ（＂Ｇ２＂），Ｏｒｄｅｒ２：＝ｘｌＡｓ
ｃｅｎｄｉｎｇ，Ｈｅａｄｅｒ：＝ｘｌＧｕｅｓｓ，ＯｒｄｅｒＣｕｓｔｏｍ：＝１，ＭａｔｃｈＣａｓｅ：＝Ｆａｌｓｅ，Ｏｒ
ｉｅｎｔａｔｉｏｎ：＝ｘｌＴｏｐＴｏＢｏｔｔｏｍ，ＳｏｒｔＭｅｔｈｏｄ：＝ｘｌＰｉｎＹｉｎ，ＤａｔａＯｐｔｉｏｎ１：＝ｘｌ
ＳｏｒｔＮｏｒｍａｌ，ＤａｔａＯｐｔｉｏｎ２：＝ｘｌＳｏｒｔＮｏｒｍａｌ
（2）为每条物料添加上存货科目代码，作用在于可以分清该物料入库时核算的库存物资科目。
ｍ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ’取“物料”数据表的记录数
ｐ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ’取“供应链入库”数据表的记录数
Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｗ１＂）．Ｖａｌｕｅ＝＂存货科目代码＂
Ｆｏｒ ａ ＝ ２ Ｔｏ ｐ
ｚｃｄｍ ＝ ＣＳｔｒ（Ｍｉｄ（Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｐ＂ ＆ ａ）．Ｖａｌｕｅ， １， ５））
Ｆｏｒ ｂ ＝ ２ Ｔｏ ｍ
ｓｊｄｍ ＝ ＣＳｔｒ（Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂Ａ＂ ＆ ｂ）．Ｖａｌｕｅ）
Ｉｆ ｚｃｄｍ ＝ ｓｊｄｍ Ｔｈｅｎ
Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｗ＂ ＆ ａ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｃ＂ ＆ ｂ）．ＶａｌｕｅＥｎｄ Ｉｆ
Ｎｅｘｔ
Ａｐｐｌｉｃａｔｉｏｎ．ＳｔａｔｕｓＢａｒ ＝ ＂共有＂ ＆ ｐ ＆ ＂条记录，正在计算第＂ ＆ ａ ＆ ＂条数据．．．．．．＂
Ｎｅｘｔ
（3）生成入库凭证。物料入库数据中财务信息已添加完成，接下来就可以生成入库凭证数据。同一张上可以有多条物料，付款时是按每张付款，每一张生成一张入库凭证，即供货单位相同且号也相同生成一张凭证。凭证借方是入库的物料，贷
ｐ ＝ Ｓｈｅｅｔｓ（“供应链入库”）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ
ｙ ＝ １
ｆｌｈ ＝ ０ ＇ｆｌｈ：分录号
ｐｚｈ ＝ ＂０００１＂ ＇ｐｚｈ：凭证号
ｐｚｘｈ ＝ ＴｅｘｔＢｏｘ２．Ｖａｌｕｅ ＇ｐｚｈ：凭证序号
ｊｅｈｊ ＝ ０ ＇ｊｅｈｊ：金额合计
Ｗｉｔｈ Ｓｈｅｅｔｓ（＂凭证＂）
Ｆｏｒ ａ ＝ ２ Ｔｏ ｐ
ｊｅ ＝ Ｓｈｅｅｔｓ（“供应链入库”）．Ｒａｎｇｅ（＂ｖ＂ ＆ ａ）．Ｖａｌｕｅ ＇ｊｅ：金额
ｆｐｈ ＝ Ｓｈｅｅｔｓ（“供应链入库”）．Ｒａｎｇｅ（＂ｇ＂ ＆ ａ）．Ｖａｌｕｅ ＇ｆｐｈ：号
Ｉｆ Ｓｈｅｅｔｓ（“供应链入库”）．Ｒａｎｇｅ（＂ｇ＂ ＆ ａ ＋ １）．Ｖａｌｕｅ ＜＞ ｆｐｈ Ｔｈｅｎ
ｆｌｈ ＝ ｆｌｈ ＋ １
ｙ ＝ ｙ ＋ １
ｊｅｈｊ ＝ ｊｅｈｊ ＋ ｊｅ
Ｆｏｒ ｂ ＝ １ Ｔｏ ２
ｙ ＝ ｙ ＋（ ｂ – １）
．Ｒａｎｇｅ（＂Ａ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＊＊＊＊＂ ＇＊＊＊＊：是公司代码，此处隐去
．Ｒａｎｇｅ（＂Ｂ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ ＇ ＤＴＰｉｃｋｅｒ：日期控件
．Ｒａｎｇｅ（＂Ｃ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂Ｄ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｍｉｄ（ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ６， ＩｎＳｔｒ（６， ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ＂－＂） － ６）
．Ｒａｎｇｅ（＂Ｅ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂物＂
．Ｒａｎｇｅ（＂Ｆ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ Ｆｏｒｍａｔ（ｐｚｈ， ＂００００＂）
．Ｒａｎｇｅ（＂Ｊ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＢＢ０１＂
．Ｒａｎｇｅ（＂Ｋ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ １
．Ｒａｎｇｅ（＂Ｎ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０
．Ｒａｎｇｅ（＂Ｏ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０
．Ｒａｎｇｅ（＂Ｒ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＣｏｍｂｏＢｏｘ２．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂Ｕ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０
．Ｒａｎｇｅ（＂Ｖ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂
．Ｒａｎｇｅ（＂Ｘ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂
．Ｒａｎｇｅ（＂Ｙ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｐｚｘｈ ＆ ＂－－０＂
Ｉｆ ｂ ＝ １ Ｔｈｅｎ
．Ｒａｎｇｅ（＂Ｇ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｆｌｈ
．Ｒａｎｇｅ（＂Ｈ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ｑ＂ ＆ ａ）
．Ｒａｎｇｅ（＂Ｉ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ｗ＂ ＆ ａ）
．Ｒａｎｇｅ（＂Ｌ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇１＂
．Ｒａｎｇｅ（＂Ｍ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅ
．Ｒａｎｇｅ（＂ｐ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅ
Ｅｌｓｅ
ｆｌｈ ＝ ｆｌｈ ＋ １
Ｒａｎｇｅ（＂Ｇ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｆｌｈ
．Ｒａｎｇｅ（＂Ｈ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｅ＂ ＆ ａ）．Ｖａｌｕｅ ＆ ＂，号：№＂ ＆ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ｇ＂ ＆ ａ）．Ｖａｌｕｅ ＇摘要栏显示供应商名称及号
．Ｒａｎｇｅ（＂Ｉ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ＂２２０２．０２＂
．Ｒａｎｇｅ（＂Ｌ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇０＂
．Ｒａｎｇｅ（＂Ｍ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅｈｊ
．Ｒａｎｇｅ（＂Ｑ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅｈｊ
．Ｒａｎｇｅ（＂ＡＧ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｅ＂ ＆ ａ）．Ｖａｌｕｅ ＆ ＂，号：№＂ ＆ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ｇ＂ ＆ ａ）．Ｖａｌｕｅ ＇辅助账摘要
．Ｒａｎｇｅ（＂ＡＨ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂往来单位＂
．Ｒａｎｇｅ（＂ＡＩ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＺＹ０２．＂ ＆ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｄ＂ ＆ ａ）．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂ＡＪ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｅ＂ ＆ ａ）．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂ＢＮ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂ＢＯ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂２０９９／７／１＂ ＇到期日
Ｅｎｄ ＩｆＮｅｘｔ
ｊｅｈｊ ＝ ０
ｆｌｈ ＝ ０
ｐｚｈ ＝ ｐｚｈ ＋ １
ｐｚｘｈ ＝ ｐｚｘｈ ＋ １
Ｅｌｓｅ
ｙ ＝ ．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ
ｙ ＝ ｙ ＋ １
ｆｌｈ ＝ ｆｌｈ ＋ １
．Ｒａｎｇｅ（＂Ａ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂１１ＺＹ＂
．Ｒａｎｇｅ（＂Ｂ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂Ｃ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂Ｄ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｍｉｄ（ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ６， ＩｎＳｔｒ（６， ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ＂－＂） － ６）
．Ｒａｎｇｅ（＂Ｅ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂物＂
．Ｒａｎｇｅ（＂Ｆ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ Ｆｏｒｍａｔ（ｐｚｈ， ＂００００＂）
．Ｒａｎｇｅ（＂Ｇ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｆｌｈ
．Ｒａｎｇｅ（＂Ｈ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ｑ＂ ＆ ａ）．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂Ｉ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ｗ＂ ＆
．Ｒａｎｇｅ（＂Ｊ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＢＢ０１＂
．Ｒａｎｇｅ（＂Ｋ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ １
．Ｒａｎｇｅ（＂Ｌ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇１＂
．Ｒａｎｇｅ（＂Ｍ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅ
．Ｒａｎｇｅ（＂Ｎ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０
．Ｒａｎｇｅ（＂Ｏ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０
．Ｒａｎｇｅ（＂Ｐ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅ
．Ｒａｎｇｅ（＂Ｒ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＣｏｍｂｏＢｏｘ２．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂Ｕ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０
．Ｒａｎｇｅ（＂Ｖ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂
．Ｒａｎｇｅ（＂Ｘ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂
．Ｒａｎｇｅ（＂Ｙ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｐｚｘｈ ＆ ＂－－０＂
ｊｅｈｊ ＝ ｊｅｈｊ ＋ ｊｅ
Ｅｎｄ Ｉｆ
Ｎｅｘｔ
Ｅｎｄ Ｗｉｔｈ
3生成物料出库凭证
生成物料出库领用凭证时涉及5个工作表，分别是“核算单元对应表”、“物料”、“供应链出库”、“出库整理”、“凭证”。物料出库的数据，先按“存货科目代码”和“核算单元名称”进行排序，参考整理好的“物料”信息，在“出库整理”工作表中添加财务信息。生成出库领料凭证时以一个存货科目为一张凭证，即贷方科目是一条记录，借方科目则是多条记录，是领用该物料的所有部门。
Ｗｉｔｈ Ｓｈｅｅｔｓ（＂供应链出库＂）
ｎ ＝ ．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ
ｍ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ
Ｆｏｒ ｂ ＝ ２ Ｔｏ ｍ
Ａｐｐｌｉｃａｔｉｏｎ．ＳｔａｔｕｓＢａｒ ＝ ＂《添加财务信息》运算，共有＂ ＆ ｎ ＆ ＂条记录，正在计算第＂ ＆ ｂ ＆ ＂条记录，请等候．．．．．．＂
ｚｃｍ ＝ ＣＳｔｒ（Ｌｅｆｔ（．Ｒａｎｇｅ（＂ｐ＂ ＆ ｂ）．Ｖａｌｕｅ， ５）） ＇ｚｃｍ：Ｓｈｅｅｔｓ（＂供应链出库＂）中的ｐ列资产代码
Ｆｏｒ ｄ ＝ ２ Ｔｏ ｗ
ｗｌｍ ＝ ＣＳｔｒ（Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ａ＂ ＆ ｄ）．Ｖａｌｕｅ） ＇ｗｌｍ：Ｓｈｅｅｔｓ（＂物料＂）中的ａ列物料代码
ｂｍｌｂ ＝ ＣＳｔｒ（Ｍｉｄ（．Ｒａｎｇｅ（＂ｆ＂ ＆ ｂ）．Ｖａｌｕｅ， ３， ２）） ＇ｂｍｌｂ：部门类别＿编码
Ｉｆ ｚｃｍ ＝ ｗｌｍ Ｔｈｅｎ
．Ｒａｎｇｅ（＂ｘ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｃ＂ ＆ ｄ）．Ｖａｌｕｅ
Ｉｆ （ｂｍｌｂ ＝ ＂１０＂ Ｏｒ ｂｍｌｂ ＝ ＂２０＂ Ｏｒ ｂｍｌｂ ＝ ＂３０＂） Ｔｈｅｎ
．Ｒａｎｇｅ（＂ａａ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｇ＂ ＆ ｄ）．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂ａｂ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｈ＂ ＆ ｄ）．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂ａｃ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｉ＂ ＆ ｄ）．Ｖａｌｕｅ
Ｅｌｓｅ
．Ｒａｎｇｅ（＂ａａ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｄ＂ ＆ ｄ）．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂ａｂ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｅ＂ ＆ ｄ）．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂ａｃ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｆ＂ ＆ ｄ）．Ｖａｌｕｅ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｉｆ
．Ｒａｎｇｅ（＂ｙ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｂｍｌｂ
［关键词］ Excel VBA；导入；财务软件；供应链；凭证
doi : 10 . 3969 / j . issn . 1673 - 0194 . 2012 . 1
7. 002
［］A［文章编号］1673 - 0194（2012）17- 0003- 06在财务工作中经常与Excel打交道，如果再学习一些ＶＢＡ知识，就可以帮助我们解决工作中需要解决的问题。ＶＢＡ是Oｆｆｉｃｅ组件（主要是Excel）的内置语言，是应用程序开发语言Ｖisual Ｂasic 的子集，它易于学习掌握，是一种自动化语
源于：论文结论范文www.udooo.com
言，使常用的程序自动化，创建自定义的解决方案，可以将Excel作为开发平台实现应用程序。许多财务软件都有Excel接口，将业务活动、采购活动等输入的信息自动导入，生成总账会计报表，取消输入凭证这一繁琐的过程，替代传统手工操作，实现数据准确、输入迅速快捷。使凭证操作员的录入工作简化，工作重心转移到财务管理的其他方面。1基础信息梳理
我院已有物资供应链软件，平时使用该软件管理物资收发存，每月结账后可以从该软件的数据库中导出符合要求的Excel数据。或者使用ＡＤＯ数据库访问技术链接ＳＱＬ数据库，取得所需的Excel数据。医院财务软件使用金蝶ＥＡＳ，会计核算时要求物资数据入库要核算到应付账款——供应商，物资数据领用要能核算到使用科室。通过Excel ＶＢＡ程序设计自动应用程序，将已有的数据生成符合金蝶ＥＡＳ系统标准凭证导入要求的数据格式，可以满足会计核算要求。
经统计，我院目前有１．２万条四级明细物料。物料编码规则是四级９位，即第一级１位，第二级１位，第３位，第四级４位，相同类型的物料都归类到同一物料下。如果给最明细物料（即四级明细物料）添加上财务信息，程序运行时会影响其速度，而物料（约１ ３８０条）已经归纳了相同的财务处理信息，因此可使用物料来作为程序的基础信息。此外，若同一物料的使用部门不同则核算的会计科目也有所不同。按照新的《医院财务制度》和《医院会计制度》的规定以及《上海市医疗机构医疗怎么写作项目和汇编（２０１０版）》中的“可另收费的一次性使用医疗器械目录”中的明细分类和解释，会计科目“医疗业务成本”下设有“一次性医疗器械”，明细内容有：手术器械类、植入材料和人工器官、各类介入器械、医用材料及高分子生物材料、口腔材料、其他。为能准确核算，在物料中将增设“手术器械类”等类别。对现有的四级明细物料进行校对，将相同的财务信息归类在同一物料下。建立《物料表》给物料明细中添加上财务信息，该表中有以下９列：“物料代码”、“物料名称”、“存货科目代码”、“管理费用科目代码”、“管理费用支出经济分类＿编码”，“管理费用支出经济分类＿名称”、“医疗业务成本科目”、“医疗业务成本支出经济分类＿编码”、“医疗业务成本支出经济分类＿名称”。其中“存货科目代码”是物料入库时的借方科目代码，领用时的贷方科目代码；“管理费用科目代码”、“医疗业务成本科目”是物料领用时借方科目代码；“管理费用支出经济分类＿编码”、“医疗业务成本支出经济分类＿编码”是借方科目辅助账核算项目编码。
此外，如果物资供应链软件中的科室设置与金蝶ＥＡＳ系统中的核算单元不一致，还需做一个核算单元对应表。
经过梳理后的物料格式见表1（节选）。
2生成物料入库凭证
生成物料入库凭证时涉及3个工作表，分别是“物料”、“供应链入库”、“凭证”。将物资供应软件中的入库数据导出后拷贝到“供应链入库”工作表中，物资供应链入库数据要包含“供货单位代码”、“供货单位名称”、“号”、“资产代码”、“金额”等数据项。
（１）对物资供应链入库数据中的“供货单位名称”和“号”进行排序，为以后同一家供货单位的相同号生成在同一张入库凭证内做准备。
Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ａ１：Ｖ＂＆ｐ）．ＳｏｒｔＫｅｙ１：＝Ｒａｎｇｅ（＂Ｅ２＂），Ｏｒｄｅｒ１：＝ｘｌＡｓｃｅｎｄｉｎｇ，Ｋｅｙ２：＝Ｒａｎｇｅ（＂Ｇ２＂），Ｏｒｄｅｒ２：＝ｘｌＡｓ
ｃｅｎｄｉｎｇ，Ｈｅａｄｅｒ：＝ｘｌＧｕｅｓｓ，ＯｒｄｅｒＣｕｓｔｏｍ：＝１，ＭａｔｃｈＣａｓｅ：＝Ｆａｌｓｅ，Ｏｒ
ｉｅｎｔａｔｉｏｎ：＝ｘｌＴｏｐＴｏＢｏｔｔｏｍ，ＳｏｒｔＭｅｔｈｏｄ：＝ｘｌＰｉｎＹｉｎ，ＤａｔａＯｐｔｉｏｎ１：＝ｘｌ
ＳｏｒｔＮｏｒｍａｌ，ＤａｔａＯｐｔｉｏｎ２：＝ｘｌＳｏｒｔＮｏｒｍａｌ
（2）为每条物料添加上存货科目代码，作用在于可以分清该物料入库时核算的库存物资科目。
ｍ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ’取“物料”数据表的记录数
ｐ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ’取“供应链入库”数据表的记录数
Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｗ１＂）．Ｖａｌｕｅ＝＂存货科目代码＂
Ｆｏｒ ａ ＝ ２ Ｔｏ ｐ
ｚｃｄｍ ＝ ＣＳｔｒ（Ｍｉｄ（Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｐ＂ ＆ ａ）．Ｖａｌｕｅ， １， ５））
Ｆｏｒ ｂ ＝ ２ Ｔｏ ｍ
ｓｊｄｍ ＝ ＣＳｔｒ（Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂Ａ＂ ＆ ｂ）．Ｖａｌｕｅ）
Ｉｆ ｚｃｄｍ ＝ ｓｊｄｍ Ｔｈｅｎ
Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｗ＂ ＆ ａ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｃ＂ ＆ ｂ）．ＶａｌｕｅＥｎｄ Ｉｆ
Ｎｅｘｔ
Ａｐｐｌｉｃａｔｉｏｎ．ＳｔａｔｕｓＢａｒ ＝ ＂共有＂ ＆ ｐ ＆ ＂条记录，正在计算第＂ ＆ ａ ＆ ＂条数据．．．．．．＂
Ｎｅｘｔ
（3）生成入库凭证。物料入库数据中财务信息已添加完成，接下来就可以生成入库凭证数据。同一张上可以有多条物料，付款时是按每张付款，每一张生成一张入库凭证，即供货单位相同且号也相同生成一张凭证。凭证借方是入库的物料，贷
源于：论文写作www.udooo.com
方是应付账款，挂“往来单位”辅助核算。借方摘要填写入库物料名称，贷方摘要填写供应商名称加号，付款时可方便进行校对。运行到每张的最后一条记录后要增加一次该的贷方数据，显示出该的合计金额。ｐ ＝ Ｓｈｅｅｔｓ（“供应链入库”）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ
ｙ ＝ １
ｆｌｈ ＝ ０ ＇ｆｌｈ：分录号
ｐｚｈ ＝ ＂０００１＂ ＇ｐｚｈ：凭证号
ｐｚｘｈ ＝ ＴｅｘｔＢｏｘ２．Ｖａｌｕｅ ＇ｐｚｈ：凭证序号
ｊｅｈｊ ＝ ０ ＇ｊｅｈｊ：金额合计
Ｗｉｔｈ Ｓｈｅｅｔｓ（＂凭证＂）
Ｆｏｒ ａ ＝ ２ Ｔｏ ｐ
ｊｅ ＝ Ｓｈｅｅｔｓ（“供应链入库”）．Ｒａｎｇｅ（＂ｖ＂ ＆ ａ）．Ｖａｌｕｅ ＇ｊｅ：金额
ｆｐｈ ＝ Ｓｈｅｅｔｓ（“供应链入库”）．Ｒａｎｇｅ（＂ｇ＂ ＆ ａ）．Ｖａｌｕｅ ＇ｆｐｈ：号
Ｉｆ Ｓｈｅｅｔｓ（“供应链入库”）．Ｒａｎｇｅ（＂ｇ＂ ＆ ａ ＋ １）．Ｖａｌｕｅ ＜＞ ｆｐｈ Ｔｈｅｎ
ｆｌｈ ＝ ｆｌｈ ＋ １
ｙ ＝ ｙ ＋ １
ｊｅｈｊ ＝ ｊｅｈｊ ＋ ｊｅ
Ｆｏｒ ｂ ＝ １ Ｔｏ ２
ｙ ＝ ｙ ＋（ ｂ – １）
．Ｒａｎｇｅ（＂Ａ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＊＊＊＊＂ ＇＊＊＊＊：是公司代码，此处隐去
．Ｒａｎｇｅ（＂Ｂ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ ＇ ＤＴＰｉｃｋｅｒ：日期控件
．Ｒａｎｇｅ（＂Ｃ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂Ｄ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｍｉｄ（ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ６， ＩｎＳｔｒ（６， ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ＂－＂） － ６）
．Ｒａｎｇｅ（＂Ｅ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂物＂
．Ｒａｎｇｅ（＂Ｆ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ Ｆｏｒｍａｔ（ｐｚｈ， ＂００００＂）
．Ｒａｎｇｅ（＂Ｊ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＢＢ０１＂
．Ｒａｎｇｅ（＂Ｋ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ １
．Ｒａｎｇｅ（＂Ｎ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０
．Ｒａｎｇｅ（＂Ｏ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０
．Ｒａｎｇｅ（＂Ｒ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＣｏｍｂｏＢｏｘ２．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂Ｕ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０
．Ｒａｎｇｅ（＂Ｖ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂
．Ｒａｎｇｅ（＂Ｘ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂
．Ｒａｎｇｅ（＂Ｙ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｐｚｘｈ ＆ ＂－－０＂
Ｉｆ ｂ ＝ １ Ｔｈｅｎ
．Ｒａｎｇｅ（＂Ｇ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｆｌｈ
．Ｒａｎｇｅ（＂Ｈ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ｑ＂ ＆ ａ）
．Ｒａｎｇｅ（＂Ｉ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ｗ＂ ＆ ａ）
．Ｒａｎｇｅ（＂Ｌ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇１＂
．Ｒａｎｇｅ（＂Ｍ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅ
．Ｒａｎｇｅ（＂ｐ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅ
Ｅｌｓｅ
ｆｌｈ ＝ ｆｌｈ ＋ １
Ｒａｎｇｅ（＂Ｇ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｆｌｈ
．Ｒａｎｇｅ（＂Ｈ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｅ＂ ＆ ａ）．Ｖａｌｕｅ ＆ ＂，号：№＂ ＆ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ｇ＂ ＆ ａ）．Ｖａｌｕｅ ＇摘要栏显示供应商名称及号
．Ｒａｎｇｅ（＂Ｉ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ＂２２０２．０２＂
．Ｒａｎｇｅ（＂Ｌ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇０＂
．Ｒａｎｇｅ（＂Ｍ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅｈｊ
．Ｒａｎｇｅ（＂Ｑ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅｈｊ
．Ｒａｎｇｅ（＂ＡＧ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｅ＂ ＆ ａ）．Ｖａｌｕｅ ＆ ＂，号：№＂ ＆ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ｇ＂ ＆ ａ）．Ｖａｌｕｅ ＇辅助账摘要
．Ｒａｎｇｅ（＂ＡＨ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂往来单位＂
．Ｒａｎｇｅ（＂ＡＩ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＺＹ０２．＂ ＆ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｄ＂ ＆ ａ）．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂ＡＪ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂Ｅ＂ ＆ ａ）．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂ＢＮ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂ＢＯ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂２０９９／７／１＂ ＇到期日
Ｅｎｄ ＩｆＮｅｘｔ
ｊｅｈｊ ＝ ０
ｆｌｈ ＝ ０
ｐｚｈ ＝ ｐｚｈ ＋ １
ｐｚｘｈ ＝ ｐｚｘｈ ＋ １
Ｅｌｓｅ
ｙ ＝ ．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ
ｙ ＝ ｙ ＋ １
ｆｌｈ ＝ ｆｌｈ ＋ １
．Ｒａｎｇｅ（＂Ａ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂１１ＺＹ＂
．Ｒａｎｇｅ（＂Ｂ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂Ｃ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂Ｄ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｍｉｄ（ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ６， ＩｎＳｔｒ（６， ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ＂－＂） － ６）
．Ｒａｎｇｅ（＂Ｅ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂物＂
．Ｒａｎｇｅ（＂Ｆ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ Ｆｏｒｍａｔ（ｐｚｈ， ＂００００＂）
．Ｒａｎｇｅ（＂Ｇ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｆｌｈ
．Ｒａｎｇｅ（＂Ｈ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ｑ＂ ＆ ａ）．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂Ｉ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供应链入库＂）．Ｒａｎｇｅ（＂ｗ＂ ＆
中国免费论文网www.udooo.com
ａ）．Ｒａｎｇｅ（＂Ｊ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＢＢ０１＂
．Ｒａｎｇｅ（＂Ｋ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ １
．Ｒａｎｇｅ（＂Ｌ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇１＂
．Ｒａｎｇｅ（＂Ｍ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅ
．Ｒａｎｇｅ（＂Ｎ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０
．Ｒａｎｇｅ（＂Ｏ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０
．Ｒａｎｇｅ（＂Ｐ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅ
．Ｒａｎｇｅ（＂Ｒ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＣｏｍｂｏＢｏｘ２．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂Ｕ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０
．Ｒａｎｇｅ（＂Ｖ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂
．Ｒａｎｇｅ（＂Ｘ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂
．Ｒａｎｇｅ（＂Ｙ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｐｚｘｈ ＆ ＂－－０＂
ｊｅｈｊ ＝ ｊｅｈｊ ＋ ｊｅ
Ｅｎｄ Ｉｆ
Ｎｅｘｔ
Ｅｎｄ Ｗｉｔｈ
3生成物料出库凭证
生成物料出库领用凭证时涉及5个工作表，分别是“核算单元对应表”、“物料”、“供应链出库”、“出库整理”、“凭证”。物料出库的数据，先按“存货科目代码”和“核算单元名称”进行排序，参考整理好的“物料”信息，在“出库整理”工作表中添加财务信息。生成出库领料凭证时以一个存货科目为一张凭证，即贷方科目是一条记录，借方科目则是多条记录，是领用该物料的所有部门。
3.1 添加财务信息
按领用资产名称添加存货科目代码；按领用部门的性质进行判断添加“部门类别＿编码”、“部门类别＿名称”；按领用部门及领用资产的性质进行判断添加“支出科目代码”、“支出经济分类＿编码”、“支出经济分类＿名称”。Ｗｉｔｈ Ｓｈｅｅｔｓ（＂供应链出库＂）
ｎ ＝ ．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ
ｍ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ
Ｆｏｒ ｂ ＝ ２ Ｔｏ ｍ
Ａｐｐｌｉｃａｔｉｏｎ．ＳｔａｔｕｓＢａｒ ＝ ＂《添加财务信息》运算，共有＂ ＆ ｎ ＆ ＂条记录，正在计算第＂ ＆ ｂ ＆ ＂条记录，请等候．．．．．．＂
ｚｃｍ ＝ ＣＳｔｒ（Ｌｅｆｔ（．Ｒａｎｇｅ（＂ｐ＂ ＆ ｂ）．Ｖａｌｕｅ， ５）） ＇ｚｃｍ：Ｓｈｅｅｔｓ（＂供应链出库＂）中的ｐ列资产代码
Ｆｏｒ ｄ ＝ ２ Ｔｏ ｗ
ｗｌｍ ＝ ＣＳｔｒ（Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ａ＂ ＆ ｄ）．Ｖａｌｕｅ） ＇ｗｌｍ：Ｓｈｅｅｔｓ（＂物料＂）中的ａ列物料代码
ｂｍｌｂ ＝ ＣＳｔｒ（Ｍｉｄ（．Ｒａｎｇｅ（＂ｆ＂ ＆ ｂ）．Ｖａｌｕｅ， ３， ２）） ＇ｂｍｌｂ：部门类别＿编码
Ｉｆ ｚｃｍ ＝ ｗｌｍ Ｔｈｅｎ
．Ｒａｎｇｅ（＂ｘ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｃ＂ ＆ ｄ）．Ｖａｌｕｅ
Ｉｆ （ｂｍｌｂ ＝ ＂１０＂ Ｏｒ ｂｍｌｂ ＝ ＂２０＂ Ｏｒ ｂｍｌｂ ＝ ＂３０＂） Ｔｈｅｎ
．Ｒａｎｇｅ（＂ａａ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｇ＂ ＆ ｄ）．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂ａｂ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｈ＂ ＆ ｄ）．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂ａｃ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｉ＂ ＆ ｄ）．Ｖａｌｕｅ
Ｅｌｓｅ
．Ｒａｎｇｅ（＂ａａ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｄ＂ ＆ ｄ）．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂ａｂ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｅ＂ ＆ ｄ）．Ｖａｌｕｅ
．Ｒａｎｇｅ（＂ａｃ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂物料＂）．Ｒａｎｇｅ（＂ｆ＂ ＆ ｄ）．Ｖａｌｕｅ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｉｆ
．Ｒａｎｇｅ（＂ｙ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｂｍｌｂ
摘自：硕士论文格式www.udooo.com