Excel程序（精选6篇）

Excel程序 第1篇

在一次学校组织的课件竞赛中, 我想到用Excel制作一个抽签程序, 尝试做了一下觉得非常好用, 这个程序简单易学, 分享给大家。这个抽签程序我们可以用作竞赛抽签, 还可以用在课堂上随机抽取学生进行提问, 增加课堂的趣味性。

现在我们一般用Office2007以上的版本, 要用vba, 首先要调出“开发工具”面板, Excel2007需要点击左上角的excel图标, 在excel选项中勾选《在功能区显示“开发工具”选项卡》, 或者直接按Alt+F11打开Visual basic。Excel2010则是点击“文件”菜单下的“选项”, 弹出的“Excel选项”对话框, 在左侧找到并点击“自定义功能区”, 在右侧找到“开发工具”并勾选之, 点击“确定”按钮。回到主界面, 在功能区就能够看到开发工具了。

在“开发工具”面板中, 我们单击“宏安全性”, 在“宏设置”中选择“启用所有宏”项。关闭Excel, 重新启动Excel, 宏设置就生效了。

在保存Excel时, 我们要保存为启用宏的Excel文档, 扩展名为xlsm。

我们单击“开发工具”面板中的Visual Basic按钮, 在弹出的Microsoft Visual Basic for Applications窗口中就可以开始我们的程序制作了。

1 制作用户界面

1.1在“插入”菜单下选择用户窗体, Height值为400, Width值为700。

1.2在窗体中加入一个标签控件Label1, Height值为400, Width值为700, Left值为174, Top值为18。在它的Caption属性值中输入你的程序名称, 如“晋中职业技术学院抽签程序”, Font值为华文新魏, Fontsize值为一号。

1.3在窗体中再加入一个标签控件Label2, 用来显示变化的值 (如序号) 。控件Height值为162, Width值为198, Left值为252, Top值为66, Font值为宋体, Fontsize值为150。

1.4添加4个按钮控件, Caption值分别为“开始”、“暂停”、“继续”和“重新”。其中“暂停”按钮和“继续”按钮重合, 调节为合适大小, 放在Label2下方就可以了。

这样用户界面就完成了。

2 输入数据

2.1 返回到Excel程序中, 在Sheet1中每一列填入你要抽取序号 (或学生名字) 。例如:1~50。

2.2 在Sheet2中填入相同的数据, 这是为了让Sheet1中的数据抽完后恢复数据使用。

3 编程

插入窗体, 修改窗体名, 如“智祥明2013制作”双击窗体或控件, 进入代码编辑窗口。

3.1 选择User Form窗体控件, 在事件列表框中选择Activate事件

输入下列程序

Range ("A1") .Select语句是为了让窗体活动时自动选择Sheet1中的“A1”单元格, 这一点很重要, 如果选择的是其它工作表, 运行就会出错。

3.2 选择“开始”按钮控件, 在Click事件中输入以下程序。

Randomize语句初始化随机数生成器。如果没有使用Randomize, 则 (无参数的) Rnd函数使用第一次调用Rnd函数的种子值。

3.3 选择“继续”按钮控件, 在Click事件中输入以下程序:

语句Active Cell.Entire Row.Delete是把所选单元格所在的行删除, 从而达到删除单元格的目的, 以免重复选择, 其他语句和“开始”按钮的click事件中语句相同, 继续进行选择。这样以后直点击“继续”按钮, 可以进行下一个抽签。全部抽完, 也就全部删完数据了。

3.4 选择“重新”按钮控件, 在Click事件中输入以下语句:

是为了清除所有表中数据的内容。

以下语句把Sheet2表中的数据拷贝到Sheet1中, 达到重新开始的目的。

Sheets (1) .Range ("A 1") .Resize (Sheets (2) .Range ("a65536") .End (xl Up) .Row) =Sheets (2) .Range ("a1") .Resize (Sheets (2) .Range ("a65536") .End (xl Up) .Row) .Value

这样, 这个抽签程序就基本做好了。

3.5 选择“暂停”按钮控件, 在Click事件中输入以下语句:

这样, 通过“继续”按钮和“暂停”按钮交替显示, 可以不断的循环, 而按一次“继续”按钮, 就用Active Cell.Entire Row.Delete语句删除一次所选的数据, 直到抽完为止。因按“继续”按钮用Command Button4.Set Focus语句让“暂停”按钮获得焦点, 所以可以达到按“空格”键或“回车”键达到抽取的目的。

3.6 在This Workbook中输入以下语句:

3.7 在模块1中输入以下语句:

Excel Vba用于小程序编辑非常有趣实用, 是我们教学生活中的一个好帮手。本篇文稿是我在工作中用到时编的程序, 通俗易懂, 希望通过这个小程序能给同行们带来乐趣。

参考文献

[1]王永, 谢青, 罗龙艳, 武建军译.Excel专业开发 (第2版) .电子工业出版社, 2013

[2]李华忠.别怕, Excel VBA其实很简单.人民邮电出版社, 2012

[3]林盘生.Excel2010SQL完全应用.电子工业出版社, 2011

[4]林书明, 邓志伟.学会VBA菜鸟也高飞.电子工业出版社, 2013

Excel程序 第2篇

在数据库管理信息系统的开发领域中,VB是最常用的一种语言,而在一个MIS系统的设计过程中,各种各样的报表处理是最繁琐的一项工作。在VB平台下,表格控件相当丰富,但用VB中自带的控件来制作表格,有很大的局限性。对于格式复杂的报表,如果报表程序编写不当,不仅工作量大,而且维护很困难。这是因为,中文报表的格式一般较复杂、不规范、难于描述,完全用程序描述和实现报表功能很困难。另外,报表的格式不可能永远不变,如果报表的制作与程序耦合性太强,修改报表,就要修改程序,这给程序的维护带来很大的不便。

微软的Excel具有强大的报表制作功能,利用其单元格的拆分、合并和格式设定,可以方便快捷地建立空白的报表文档,并且可以严格地定义单元格间数据的业务逻辑,对最后生成的报表,也可方便地根据实际情况重新设定其格式;而利用VB强大的数据处理能力可以方便地进行报表数据统计。因此,结合Excel强大的报表制作功能和VB的数据处理功能,一方面可加快报表的制作,方便报表模块的设计开发;另一方面制作的报表也更具灵活性[1]。文中还利用Excel与VB进行报表打印,通过在VB中建立一个Excel Application对象,并在其中建立一张空表(或套用一个模板建立表格),然后用Cell的方法从数据库中将数据填充进Excel表中,调用Excel的打印方法打印。

2 Excel的模板

Excel的模板是Excel的一种文件格式(后缀名为xlt),是一个样板。利用模板可以生成内容相同的Excel工作簿(后缀名为xls),而模板本身不变。在实际工作中,首先用模板把报表格式、框架、表头、表尾等固定部分制作好,作为报表的原型;然后对要变化的单元定义名字,单元格之间的引用和运算关系也可在模板中定义(这是Excel软件的特长),比如求最大值、最小值和平均值,这样大大减轻了编程的工作量和维护的工作量。利用Excel的强大功能,可制作各种各样复杂的模板[2]。

3 基于Excel和数据库的VB报表制作步骤

在报表模块中,预先定义好所需要的报表格式,形成报表模板文件,通过程序打开模板文件,自动传输数据,即形成最后报表。通过VB代码把数据库与Excel相连接,就能实现数据报表。程序员根据软件要求设置多个任务。任务设置完成后,根据任务的不同在Excel中定制多个报表模板,每个报表模板可按不同的数据处理需要定制不同的报表结构。它包含了报表格式、数据表结构、计算公式等特征。报表操作时,通过VB代码启动Excel,根据任务要求加载报表模板,然后通过访问数据库技术把数据从数据库传入Excel表,用户就能够在Excel操作界面上实现数据的修改、查询、汇总分析、打印等功能[3]。一般来说,在VB程序中利用Excel制作报表的过程主要有以下几个步骤,如图1。

1)打开Excel在Excel中利用单元格的合并、拆分和格式设定先把报表的表头表尾等固定部分设计好,然后将其保存为模板文件Excel.xlt形式。

2)打开VB界面,建立一个新工程,并命名为“工程1”。

3)从“工程”菜单中选择“引用”栏,弹出“引用”对话框,在对话框左边的列表中选择“Microsoft Active X Database Objects 2.7 Library”,“Microsoft DAO 3.6 Object Library”和“Microsoft Excel 10.0O bject Library”。

4)在VB中建立一个Form窗体,并添加一个Command Button按纽,命名为Command1。

5)打开代码编辑器,输入代码。

4 应用实例

以鞍山市炼铁总厂管理信息系统开发中的报表制作为例,结合详细的代码,说明基于Excel和数据库在VB中制作报表的过程。

4.1 用VB创建Excel对象

每个Microsoft office应用程序提供了一个顶层Application对象,Excel应用程序也提供了一个Excel对象。VB中使用该对象前须引用相应的对象库才能使用它,VB中引用Excel对象库的步骤:选择菜单“工程”“引用”后,选中“Mirosoft Excel 11.0 object Library”,按“确定”即可。

引用完成后可对Microsoft Excel的Applicaion对象进行引用,即定义相应的Excel对象变量,代码为:

创建了工作薄、工作表对象变量后,可以用这些变量来访问在Excel应用程序中的从属对象以及这些对象的属性和方法。代码如下:

’创建一个Excel工作簿,其名称为用户从对话框中获取的名称

|Set clsheet=clbook Worksheets(1)’在工作簿中创建一个工作表

4.2 生成工作表内容

生成了以EXCEL工作表文件后,紧接着就只要对工作表中的单元格进行格式设置和赋值就可完成报表的制作了。

单元格的赋值可分为两种情况:

一种是直接给单元格设置固定值,如单元格的标题等,直接利用变最赋值就可以了,如下面的代码:

另一种是将单元格与数据库中记录集的字段值对应,首先需要连接数据库并生成相应的查询记录集,其代码形式如下:

然后将各单元格数据设置为记录集中相应的字段的值,代码为:

4.3 保存打印报表

生成Excel工作表后,可以进一步利用Excel对象的方法如Save、Print Preview、Print Out等对Ex CEL工作薄工作表发出存盘、预览、打印等指令了。代码如下:

5 结论

在VB中结合Excel进行复杂报表的设计,可以减轻报表设计的工作量,提高报表设计的灵活性。用上面介绍的方法能较方便地制作平常所见的报表。利用Excel制作报表的灵活性,结合Excel和数据库在VB中进行报表制作可大大方便报表模块的设计开发使得在VB环境下也能制作出功能强大且复杂的报表。

参考文献

[1]刘韬.Visual Basic 6.0数据系统开发实例导航[M].北京:人民邮电出版社,2004.

[2]Kathy Ivens.中文Excel2000参考大全[M].北京:北京希望电子出版社,1999

Excel程序 第3篇

1 解决思路

Excel文档的存储结构微软并未公开, 这给我们了解学生文档的内部结构带来了困难。但在Office中微软却给我们提供了一个万能工具VBA, 通过它可以获取Office文档中的对象及其属性, 从而了解文档内容判断对错与否, 这是我们得以批阅Excel文档的先决条件。

解决Excel批阅的主要思路是预先创建一个数据库, 记录下本次需要批阅的所有考核项目、考核区域、考核知识点等信息, 再做好本试卷的标准答案。批阅时按数据库中的批阅项目将学生解答与标准答案进行比对, 从而进行判断学生解答的对错。

2 开发软件及数据库的选择

目前许多开发工具都可以针对Excel进行操作。但Excel和其它Office软件都自带了一个开发环境, 在此环境中开发完全可以满足本项目的要求。而且Excel所提供的宏录制功能可以一字不改的将录制的代码移植到程序中, 给对象和属性的获得以及代码的编制带来了便利, 调试程序时也免除了在多个软件中来回切换之苦。另外本项目所使用的数据量很小, Excel本身就是一个数据库软件, 完全可以存放批阅所需的数据, 批阅结果的输出可以存放在其它数据库中, 但查看不方便, 软件移植性差。程序中采用Excel工作表存放批阅结果数据, 老师和学生可以很方便的利用已掌握的Excel所提供的筛选、分类汇总、数据透视表等强大的数据统计功能了解班级和各自的批阅结果。因而我的开发环境和数据库全部使用Excel。

3 数据库结构

学生在做题时一般是以试卷为单位的。创建数据库的首要任务就是把这套试卷需批阅的相关信息记载在数据库中作为批阅的依据。其结构部分内容如下表1:

考虑到程序还要自动批阅Word、Power Point、Front Page、Access等软件的作业文档, 所以设置了“题型”列, “试卷”是给各套试卷所做的一个编号以区分不同试卷。“批阅项目”是要批阅的项目名称, 如单元格、边框、图表等。“工作表名”是本项目的批阅内容在哪个工作表中。“区域”表示要检查的单元格范围。如:B3:C10等, 当然象图表、工作表改名等是无此项的。“考点”是具体的考核即需批阅的内容。如单元格项目的考核点有:内容、公式、外表引用、小数位数、百分比、千位分隔符等内容。本程序中所使用的试卷全部来自江苏省大学生计算机一级考试试题, 并以“2013春1”等为试卷名。

4 批阅所及涉的相关对象与属性

自动批阅的思路就是将解答与标准文档中的相关内容取出来进行对比。这里使用到对象的概念。Excel中有许多对象。利用不同对象对文档的所内容进行存储和管理。Excel有完整的按层次组织的对象体系, 这里无法详细解释, 有兴趣可查看Excel编程环境VBE中的帮助信息和相关资料。下面只对本软件所涉及的几个主要对象简单介绍。

1) 应用程序对象Application

这是Excel程序的最高层对象。代表整个Excel应用程序。其它所有对象都是它的子对象。表示时不同对象间用“.”隔开。但为表示的方便该对象默认可省略不写。Application有许多属性来表示或设置Excel应用程序的使用状态。

2) 工作簿集Workbooks和工作簿Workbook对象

Workbooks是已打开的工作簿的集合, 可以用索引号或工作簿名称表示其中的某个工作簿。如Wordbooks (1) 或Workbooks (“计应管理.xls”) 。Workbook是单个工作簿对象, 指具体的某个工作簿。与此相关的有二个很重要的对象:Thisworkbook和Active Workbook。前者指VBA代码所处的工作簿, 后者表示当前激活的工作簿。

3) 工作表集Work Sheets和工作表Work Sheet对象

Work Sheets是Workbook的下层对象, 表示该工作簿中的所有工作表。用索引号或工作表名表示某个指定的工作表。如WorkSheets (1) 或Work Sheets (“sheet1”) 。当Sheet1工作表位于第1个时二者表示的是同一工作表。

4) 单元格区域Range对象

这是Excel工作表中表示单元格区域的对象。它可以表示一个单元格、一批单元格或整个工作表中的所有单元格。单元格可以是连续的也可以是不连续的。如在A1单元格表示为Range (“A1”) , A3到C8的区域可表示成:Range (“A3:C8”) 。A1, A3, A5可以表示为Range (“a1, a3, a5”) 。这与Excel中的使用是一致的, 很容易理解。

5) 单元格Cell对象

这是用行列号表示的单个单元格对象。如;Cell (2, 3) 表示第2行第3列单元格。在需对单个单元格有规律依次循环操作时非常有效。

6) 图表Chart对象

图表是Excel的一大特色。Chart是图表对象。在一个工作表中可以有多个图表即多个Chart对象。通过Chart Objects对象集指定索引号或图表名称获取指定的图表。下面的语句先定义一个tb对象变量, 再将Sheet1工作表中的第1个图表赋给tb对象变量。

Dim tb As Chart

Set tb=Worksheets ("Sheet1") .Chart Objects (1) .Chart

If tb.Hastitle then Msgbox tb.Chart Title若图表有标题则显示

Chart有许多属性表示了该图表的图表类型、数据源、标题及内容等一系列特性。

Excel还有其它许多对象, 这些对象及上述各对象的相关属性可以通过宏录制获得。也可通过VBA编辑器的帮助获取。

5 学生作业文档的取名与存储

1) 学生作业文件名称的规范是实现计算机自动批阅的基础。本程序中规定按下列规则取名:“班级名学号姓名试卷名”。如:12服设321205013201陈清2013春1.xls。文件名中包含了班级、学号、姓名、试卷等信息, 通过扩展名了解文档类型。

2) 作业文档的组织结构

通常自动批阅的是Excel某一套试卷所有学生的文档。所以学生文件按试卷存放, 即同一试卷的所有学生解答文档存放在一个文件夹下, 用试卷名作为该文件夹名称。文件夹层次结构设计为:班级名/程序名/试卷名/作业文档。如:12服设32/Excel/2013春1/12服设321205013201陈清2013春1.xls。

3) 标准文档的存储

程序中预先做好的标准文档按“软件名/试卷名”分层存放。

6 批阅的总体流程

启动Excel批阅程序打开[Excel批阅]对话框, 如下图。设置班级、标准文档 (即试卷名) 、学生作业文档目录。点击[开始批阅]按钮后自动批阅一张试卷的所有学生文档。

程序先打开本试卷的标准解答文档, 再历遍所有学生作业文档, 并进行批阅。主要代码如下:

7 具体项目批阅实现举例

根据江苏省一级考试的题型, 软件把试卷中对Excel的操作分为:数据读入、单元格、边框、图表...等13个批阅项目。每个项目均有编制了一个过程进行批阅。如:批阅单元格的“单元格”、批阅图表的“图表”等过程。每个项目中有若干个具体考核点。通过对每个考核点的检查对比实现批阅。由于篇幅的限制这里仅以单元格和图表批阅的个别考点为例简要说明如下。

单元格是最常见的Excel批阅项目。下面是批阅单元格的过程, 参数依次是:批阅项目工作表、结果输出工作表、班级、学号、姓名、试卷名、标准区域、解答区域、当前批阅项目所在行号。本过程调用一次则批阅项目表中的一行, 即一个项目。

其中:bz和jd均是从参数中传来的Range对象, 包含了需批阅判断的单元格区域。通过变量i的循环用bz.Item (i) 和jd.Item (i) 历遍区域中的所有单元格。单元格的考点有:内容、有无公式、绝对地址、百分比、小数位数、外表引用、左对齐、表内引用、千位分隔符。

其中单元格的内容属性为:Valuse或Text, 这也是Range的默认属性, 可以省略不写。有无公式的属性为Has Formula, 若为公式肯定是以“=”开头的, 所以也可以判断Formula属性值的第1个字符是否为“=”作为判断依据。绝对地址是在行号或列表前添加“$”表示的, 判断时用instr () 函数查看“$”字符是否在单元格的Formula属性中存在。百分比通过在单元格的Number Format属性中含是否有“%”符号来批阅。单元格的小数位数是在Number Format属性中用“0.000_”字符串表示的, 程序中使用instr () 函数找出“0.”与“_”二字符间0的个数获取小数位数。Excel在引用非当前工作表时必须在工作表名称与单元格地址间用“!”隔开, 这也就成为判断的依据。左对齐是水平对齐属性Horizontal Alignment的一个取值, 取出该属性的值再与标准对比即可判断。表内引用的批阅主要是防止考生在题目要求引用时直接采用相应单元格的值进行计算, 引用就是在公式中使用地址, 地址是由字符和数字组成的, 如果公式中未使用引用则公式中无字母, 由此而进行判断。Excel的千位分隔符是在单元格的Number Format属性中用“#, ##”字符表示的, 这也成为批阅判断的依据。过程最后调用了sc输出过程, 将本项目的批阅结果送入结果工作表中输出。界面如下。

制作Excel图表是每套试卷的必答题。软件编制了一个“图表”过程批阅图表。过程的参数如“单元格”过程, 只是bz、jd二对象变量分别表示需批阅图表所在工作表。过程中首先判断指定工作表中图表的数量, 如为0则考生图表未解答, 则图表的所有考核点均为0。否则, 用Set bzc=bz.Chart Objects (1) .Chart和Set jdc=jd.Chart Objects (1) .Chart语句将标准和解答图表分别赋给bzc和jdc二图表对象变量, 使接下来的编程思路更清晰、代码更简单。语句中取出Chart Objects索引号为1的图表对象是基于工作表中只有一个图表考虑的, 一般考试不会也没有必要要求考生创建多个图表。图表的考核点比较多, 主要有:图表类型、数据源等16个知识点。它们所对应的相关属性如下表2:

有了属性只要对解答与标准相应属性进行对比就可以批阅了。

8 其它各类操作题的批阅思路

1) 数据读入、列排序、数据透视表。这几类题型实际上是无法了解其操作方法的, 只要判断操作结果。对于此类试题只要给定区域对内容进行对比即可。

2) 合并单元格的批阅

在批阅合并单元格时实际参数是需要合并的Range对象变量, 如果此区域已合并则bz.Merge Cells属性返回真。其它如内容、居中、字体、字号、颜色的属性分别为:bz.Item (1) .Text、bz.Horizontal Alignmentbz.Font.Name、bz.Font.Size、bz.Font.Color Index。

3) 筛选的批阅。从筛选的结果看, 筛选并不是将数据行删除而是隐藏, 批阅时将批阅区域内的各行隐藏属性与标准做对比。

4) 边框底纹。Borders是Excel的边框集对象, 该集合包含四个边框线和水平与垂直内框线, 并将这些边框作为一个整体进行操作。也可以用索引号表示上下左右水平垂直六个独立的边框。索引号分别为:xl Edge Top、xl Edge Bottom、xl Edge Left、xl Edge Right、xl Inside Horizontal或xl Inside Vertical, 分别表示上下左右水平垂直。这些对象的属性主要有:线条样式、粗细、颜色分别用LineStyle、Weight、Color属性表示。底纹用bz.Interior.Color属性表示, 其中bz是Range区域对象。

5) 条件格式

Excel可以通过条件格式功能对指定区域的颜色或边框进行自动设置。条件可以是多个, 其条件数量由bz.Format Conditions.Count属性设定。条件的具体内容由bz.Format Conditions (1) .Operator决定。其中:bz是Range区域对象变量, 索引号i是条件序号, 设定的颜色和粗细分别由bz.Format Conditions (1) .Font.Color Index和Format Conditions (1) .Font.Bold二属性决定。

9 结束语

Excel的计算机自动批阅是编制Office文档批阅程序中最方便的。这是因为Excel提供了比其它Office程序更方便、功能更强大的宏录制功能。其二Excel对批阅对象的准确定位可以方便的用Range对象实现, 其三用VBA对Excel研究的书籍很多, 网络咨询信息量也很大, 提供了更多的帮助。

参考文献

[1]欧阳明慧.Excel VBA技巧实例手册[M].北京:北京希望电子出版社, 2009.

[2]韩小良.Excel VBA高效办公实用宝典[M].北京:中国铁道出版社, 2009.

[3]赵志东.Excel VBA技巧应用[M].北京:人民邮电出版社, 2007.

[4]伍云辉.Excel VBA典型实例大全[M].北京:电子工业出版社, 2008.

Excel程序 第4篇

地铁环境与设备监控系统BAS除提供车站良好的乘车环境外, 还起到至关重要的防灾功能。其主要包含系统和设备如下:

(1) 通风、空调与供暖系统;

(2) 给水与排水系统管;

(3) 应急电源 (EPS) 及不间断电源 (UPS) ;

(4) 照明系统;

(5) 乘客导向标识系统;

(6) 自动扶梯、电梯设备;

(7) 站台门、防淹门系统等;

(8) 温、湿度等环境参数监测等。

完善的PLC控制系统是各子系统以及整体应用功能得以实现的前提条件。

要完成以上的设备监控及功能要求, 采用传统的PLC编程方法, 往往会使内容不清晰、层次不明确、工作冗余繁琐、容易出错。

Excel在协助PLC程序开发方面起到了数据分析、数据处理、PLC编程、数据库原始记录等功能, 同时通过对BAS系统的核心功能通风系统的PLC代码的生成介绍, 更加体现Excel所带来的便利操作[1,2]。

1数据分析与处理

1.1数据统计分析

BAS系统监控设备以设计院提供的设计蓝图为依据。对蓝图中其各节点控制箱柜的控制要求进行分析:实现方式上区分硬接线与通讯数据, 数据类型上区分数字量、模拟量等。通过Excel函数功能对以上数据量的统计, 对优化配置提供比较依据, 同时分析I/O余量、模块电源总体功耗、总体安装尺寸, 以解决配点不足、不合理, 电源供电不足, 安装空间不够等可能带来的一系列问题。

1.2设备及功能分类

在监控对象方面命名规则采用系统+设备代码+设备编号+功能, 见表1。

每个设备类的监控要求进行归类, 以隧道风机TVF为例, 见表2。

在实际工程实施中根据要求不同, 功能会有所不同, 需考虑以下几方面。

1) PLC址址方式:绝对地址编程、绝对地址和虚拟地址结合、名称地址。表3中内存地址是针对绝对地址而设置的相对点位地址。

2) 监控要求:并非所有功能都需用到, 如隧道风机只存在高速正反转无需低速的情况。

3) 报警点:如设备的报警点, 故障代码等。

4) 报警级别定义和报警阀值:报警级别分1-3级, 如火灾工况定义为1级报警。报警阀值, 根据各设备而定, 如变频设备的故障代码 (非零值) 。

5) 报警时的描述信息。

表3为变量地址及报警表。

通过以上3个表, 可以构造完整的设备变量以及报警信息。

1.3设备及变量数据生成

Excel自带的VBA功能, 可以快速生成PLC所需的I/O与设备变量的链接, 功能块的调用, 上下位的传输数据程序。

1) 通过对设备的分类可以生成设备清单表。即系统+设备代码+设备编号。

2) 通过对设备类的功能定义可以生成设备变量表, PLC的变量结构体。

3) 结合设备清单表和设备功能表可以生成可导入PLC的设备变量表, 完成了PLC对设备变量的创建。

4) 通过对设备变量的要求定义可以生成接口连接表、上位与下位的通讯点位、上位的报警表等。

Excel的快速编辑功能, 以及结合VBA的快速生成功能, 使PLC创建变量不再是繁琐的工作。结合Excel的函数及VBA查错功能, 大大减少传统创建PLC变量方式而引起的错误率高、排列不合理、结构不规范等现象。

1.4功能块生成

每类设备往往需要有自己的功能块来实现控制功能。传统方式上会逐个调用功能块, 除工作量大以外也极易引起设备缺漏。通过对PLC编程语法的理解, 通过设备表可生成相应的设备功能块调用程序。以GE PAC 3i PLC编程为例 (后面举例都是以PAC 3i的PLC编程代码)

以上代码为两个二氧化碳设备的功能块调用。在功能块测试方面, PLC编程软件自带了强大的指令集以及功能说明, 在其内部结构内完成组态和测试更为有效, 而将大量的数据处理工作交给Excel更为合理。

至此完成了大部分PLC的基础结构。在完成各设备功能块测试后即可实现PLC的单控功能, 这也是整个系统调试的基础。

2通风控制系统的解析与生成

BAS系统的重心内容为通风系统, 通风系统的核心功能为模式控制。模式控制对其步骤进行解析可分为工况分析、工况赋值、关联设备。

2.1工况分析

首先对通风工况做个简要说明, 以大系统通风为例, 见表4。

主要分正常工况、灾害工况 (如火灾) 。通过Excel可生成模式信息表, 见表5。

表*XF-1-A?XF-1-B*K1为设备动作编码, 第一个“*”到第三个“*”为模式下同列设备的动作情况说明 (详见表6) 。

通过预先定义好的模式区段以及模式工况说明 (大系统D=200区段, 隧道系统为100区段, 小系统为300区段。0=正常工况, 1=火灾工况, 2=阻塞工况, 3=排气工况) , 可生成相应的工况筛选代码

导入PLC程序后显示效果如图1。

2.2工况赋值

每一种模式工况对应的设备动作并不一致, 模式表中通过不同的符号表示不同动作, 见表6。

在PLC中使用数字类型易于数据处理, 简化编程, 因此对各设备动作需进行数字定义, 见表7。

为节省模式控制中对PLC变量使用, 采用16进制编码方式, 以4个bit位为一个设备控制对象, 最多可执行16种设备动作, 可满足所有设备的动作要求, 同时16进制数据在运算方面更易于数据处理。结合表6、表7两表可生成对应模式的工况动作说明以及表达式。

D1动作说明:

“*”用于间隔表6中各列设备动作, “?”用于间隔表6中同列下设备相同动作。

表达式:D1=3310001110333

为了便于PLC代码的生成, 表达式对应的设备动作由右至左, 采用双整字型, 需将D1设备动作值用两个整型存储, 对应生成的设备动作表达式为

BAS_PVS_S01.DINT0=16#01110333

BAS_PVS_S01.DINT1=16#33100

2.3关联设备

完成工况的判断以及工况中设备的动作值后, 将该工况下的设备动作值赋给相应设备成为实质性的一步。通过设备在该工况下的排序方式, 可生生成各设备所占用的16进制位, 如表8所示。

PVS=大系统, 01=1号系统, Hex=16进制, 0.0=第0个整型的第0位, 后面表述内容为依次递增, 当超过一个双整字, 则双整字加1。

对上述数据进一步解析, 生成设备在模式工况下的控制动作命令。以设备XF-1-A举例代码如下。NOCON BAS_PVS_S01.DINT[00].X[0], G;H_WIRE;COIL BAS_XXF_1A. MODBIT0, G; END_RUNG;NOCON BAS_PVS_S01.DINT[00].X[1], G;H_WIRE;H_WIRE;COIL BAS_XXF_1A. MODBIT1, G; END_RUNG;NOCON BAS_PVS_S01.DINT[00].X[2], G;H_WIRE;COIL BAS_XXF_1A.MODBIT2, G; END_RUNG;NOCON BAS_PVS_S01.DINT[00].X[3], G; H_WIRE;COIL BAS_XXF_1A.MODBIT3, G;END_RUNG;

通过4个bit位的编码确定该模式下的设备动作工况。

2.4模式综述

以上为大系统模式举列, 在模式控制中还有隧道系统模式、小系统模式、照明模式、水系统模式等。隧道系统需要考虑左右区间, 将其区段值分成3段。小系统 (RVS) 模式需考虑各个子小系统 (S01, S02...) , 在代码生成上, 首先以小系统模式的各子小系统为单元生成如大系统一样的设备动作表, 接着对各模式适用的子小系统进行分类, 如小系统模式号X1-X4动作设备为S01系统设备, X5-X8动作设备为S02系统设备, 最后模式要求所有子系统一同动作的采且同一模式号传送给各子系统, 以统一模式动作。其它系统模式实现上采用类同方式。

3结语

在接口及设备繁多的情况下, 通过Excel来处理大量的数据, 以及编程功能, 可节约大量的时间, 同时为全面的数据分析打下了基础, 在Exce数据分析无法满足的情况下, 可将上述生成的关系表导入数据库, 利用数据库的解析功能实现更为强大的数据处理。无论是下位程序结构的合理性、直观性、可读性都会呈现优越的一面, 同时对上位的数据以及上下位的数据对接都起到了极大的便利。既有数据可查, 又有数据可用。

参考文献

[1]GE FANVC.GFK-2222D PACSystems™.CPU Reference Manual[Z].2005.

Excel程序 第5篇

现今很多企业及学校都实现了办公自动化,其中经常需要使用数据库中的数据生成各种报表,数据库单一的存储功能和报表软件对数据库的支持不足往往导致了大量的手工机械劳动,由于大部分的企业和学校用的数据库是ACCESS,而EXCEL几乎是办公电脑必备软件,因此本文将介绍一种利用VC6.0将ACCESS数据库中的数据有效输出生成EXCEL报表的方法,这种方法可节省大量人工劳动,由计算机来完成此种机械动作。

1 背景技术介绍

1.1 ACCESS数据库访问技术介绍

ADO(ACTIVEX DATA OBJECT)是微软提供的面向对象的接口,是基于OLE DB技术的数据访问接口,它继承了OLE DB技术的优点,并且,ADO对OLE DB的接口作了封装,定义了ADO对象,使程序开发得到简化,ADO技术属于数据库访问的高层接口。

ADO对象结构类似于OLE DB,但并不依靠对象层次。大多数情况下,开发人员只需要创建并只使用需要处理的对象。下面对象类组成了ADO接口:

(1) Connection 用于表示与数据库的连接,以及处理一些命令和事务。

(2) Command 用于处理传送给数据源的命令。

(3) Recordset用于处理数据的表格集,包括获取和修改数据。

(4) Field用于表示记录集中的列信息,包括列值和其它信息。

(5) Paremeter用于传送给数据源的命令中间,以来回传送数据。

(6) Property用于操作在ADO中使用的其他对象的详细属性。

(7) Error用于获得可能发生的错误的详细信息。

1.2 EXCEL编程模型介绍

EXCEL的编程模型是基于COM(Component Object Model,组件对象模型)标准的,它通过COM自动化接口展示自身的各种功能和特性,供外部程序进行调用和交互。

其中,主要用到Application,Workbook,Worksheet三个智能指针对象。每一个Application对象代表一个Excel程序;Workbook对象代表一个EXCEL工作薄,一个程序可以打开多个工作薄;每个Worksheet对象表示一个EXCEL工作表,在同一个EXCEL工作薄中可以打开多个工作表;这三个对象的建立顺序依次是:Application,Workbook,Worksheet,Range对象依赖于Worksheet,每个Range对象表示EXCEL工作表上的一个区域,该区域可以是一个单元格,也可以是多个单元格的组合;区域的单元格可以是连续的,也可以是分散的。报表程序对EXCEL数据的写入就是通过写入RANGE来实现的。

2 实现方法

本文演示一个将本地数据库文件DEMO.MDB的数据导入并生成EXCEL报表的例子。

2.1 导入ADO库文件

使用ADO前必须在工程的StdAfx.h头文件里用直接引入符号#import引入ADO库文件,以使编译器能正确编译。用#import引入ADO库文件的代码:#import“C:program filescommon filessystem[JPadohnsado15.dll” no namespace rename (“EOF”,“adoEOF”);

这行语句声明在工程中使用ADO,但不使用ADO的名字空间,并且为了避免常数冲突,通常将常数EOF改名为adoEOF。那么不添加另外的头文件,就可以使用ADO接口。

2.2 初始化COM库环境

由于ADO库是一组COM动态库,因此这意味应用程序在调用ADO前,必须初始化OLE/COM库环境。在MFC应用程序里,一个比较好且简单的方法是在应用程序主类的成员函数InitInstance里使用函数AfxOlelnit来初始化OLE/COM库环境[2]。

2.3 建立连接并获取数据

#import 包含后就可以用3个智能指针了:ConnectionPtr,RecordsetPtr和CommandPtr,利用这三个指针定义三个对象,mpConnection, mpRecordset,mpCommand。

ADO与数据源的连接是通过连接ConnectionPtr智能指针来创建的,该指针是Connection对象指针。然后调用Createlnstance()来创建一个连接对象的实例

mpConnection.CreateInstance(uuidof(Connection));

mpConnectionOpen(″Provider=Microsoft.Jet.OLEDB.4.0;DataSource=Demo.mdb″,″″,″″,adModeUnknown); // 打开本地Access库Demo.mdb

接着使用mpRecordset创建一个数据记录集实例,调用OPEN方法来获得查询记录集;

mpRecordset.CreateInstance(uuidof(Recordset));

mpRecordsetOpen(″SELECT*FROM Result″,//查询数据库中Result表的所有字段

mpConnection.GetInterfacePtr(), //获取库接库的IDispatch指针adOpenDynamic,adLockOptimistic,adCmdText);

Open函数的第一个参数为SQL语句,自定义报表中有可能并不使用数据中的所有数据,或者对数据库的表的结构有不同要求,使用SQL语句,用户可以根据自己的需要来生成与报表相匹配的表,使工作得以简化。

由于此程序近仅涉及对数据库数据的访问,因此对数据库中数据的操作只介绍如何取得数据字段。通过调用mpRecordset的GetCollect函数可以取得一个字段的值,函数的参数可以是字段名,也可以是字段序号,下面这两个函数都表示取得第0个字段的值:mpRecordsetGetCollect(″Name″)或mpRecordsetGetCollect(variantt(long(0));用MoveFirst()方法可移动到记录表首位,用MoveNext()方法可移动到下一条记录位置,以此移动记录集来获得数据库中的数据。

在COM接口中,时常用到Variant数据类型。Variant数据类型是一个联合,可表示几乎所有的类型的数据,类variantt是对VARIANT数据类型的封装。在Excel 2003的COM编程中,如果提到某函数或属性需要一个值,该值的数据类型通常是Variant,这里就需要用variantt对所要用的参数进行强制转换。

2.4 配置EXCEL生成环境

在VC6.0中选择MenuViewClassWizade,打开ClassWizade窗口,选择Add ClassFrom a type library,选择C:Program FilesMicrosoft OfficeofficeExcel.exe(C:Program FilesMicrosoft Office是本机上Microsoft Office 2003的安装目录,可根据个人机器上的实际安装目录修改)。选择Application,Workbooks,Workbook,Worksheets,Worksheet,Range,加入新类。

2.5 利用EXCEL模板生成EYCEL文件

类似对ADO的操作,首先使用Application生成一个EXCEL程序

ExcelApp.CreateDispatch(″Excel.Application″,NULL));

Vc对EXCEL的操作支持使用已有的EXCEL文件,在WINDOWS环境下对EXCEL文件进行排版比用VC操作来排版直观且快速,用户可以将自定义的排版样式存入EXCEL文件,本程序将其保存为DEMO.XLT。

wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);//得到工作薄

wbMyBook.AttachDispatch(wbsMyBooks.Add(variantt(″D:[KG-*7/9 DEMO.xlt″)));//加入模板文件

wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true); //得到Worksheets

wsMysheet.AttachDispatch(wssMysheets.GetItem(variantt(″sheet1″)),true); //得到sheet1

rgMyRge.AttachDispatch(wsMysheet.GetCells(),true); //得到全部Cells,rgMyRge是cells的集合

2.6 利用ADO将得到的数据填入EXCEL

对EXCEL文件的数据写入是通过函数SetItem来实现的,SetItem函数的第一个参数表示EXCEL文件的行序数,第二个参数表示列序数,第三个表示要填充的值,下面是示例:

variantt variable;

variable=mpRecordsetGetCollect(″Name″);//读取字段为″Name″的记录集的值

CString tempStr=(LPCSTR)bstrt(var);//将所得值转换为CString类型

rgMyRge.SetItem(variantt((long)1),variantt((long)1),variantt(tempStr));//在EXCEL文件的第一行第一列填入从数据库字段″Name″得来的值利用之前生成的mpRecordset,对其进行遍历,将报表中需要的数据填入EXCEL。

2.7 保存文件

savePagh字符串表示文件保存目录,使用SaveAs函数保存EXCEL文件。

wsMysheet.SaveAs(savePath,vtMissing,vtMissing,vtMissing,vtMissing,

vtMissing,vtMissing,vtMissing,vtMissing);//缺省的参数用vtMissing代替

ExcelApp.SetVisible(true); //使EXCEL可见

2.8 释放占用对象

最后释放占用的对象

rgMyRge.ReleaseDispatch();

wsMysheet.ReleaseDispatch();

wssMysheets.ReleaseDispatch();

wbMyBook.ReleaseDispatch();

wbsMyBooks.ReleaseDispatch();

ExcelApp.ReleaseDispatch();

2.9 报表生成

图1是使用此种方法应用在某工厂设备安全分析所获得的报表。

3 结束语

介绍了一种通用的数据库报表制作方法,对版面的格式要求也可基于这种方法完成,且可适用于各种版本的EXCEL,ACCESS,对企业、学校事务报表有很大的参考价值。

摘要：使用ACCESS中的数据创建EXCEL报表在学校、企业中经常用到,用VC来实现会节省大量时间;简单介绍了VC使用ADO获取ACCESS数据的方法以及使用VC将获取的数据填入EXCEL生成报表的方法。

关键词：EXCEL编程,ACCESS编程,VC编程,EXCEL自动化

参考文献

[1]刘生平.Visual C++.Net数据库开发技术与实践[M].北京:清华大学出版社,2005:13-14.

Excel程序 第6篇

关键词：砂,级配,细度模数,EXCEL

1 引言

砂子的粗细对混凝土材料的内部结构及性能具有明显的影响。砂子过粗,颗粒间难以相互嵌固,使混凝土内部结构难以形成稳定的相互嵌固堆聚结构,而砂子过细,其总表面积较大,为保证混凝土中集料之间的充分润滑与粘结,则包裹表面所需的水泥浆量就较多。配置混凝土时,砂的颗粒级配和细度模数应同时考虑。当砂的级配较好,且其中含有较多的粗颗粒,并以适量的中颗粒及少量的细颗粒填充其空隙时,这种砂的级配和粗细最适宜,其空隙率及总表面积均较小。使用这种级配和粗细均适宜的砂配置混凝土时,不仅水泥用量少,经济性好,而且还能提高混凝土的密实度、强度和耐久性,并具有较好的施工操作性能。由于混凝土用砂量很大,在选择砂源时应本着就地取材的原则,若工程所在地区的砂料出现过细、过粗或自然级配不良时,可采用人工掺配的方法来改善,将粗砂、细砂按适当的比例掺配,也可获得粗细程度和级配良好的合格砂[1]。传统采用图解法与手算法来调整,这些调整方法工作量较大,一般工作人员难以操作。

本文采用EXCEL自带函数来编制将级配不好的两种砂调整为粗细程度和级配良好的合格砂的计算程序,该程序具有可操作性强,简单易学的特点,适合在预拌混凝土生产企业推广应用。

2 试验方法和结果

2.1 试验方法

砂的筛分析试验按照JGJ 52-2006《普通混凝土用砂、石质量及检验方法标准》的规定进行,其方孔筛筛孔边长为160um、315um、630um、1.25mm、2.50mm、5.00mm及10.0mm等共7个筛,准确称取烘干试样500g按筛孔大小顺序过筛,称取各筛筛余试样的质量,计算分计筛余百分数和累计筛余百分数,并根据累计筛余计算其细度模数以及判断其级配区属。

2.2 试验结果

表1和表2分别示出试验所用的两种砂砂A和砂B的筛分析试验结果(为计算程序的编制方便,本文中砂筛分以其中一次筛分的结果为基准来计算)。

依据JGJ 52-2006的规定,砂A细度模数为3.2,属于I区粗砂、砂B细度模数为2.2,属于Ⅲ区细砂。

3 程序的编制

本文以配置泵送混凝土宜选用的Ⅱ区中砂为例,编制EXCEL程序,来确定各种砂的复配比例,使其混合后能符合Ⅱ区中砂的要求。

本程序的主要程序界面如表3所示。首先应将表1-表2的筛分析试验结果录入到表3中B4-C10的相关区域,其次假定每种砂在混合料中所占的质量百分比,应使各种砂质量百分比之和为100[2]。然后编制程序计算混合后各个筛孔的筛余物质量,并分别计算出各个筛孔分计筛余百分数和累计筛余百分数,并计算出混合后细度模数以及判断所属级配区。

3.1 混合后各筛孔筛余物质量计算

在表3 "D4"单元格中录入"=ROUND(($B$2/$D$2*B4+$C$2/$D$2*C4),0)"。将鼠标放在"D4"单元格右下方,出现"+"时,点击鼠标左键将其往下拉至D10单元格。在"D2"单元格中输入计算公式"=SUM(B2:C2)",在"D3"单元格中输入计算公式"=MAX(B3:C3)", 在"B3"单元格中输入计算公式"=SUM(B4:B10)"。在"C3"单元格中录入"=SUM(C4:C10)"。

3.2 混合后各筛孔分计筛余百分数计算

在表3"E4"单元格中录入"=ROUND(D4/$D$3*100,1)"。 将鼠标放在"E4"单元格右下方,出现"+"时,点击鼠标左键将其往下拉至E10单元格。

3.3 混合后各筛孔累计筛余百分数计算

在表3"F4"单元格中录入"=ROUND(SUM(E4:E4),1)", 在"F5"单元格中录入"=ROUND(SUM(E4:E5),1)", 在"F6"单元格中录入"=ROUND(SUM(E4:E6),1)", 在"F7"单元格中录入"=ROUND(SUM(E4:E7),1)",其余筛孔的累计筛余百分数按照类似方法录入。同时,也可以参照混合料分计筛余百分数、累计筛余百分数计算公式分别计算砂A、砂B的各筛孔分计筛余百分数以及累计筛余百分数。

3.4 混合后细度模数计算及级配区属及粗细程度判断

在表3"F1"单元格中录入"=ROUND((SUM(F5:F9)-5*F4)/(100-F4),1)",在表3"F2"单元格中录入"=IF(AND(F7>71,F7<85),"I区",IF(AND(F7>41,F7<=70),"Ⅱ区",IF(AND(F7>16,F7<=40),"Ⅲ区")))&IF(AND(ROUND((SUM(F5:F9)-5*F4)/(100-F4),2)>=3,ROUND((SUM(F5:F9)-5*F4)/(100-F4),2)<3.7),"粗砂",IF(AND(ROUND((SUM(F5:F9)-5*F4)/(100-F4),2)>=2.3,ROUND((SUM(F5:F9)-5*F4)/(100-F4),2)<3),"中砂",IF(AND(ROUND((SUM(F5:F9)-5*F4)/(100-F4),2)>=1.6,ROUND((SUM(F5:F9)-5*F4)/(100-F4),2)<2.3),"细砂")))"

3.5 砂复配比例的确定

在表3中"B3" 、"C3"单元格中录入适当的比例,并使各种砂质量百分比之和为100,查看混合后累计筛余百分数与JGJ 52-2006标准中Ⅱ区中砂的各项指标相符情况,并可根据各个筛孔的累计筛余差异做出相应的调整,使其符合Ⅱ区中砂要求。

3.6 生成复配后曲线和标准曲线图像

利用混合后的累计筛余、各筛孔尺寸、Ⅱ区各筛孔上限累计筛余及下限累计筛余在EXCEL中生成折线图,并自动生成三条曲线:Ⅱ区上限、混合后级配、Ⅱ区下限,如图1所示。

3.7 优化混合砂级配曲线

如出现曲线不在Ⅱ区上限、Ⅱ区下限之间,只需调整各个砂的混合比例,使其处于Ⅱ区级配曲线规定的范围内。将表3中砂A的比例调整为50%,砂B的比例调整为50%,经优化后的曲线如图2所示。

3.8 砂复配后筛分的验证分别取适量的砂A、砂B按照调整后的复配比例(砂A:砂B =35:65)混合均匀,按照JGJ 52-2006的要求进行筛分,其筛分结果如表4所示。

将表4的筛分析试验结果与表3中的计算结果对比可发现,按照程序设计所计算出的累计筛余与按照该比例混合后的实测累计筛余基本相符。此外,笔者做了二十几组对比试验,发现计算出的累计筛余与实测的累计筛余仅少数筛孔相差在±1%范围内,计算出的细度模数相差在±0.05范围内。因此可以采用本文所述的程序来直接确定复配比例,减少试验的工作量。

4 结语

砂细度模数及颗粒级配对新拌混凝土的和易性有较大影响。用细砂拌制的新拌混凝土的流动性较差,而用粗砂拌制的新拌混凝土容易泌水甚至离析,级配良好的砂空隙率和比表面积均较小,可有效降低水泥浆用量,并能较好的改善新拌混凝土的和易性。本文采用EXCEL自带函数所编制得将两种砂调整为细度模数及颗粒级配均较好的砂的计算程序,能够较快的得出各种砂的复配比例,可以极大提高工作效率,减少调整工作量。

参考文献

[1]赵方冉,王起才,严捍东等.土木工程材料[M].同济大学出版社,2004.

[2]李兰军.自编EXCEL程序设计沥青混合料的矿料级配[J].中国市政工程,2010,3(146):10-11.