煤矿材料单耗统计中VBA程序应用.docVIP

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

煤矿材料单耗统计中VBA程序应用摘要:针对材料单耗统计中,数据庞大、过程繁琐、费时费力的问题,利用vba程序实现快速准确统计分类的目的 关键词:VBA EXCEL 单耗统计 在信息处理技术高速发展的今天,美国MicroSoft公司的Office系列办公自动化软件以其功能强大、使用方便成为几乎所有办公电脑中必备的软件。Office软件提供的图文混排、文字编辑、电子表格处理等在工作中发挥了巨大的作用,成为数据统计、分析不可缺少的工具。只要和数据打交道的工作,Excel几乎是必然的选择 1 问题的提出 为加强矿井精细化管理,提高经济效益,降低成本消耗,监督经济运行情况,兖矿集团煤业公司制定了100种材料单耗指标。100种材料单耗指标涵盖从一类到二十七类19955种材料,单耗指标统计分为月度、季度、半年度和年度四类。以2010年年度指标为例,2010年全年我矿erp领料记录为33499条。要从这33499条记录里找到这19955种材料,单纯借助excel中的查找、筛选、汇总的方法是非常繁琐的,即使是一个熟练操作excel的人员也需要两个工作日的工作量。但是当引入VBA程序,就会大大减少工作量,提高工作效率和准确度,实现自动化办公 2 Excel中的VBA VBA是Visual Basic for Applications(应用软件的可视Basic编程语言)的简称,是兼容BASIC编程语言的命令和语法的Excel应用软件的超级宏语言。微软公司成功推出的统一的VBA应用,拥有对象的连接和嵌入技术,能够使用户组合和协调多种主流应用软件的功能和特点进行应用开发,从而减少了开发用户自定义命令和用户程序的麻烦。[1]主要能用来扩展Windows的应用程式功能,特别是office软件各应用程序例如Word、Excel、Access、Powerpoint。VBA可以用EXCEL的宏语言来使EXCEL自动化,更确切地讲,它是一种自动化语言,可以使常用的程序自动化,同时创建自定义的解决方案 Excel对象、属性和方法。对象在Excel VBA的结构中起了重要的作用,Excel VBA 利用对象的概念把一类对象规定成一种特定的数据代表,在Excel VBA这样高度结构化的程序中,对象被组织在一起称为集合。一个集合就是一组同类对象形成的一个更大的对象。Excel中各个对象之间存在着包含与被包含的关系,把能够包含其它对象的对象称为容器(Container)。容器可以包含其它对象,也可以被其它容器所包含。对象(Object)实际上就是一类实体的集合,而一个对象又拥有不同的属性。比如,人,就是对象的例子,而人,具有姓名、性别、民族、出生日期等属性。属性是封装在对象内部的数据,它反应了对象的特征,对对象的操作实际上是通过改变其属性的方式来实现的。访问对象属性的方法表示为: 对象名称.属性= 属性值 对象的方法是封装在对象中用来操作对象属性的代码,这些代码对用户来说是不可见和不可改写的。使用对象的方法采用如下语法格式: 对象.方法参数1,参数2,. . .,参数n[2] 3 材料单耗统计应用 在excel表中,如图1,Sheet1是全矿领料明细表,简称“llmx”,加上标题行一共33500行,A:H共8列,其中A2:A33500是领料明细物料号码,再加上第9列I列,标题取为“单耗分类” Sheet2指标范围表,简称“zbfw”,加上标题行一共19956行,A:E共5列,其中B2:B19956是100类单耗包含的19955种材料的具体物料编码,E列是每一种材料在100类单耗中的分类 把这Sheet1、Sheet2两张表放在一个工作簿里,取名“单耗统计.xls” 在excel中调用vb编辑器,编程如下: …… Dim aa As Range Dim bb As Range Dim cc As String Dim r As Single Set aa=Workbooks(“单耗统计.xls”).Sheets(“zbfw”).Range(“b2:b19956”) For j = 2 To 33500 cc = Workbooks(“单耗统计.xls”).Sheets(“llmx”).Cells(j,1).Value Workbooks(“单耗统计.xls”).Sheets(“llmx”).Cells(j,1).Select DoEvents Set bb = aa.Find(cc) If Not bb Is Nothing Then r = bb.Row Workbooks(“单耗统计.xls”).Sheets(“

文档评论(0)

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

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

版权声明书
用户编号:7042123103000003

1亿VIP精品文档

相关文档