Excel在ERP沙盘比赛中应用.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Excel在ERP沙盘比赛中应用

Excel在ERP沙盘比赛中应用   [摘 要]现金在ERP沙盘比赛中起着非常重要的作用,许多参赛者都会因资金流的断裂而宣告破产。而本文根据ERP沙盘比赛中的具体规则,充分利用Excel编制了一张现金流分析表,通过该表可以很好地解决参赛中遇到的现金短缺问题,为参赛者提供有力的决策建议。   [关键词]ERP沙盘;Excel模型;现金流分析表   doi:10.3969/j.issn.1673-0194.2009.16.042   [中图分类号]TP270.7[文献标识码]A[文章编号]1673-0194(2009)16-0125-03      ERP系统是一套将制造、分销、财务和其他业务管理功能有机集成的管理系统,ERP系统的管理理念是在MRPⅡ的基础上向内外两个方向延伸,向内主张以精益生产方式改造企业生产管理系统,向外则增加供需链管理功能和战略决策功能。      1 ERP沙盘简介      ERP沙盘,是企业资源计划沙盘的简称,即利用实物沙盘直观、形象地展示企业内、外部资源。企业资源包含的范围很广,厂房、设备、物料,还包括人力资源、资金、信息,甚至包括企业上下游的供应商和客户,企业的生产经营过程就是对企业资源管理的过程。通过直观的ERP沙盘来模拟企业运行状况,让接触它的人在分析市场、制定战略、组织生产、整体营销和财务管理等一系列活动中体会企业经营运作的全过程,认识到企业资源的有限性,从而深刻理解ERP的管理思想,领悟科学的管理规律,提升管理能力。      2 ERP沙盘比赛中现金流的问题      ERP模拟沙盘比赛中是每一个团队经营一个拥有一定资产的销售良好、资金充裕的虚拟公司,连续从事6个会计年度的经营活动,最后以经营成果评定胜负。然而,在比赛中经常会出现一些队伍因为缺乏现金,无法正常运营,完不成订单任务而退出比赛。这主要是由于以下原因造成的:①赛前未能进行一个财务预算规划,不能合理地分配资金的使用。②错误地把一些到年末才能实现的收入作为已有现金去进行生产经营的规划。③手工地进行生产计划推演和财务预算,易出现错误、效率低下,且不易发现现金短缺问题。因此,在 ERP沙盘模拟中,需要重视资金流的管理。现金流可谓是虚拟企业竞争中胜负的关键,同时也是现实中企业在市场条件下能否顺利发展的关键。   为此,本文作者在参赛中通过运用自主设计开发的一套基于Excel编写的一个简单现金流分析系统,充分预测现金流的使用状况,为企业合理使用现金提供了充分的参考依据。      3 现金流分析表的编制      现金流分析表完全按照每年的运行流程编制,包括参加订货会,支付应付税,上年到今年的应收款,季初现金盘点,更新短期贷款,原材料入库,投资生产线,开始下一批生产,更新应收款,出售厂房,产品研发投资,支付行政管理费,支付利息/更新贷款,支付设备,维护费,支付租金购买厂房,新市场开拓/ISO,现金收入合计,现金支出合计,期末现金对账。考虑到充分预测和判断每个环节的现金流情况,我们利用Excel的Visual Basic程序编辑功能,将应收账款和应付贷款自动添加到相应的环节,同时对每个环节的现金流进行检测。   程序的主要部分如下:   For i = 2 To 5   sum = 0   If i 5 Then   ′前三季度   For j = 6 To 14   sum = sum + Worksheets(y).Cells(j, i).Value   If sum = 0 Then   If IS_Occur = False Then   iOccur_r = j   iOccur_c = i   ffail = sum   IS_Occur = True   End If   If sum = mfail Then   iError_r = j   iError_c = i   mfail = sum   End If   End If   Next   Else   ′最后季度   For j = 6 To 18   sum = sum + Worksheets(y).Cells(j, i).Value   If sum = 0 Then   If IS_Occur = False Then   iOccur_r = j   iOccur_c = i   ffail = sum   IS_Occur = True   End If   If sum = mfail Then   iError_r = j   iError_c = i   mfail = sum   End If   End If   Next

文档评论(0)

bokegood + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档