EXCEL宏编程的应用 EXCEL宏编程的应用

EXCEL宏编程的应用

  • 期刊名字:办公自动化(综合版)
  • 文件大小:418kb
  • 论文作者:方文英
  • 作者单位:杭州万向职业技术学院
  • 更新时间:2020-06-12
  • 下载次数:
论文简介

008年7月应用_经验总第135期EXCEL宏编程的应用方文英(杭州万向职业技术学院杭州310023)摘要随计算机的普及Excl得到了广泛的应用本文介绍通过Exe宏编程实现学生信息与期末考试信息的自动处理提高了工作效率和准确性。关键词 Excel VBA编程宏考场安排汀总表中图分类号TP399文献标识码A文章编号080627-4586Application of the Macro Programming with EXCELangWnying(Hangzhou Wanxiang Polytechnic College Hangzhou 310023)Abstract Along with the popularity of computers, Excel obtains a wide use. The paper introduces by macroprogramming with Excel to realize the automatic processing of students information and terminal exam information, so as toraise the worefficiency and accuracy.Keywords Excel VBA programming Macro Gathering form of exam hall arrangement引言Baie的精简集可用于建立用户定义的 Microsoft Office的应用每学期期末考试的安排对于教务处来说是一项繁重的工程序,为整个集成软件提供高级开发环境。VBA不能在一独立作时间紧任务重,又不能出一点差错。本学院为了严肃考风环境中运行,也不能使用它创建独立的应用程序,即其需要宿考纪规范考场纪律,对考场编排作出的规定是,采用高年级与应用程序支持它的功能特性。宿主应用程序是Exl、Word、低年级混合考试编排即一个考场由不同年级或不同考试课程 Power Point等应用程序,并根据其嵌入应用程序的不同,增加了的两个班混合交叉编排座位隔位就座,并确定每一位考生每对应用程序不同对象的控制功能。Exel中的ⅤBA增加了关于场考试的座位号。这样一来,一个班同一门课可能要在两个Exl工作簿、工作表、区域数据透视表等对象的属性事件和以上的考场进行,原来的期末考试编排系统只能排定班级、考方法。下面就谈谈利用ⅤBA编程完成上述工作试科日、考试时间、考试场地等,不能确定每一位考生在哪个考场是哪个座位号。如果用手工来完成对院所有学生所有考试课程的考场座位号的确定数据量大,又容易出错。这对教务处期木考试安排又考散师考场分班人数桌贴颜色是一个新的考验,能不能2月2日下午1301530城建061城市管理与法机吴费杰1212在原来考试编排系统产生7月2日下午1315建贴1表规李云升1312红的数据的基础上,通过编4月2日年1塑规划原理胡志明130618自日程自动完成上述工作呢?6月1日上午308地01城市规划理光先□150417自利用 Excel VBA编程T月1日上年X1030铁07=1就可以实现,VBA是8月2日上午313地铁1中国煤化工1Visual Basic for0m月3上午xmCNMHGIB的缩写,是一种强大的编程语言。VBA作为 Visual寝1考试安排导入数据·4方雄动化杂志应用经验强年7月二、准备数据Dim IListRow As Integer记录“全院学生名单”表的行号1期末考试安排数据新建 Excel T.作簿命名为“全院期末考试安排”,将利用考 Dim SCourge, SCourse2 As String记攻“考场安排汇总”表中课试编排系统编制的期末考试安排情况导入到“全院期未考试安名称排”中的“she”工作表中,命名为“考试安排导入数据”,部分 Dim ISumRow As Integer记录“考场安排汇总”表的行号数据清单和文件格式下如图表1。在这张数据清单里,有考试时 Import DataRow=2初始化变量间、班级、课程、考场等信息,每个班级的同一门课被分在不同 ISumrow=2考场,通过这张数据表,学生无法确定自己在哪个考场考试Sheet2.Select对“全院名单”表排序2、全院学生名单Cells. selectSelection Sort Keyl: =Range (D2" ), Order l: =xlAscending, Key 2:B("A2", Order2学号鲑名学院名称班级名称丁 =asCending, Head20602140101张治经济官理系城建06-1=xlY30602140102T新明经济管理系城建06-1±o602140103胡志刚经济管理系城建06-1Sheet 1. Select50602140104赵龙云经济管理系城建06-1对“考场安排导入数据”60602140105胡海华经济管理系蜮建06-1表排序7602140107李慧倩经济管理系|城建06-1Cells. select80602140108范志艮经济管理系城建06-10602140109祝洪军经济管理系蜮建06-=Range ("B2" ), Orderl、·H考场安排导入数琚全院学生名单。考场安排汇总 aSendin,kn2表2全院学生名单("C2" ), Order2将全院学生数据清单导人到“ Sheet2”工作表中,命名为=asCending. Header全院学生名单”部分数据清单和文件格式如表2。这张数据清单里的每个班级的名称与“考试安排导入数据”表里的班级的SCourse2= Cells(import Data Row,3) value课程名称名称必须一致,并且人数一致,为以后的编程作好准备。Slas2=Cel( lmport DataRow,2)Vaue班级名称3、考场安排汇总Do Until Sheet1. Cells(IImport DataRow, 2)将She3命名为“考场安排汇总”,将利用“考试安排导入Sheet1. Select数据”和“全院学生名单”两张数据清单,生成全院本学期期末Classi= Cells(iMport DataRow,2)vaue班级名称考试情况。通过该表,每一位同学可以清楚的知道具体的考试I Classsize= Cells(IImport DataRow,6) value考场人数时间、地点和座位号等信息。COunsel= Cells(Import DataRow,3y)vlue课程名称Sheet2. Select、编写VBA程序鼠标依次单击“工具”菜单、“宏”子菜单、"VBA编辑器~聊Mhst= Classi).Activate在“全院学生名单”中定位1进入VBA编程环境IListRow Active Cell Row活动单元格所在行进人ⅤBA编程环境。While sclassl= Sclass2 And SCoursel sCourse22、编写代码在VBA编辑器中单击“插人“菜单选择“模块”菜单项, SeatsNumber=1初始座位号在模块中编写代码。具体操作和命令含义如下:For i= 1 To IClassSizePublic Sub Examination SummaryIf Sclass2= Sheet2. Cells(IListRow, 4). Value Thenim IClassSize As Integer记录“考场安排导人数据"表中每$ Sheet2. Cells(DIstrO0y个考场人数Sheet3 Cell( SumRow,1) PasteSpecial复制学号到“考场安排汇Dim llmportData Row As Integer记录“考场安排导入数据”表的总”表行号V凵中国煤化工Dim Sclass.s2 As String记录“考场安排汇总”表中班级shetCNMHG复制姓名到“考场父排汇名称总”表Dim i As Integer定义循环变量Sheet3 cells( SumMon,3) Value= SEats Number确定座位号办公自动化杂志472008年7月应用经验Applicationeriences总第135期学号姓名位号考试时间班级考试课程臣考教师考场分班人贴颜137月日下13153建33060240134魏史华14D月2日下午1315:33406021401351陈R方157月下午1339153建356T月下午13:315刘辆建06135060214013177月日下午33153建%[吴费杰□131217月2日上午9:为1030幅理061李云升13380602140102T27月2上午93103建M37月日上午03103建140105考场安排汇总A表3生成考场安排汇总表A学号姓名庶位号考试时间班級考试课程臣考教考场分班人募贴颜色1B月下午133153建1月日上午93103[建IT月1401022T月日上午931030辅建】[401031T月日下午131530随建J日上午321表4考试通知单Sheet1. Select3、运行代码Range(Cells(Import DataRow, 1), Cells(iMport DataRow, 7).Copy代码编写完毕保存退出VBA编辑器到工作表状态,单击T具”菜单,选择“宏”子菜单的“宏”菜单项,出现“宏”对话框选Range(cel( ISumrow,4,cl( SumRow,II) PasteSpecial复制择“ Examination Summ过程单击“运行”。运行结果将生成考试时间、课程等信息到“考场安排汇总”表中。“考场安排汇总"表部分数据清单和格式如表3所示。通过该表End If可以知道每个考场的具体学生信息。如果将该表按班级、学号进IList Row= lIttrOw+1“全院学生名单”表行号加1行排序,就可以生成每个学生本学期要参加所有考试课程的考试SEats Number= SEats Number+1座位号加1时间、考场、座位号等信息即考试通知单,如表4所小ISumRow= ISumRow+1“考场安排汇总”表行号加1四、结束语NextExc电子表格软件是应用最广泛的软件之一,它的数据lImportDataRow= IImport DataRow+1“考场安排导人数据”表中处理、图表功能及各种函数和工具深受广大用广的喜爱。通过行号加1ⅤBA编辑器设计的宏,也称为ⅤBA编程可以完成 Excel表格相Sheet. select当复杂和批量的处理。本例中,通过 Excel vBa编程,实现∫批Sclass2=Cl( Import DataRow,2) value班级名称量数据的自动化处理,提高工作效率。参考文献ls(lamport DataRow,6) value分班人数Scourse2= Cells(iMport DataRow,3)vlue课程名称景疆,O6ice2000常用对象模型的VBA编程J办公自动化杂志20058)Wend“考场安排导人数据”表中相邻行课程和班级数据不同跳出循环M凵中国煤化工在成绩管理中应用承德医Lmop“考场安排导入数据”中班级数据为空跳出循环作者CNMHGSheet3 Range("AJ), EntireColumn AutoFit自动调整列宽方文英女杭州万向职业技术学院现教中心助教,从事计End Sub算机教学工作。研究方向:信息管理与信息系统。4方苏自动化杂志

论文截图
版权:如无特殊注明,文章转载自网络,侵权请联系cnmhg168#163.com删除!文件均为网友上传,仅供研究和学习使用,务必24小时内删除。