2014年4月1日ApplicationExchange总第275期基于宏与VB在EXCEL中的应用姜华信沈维舜俞强嘉善314100）（嘉善华数广电网络有限公司摘要关键词本文介绍了宏与VB在EXCLE中的操作及数据分析的应用。宏VBEXCEL应用实例文章编号140408-6676文献标识码B中图分类号TP319MacroCommandandVBApplicationintheExcelJiangHuaxinShenWeishunYuQiangJiashan314100）（JiashanWasuRadioandTelevisionNetworkCo.Ltd.AbstractThispaperintroducesmacrocommandandVisualBasiclanguageApplicationintheexcel。VBEXCELApplication（1）、资费账单区中有十个空格。为了提高效率，通过函数、数据链接等手段。三个空格需手工输入，“付款方式”、“服务科目及摘要”、“操作员”通过下拉菜单选择输入；“开票日期”通过函数自动生成当天日期；“备注”通过函数公式自动转换成金额的大写，并通过数据链接自动填写金额小写。通过数据保护，非输入单元格禁止输入信息。工作效率和准确性都有较大提高。（2）、数据区为资费账单中的“付款方式”、“服务科目及摘要”、“操作员”提供常用的选项数据。可以根据各营业厅的人员、项目等自主添加信息。（3）、操作区通过链接宏指令。完成打印、信息调整、信息存储的一连串动作，如下：Sub打印（）Sheets（\"打印联\"）.SelectActiveWorkbook.RunAutoMacrosWhich：=xlAutoActivateActiveWindow.SelectedSheets.PrintOutCopies：=1，Collate：=TrueSheets（\"汇总联\"）.SelectActiveWorkbook.RunAutoMacrosWhich：=xlAutoActivateRows（\"6：6\"）.SelectSelection.InsertShift：=xlDownRows（\"2：2\"）.SelectKeywordsMacroCommand一、概述EXCEL在日常办公方面应用十分广泛，日常通常用于的办公的一些报表。但在流水操作和大量的数据分析方面还不够智能，消耗的人力较大。以下是利用宏及VB的编辑的两个应用，较好的提高了工作效率。二、基于宏的资费账单的设计因嘉善华数采用了机打资费账单用于营业厅的日常收费，需要一个表格。对于表格要求输入简便、操作快捷，功能完善，自动化程度高。这样才能提高窗口人员的受理效率。根据要求设计了本文件。该文件包含三个工作表：输入联、打印联、汇总联。1、输入联：是营业员输入信息的位置（如图）。输入联又分三个模块：资费账单区、数据区（一般为隐藏）、操作区（打印）。营业员只需填写好信息，按打印即可完成打印、存储的功能。办公自动化杂志·53·2014年4月1日总第275期ApplicationExchangeSelection.CopyRows（\"6：6\"）.Select在一个EXCEL表设两个工作表：“地址划分关键字”、“需划分的源数据”。“地址划分关键字”的信息需要人工填Selection.PasteSpecialPaste：=xlPasteValues，Operation：写，划分好。公式VB程序预留了较大的空间，可以随机添=xlNone，SkipBlanks_：=False，Transpose：=FalseSheets（\"输入联\"）.SelectActiveWorkbook.RunAutoMacrosWhich：=xlAutoActivateEndSub2、打印联（如下图）主要功能是确定打印内容、位置。3、汇总联（如下图）主要功能是数据汇总保存。三、基于VB的循环判断宏能完成了一系列有规律的流水指令，但不能进行循环判断功能。循环判断功能在日常工作中却需求较大。倘若人工去操作占用时间相当长。例如在某系统里，老的用户信息地址是以“魏塘镇”填写。行政划分后，魏塘镇划分成魏塘街道和罗星街道。若要对老用户划分区域就需要人工的筛选。而利用VB编辑了一个的循环判断程序就快速解决这个问题。·54·办公自动化杂志加关键字。如下图：以下是需要划分的源数据，数据比较凌乱，格式不统一。人工筛选比较繁琐。通过对“地址划分关键字”中信息和“需划分源数据”的信息比对。返回相应的信息。VB程序如下。Subhfqy（）DimiAsIntegerDimjAsIntegerDimstrAddrAsStringDimstrCountryAsStringDimstrStreetAsStringFori=2To200002014年4月1日ApplicationExchange总第275期strAddr=Sheet2.Range（\"C\"&i）.ValueIfstrAddr<>\"\"ThenForj=2To1000strStreet=Sheet1.Range（\"A\"&j）.ValuestrCountry=Sheet1.Range（\"B\"&j）.ValueIfInStr（1，strAddr，strCountry，vbTextCompare）>0ThenSheet2.Range（\"A\"&i）.Value=strStreetSheet2.Range（\"B\"&i）.Value=strCountryExitForEndIfNextjEndIfNextiMsgBox\"OK\"EndSub当运行了VB程序后，表格显示如下图：上图中C9，C10没能判断数来，原因在于关键字没有“城北新村”，只要在“地址划分关键字”工作表中的A75，B75分别填入“魏塘街道”、“城北新村”然后重新运行VB程序即可。作者简介姜华信（1981~）男,本科,工程师,经理助理,嘉善华数广电网络有限公司,研究方向：市场运营与网络技术。沈维舜（1963~）男，大专，工程师，副经理，嘉善华数广电网络有限公司，研究方向：网络运营与技术。俞强（1976~）男，大专，助理工程师，副经理，嘉善华数广电网络有限公司，研究方向：网络运营与技术。要求日益提高。提高EXCEL应用水平，能够让我们快速的获取想要的数据信息，为我们的业务发展提供有力的支持。四、总结目前对大数据的应用越来越多。我们广电行业涉及用户群十分庞大，面对市场的竞争，我们对数据统计分析的渊上接第64页冤考核方面，加强过程考核、课堂考核等平时考核，进行全程有效的监督，在过程评比、竞赛中，促进学生学习的主动性，也有利于提高他们的应用能力[3]。情况看，教改成果是比较明显的，如学生对教师、对课程的满意度是比较高的，学生盲目选课和被动选课的情况大大减少，学生学习主动性得到了较大提高。但是，随着社会的进步，信息技术的日新月异，学生的知识技能水平的不断变化，课程的改革仍然任重而道远，还需要我们不断地探索实践和实施。参考文献[1]张德江.应用型人才培养的定位问题及模式探析[J].中国高等教育.2011（18）：24-26.[2]辛均庚.高师院校课程类型及教学调查与分析[J].中国电力教育.2013（16）：118-120.[3]任昌荣.基于知识、能力、素质协调发展的信管专业考核模式改革与实践.《电子商务》.2011（10）：90-93.四、实践效果每学期末，我们都对课程效果进行问卷调查，调查显示，学生对信息技术公选课教学的满意度逐年提升，学习兴趣提高了，学习主动性也就得到提高，甚至有没有选上某课程的情况下，不得学分也愿意跟班学习该课程的情况。更可喜的是，通过本信息技术类公选课程学生，学生的计算机应用能力得到了提升，解决实际问题的能力得到了提高，在相关学科竞赛中也取得了不少好的成绩，如在计算机软件设计大赛中，获得了好的名次。五、结语技能性强的课程，适应了应用型人才培养的模式的特点。经过几年的课程改革研究与实践，从调查结果和教师考核“动画制作流程”作为信息技术公选课中的一门实践、作者简介任昌荣（1972~），男，硕士，副教授。研究领域：信息管理及软件开发与应用。办公自动化杂志·55·