2024年6月8日发(作者：)

ｌ７２　福　建　电脑　

函数和ｖｂｓｃｒｉｐｔ在日常办公中的分析应用　

钟江华　

（福建省漳州市农业学校福建漳州３６３０００）　

【摘　要】：本文从实际出发，列举了工作中解决问题的成功案例，就函数和ｖｂ脚本如何具　

体应用到案例中进行了具体分析　．　

【关键词】：函数ｖｌｏｏｋｕｐ　ｉｆ　ｍｏｄ　ｃｏｌｕｍｎ　ｒｏｗ　ｉｎｄｅｘ宏ｖｂｓｃｒｉｐｔ　

　８列（ｐ列）　

在我们的日常办公巾．经常需要处理大量的　

息存放在第一行的第九列（ｉ列）到１

数据。办公软件ｏｍｃｅ在数据的收集、汇总和分析　

第８个学生的信息存放在第５７列到６４列．　

……

方面给我们提供了很大的便利　但是．仅仅只是依　

所以须要用取余函数ｍｏｄ来定位：ｌ天ｌ为余数为零　

靠ｏｍｃｅ提供的菜单功能有时候仍然无法达成我　其实是每个学生的第８列的信息（毕业证号列）．　

们的目的．这时候就需要用到ｏｆｉｆｃｅ提供的丰富　所以又用到了选择函数ｉｆｎ综合考虑这些冈素就　

的函数功能．甚至需要用到一些ｖｂ的脚本编程知　

构造成功了下面这个公式：　

识。下面是我平常工作中遇到的一些例子。　

毕业生相片名册的处理　

～

＝ｖｌｏｏｋｕｐ（￥ａ２，ｓｈｅｅｔ２　１￥ａ￥２：￥ｉ￥１２５４，ｉｆ（ｏｏｒｄ（ｃｏｌｕｍｎ０，８）＝Ｏ，８，　

ｍｏｄ（ｃｏｌｕｍｎＯ，８）），ｔｒｕｅ）。　

、

ｉ事嚏

童　

｛　

ｌ　一．　虫　

ｉ　

　ｌ－一　　｝一　

二、工资条的打印　

…，Ｉ：　

镛伸　Ｉ　

¨　１　

糠，”带　Ｉ　

一～ｌ　

裤州布

ｌ＃∞‘巧

一一ｌ　：　

＂　ｊｌ州　　ｌｉ　

ｌ　

‘００Ｉ　

１０ｌ瑚Ｉｔ，　

谢肚肚ｉ　暂吨　ｉ

鼻　ｌ　

；　

１　

～　甯　

Ｈ　

３Ｉｍ－　

ｎ　

㈣

ｌ　

ｌ　

ｌ　

…

一　

∞　ｌ５　Ｉ　矗　

痒Ｊ・Ｉ　１　

～一　Ｉ　

’＊　

㈣ｌ∞

一…　｝　叠　

＃）一

　

¨Ｂ　Ｉ；　

擅，　市ｌ　岢　

　

序号　掌●号　

ｌ　。Ｓ，Ｉ竹呻０计　

２　∞３】　∞№　

，　∞　ｌｍ”　

４　

５　

６　

蛀名　ｌ性料　出生年月　

棘峨钟ｉ　男　Ｉ１黼一５－Ｉ３）　

穿农　｛　男　ｌ１竹０・１０—１０　

皓璃＾Ｉ　

惫景勇Ｉ．舅　

磷＃杰｝　男　

女　

Ｉ。９Ｉ－ｌ２－１　

ｌ帕３一　

掌崩　

盎年　

叁年　

叁年　

盎年　

盎年　

盎年　

证书ｈ孽　阜盘证号　

注Ｏｔ２）３ｌ拄０３。ｌ　职毕宰（２１１１２）ＤＯ８０　１　

口０１２）３１笠∞位　艇毕字（２０１　２）００８０２　

∞ｌ２　Ｉ麓∞∞　甚毕宰（２０１２）００８０￣　

啪ｌ２）３Ｉ　ｍ　职毕牢（２ＯＩ　２）００８０４　

娌ｏｌ？）３Ｉ　

０９ｌ２ｂｔ≈　

覃！毕宇（２０１２）０Ｏ８０５　

葺！毕宰（２Ｇｔ２）００８０６　

学校的工资管理要求打印工资条　工资条的　

打印要求打印后能够裁成一条一条的．这需要每　

Ｏ∞ｔ　１３ｌ　韩噢晦ｉ　

７　

３　

Ｏｇ３ｉ越∞ｌ４，４　睬睦＃ｌ　直　

ｌ２２。ｍ　５　｛１弓技萍｛　虫　

垒年　

盎年　

啪ｊ２）　２２０￣ＯＴ　职毕罕ｃ２０ｔ２）００８０７　

ｆ∞】２）３１２２ｍ　织睾宰　２０垤）０日蜘８　

个人的工资条上都带有表头信息．而且两条信息　

之间要求有一空行（如下图）。当然，工资条打印这　

张表希望由工资总表生成以避免重复工作　下面　

前一段时问．学校里做毕业生的相片名册（如　

具体分析公式的构造过程：　

上图）　由于数据量非常大．教务处的同事希望能　

首先．所有的行号能被３整除的行都是空格，　

够利用已有的毕业生名册里的数据．自动生成相　

所以只要用到取余函数和取行号函数就可以了　

片名册里的相应的数据　同事想到了Ｗｏｒｄ提供的　

（公式第一行）：其次，所有行号被３除余ｌ的行的　

邮件合并的功能　可是．一页相片名册有８个学生　

内容都固定是工资总表的第一行（公式第二行）；　

的信息．而毕业生名册的每一行只有一个学生的　

最后．行号被３除余２的行的内容对应于工资总　

信息．怎么办？同事找到了我。　

表的第２、３、４……行，利用ｉｎｄｅｘ函数进行搜索和　

这里需要解决的是：如何把原来每行存放一一　

引用（公式第三行）　整个公式合成如下式：　

个学生的信息通过函数计算的方法转换成每行按　

顺序存放八个学生的信息　

首先须要插入新的工作表ｓｂｅｅｔ３．然后在新　

的工作表巾利用ｖｌｏｏｋｕＤ函数搜索单元格区　

ｓｈｅｅｔ２　１￥ａｉ｛；２：￥ｉ￥１２５４域的第一列。然后返同该区域　

＝ｉｆ（ｒｎｏｄ（ｒｏｗ０，３）＝Ｏ，””，　

ｉｆ（ｍｏｄ（ｒｏｗＯ，３）＝ｌ，上资总表！ａ￥１，　

ｉｎｄｅｘ（＿．１ｉ总表！Ｓａ：￥ｓ，（ｒｏｗＯ＋４）／３－ｃ【＇Ｉ【Ｊｌｎ｜１Ｏ）））　

三、学生各种出勤的统计　

班主任工作须要对学生在各种集体活动巾的　

｝｛席情况有充分的了解和统计以帮助我们随时掌　

相同行相应单元格ｒ１］的值　闲为第二个学生的信　

｝

福　建　电　脑　１７３　

ｂ４—８ｈ８３１＋（ｃ４一ｊ５ｃ￥３１　７”，再复制公式。　

握学生的动态，确定重点关照对象。这个统计数据　

式“Ｓｄ￥３＋（

更是期末给学生德育评分的重要根据。为了对这　

这里应　注意公式巾绝对地址的引用。　

２、表格的美化　

个评分做到公正、公平，我想到了利用如下图所示　

表格的美化不只是为了单纯的视觉效果．冈　

电子表格对班级学生的晚自修、早操、卫生区值日　

情况进行统计。　

下面我谈谈这个电子表格的具体实现。　

为数据量较多．单元格较小。我还希望借助表格的　

美化来更好的定位单元格。在如上　所示的电子　

表格ｒｆ１．我在从第３行开始的奇数行上填充上淡　

】１＿　

。　

瑚

鑫　

＃｝＃：　程　，　ｊ　｛蛙奢＃沈￡　１　　；￡　１７　｝　０弹　弥ｌ　　＃辣斗錾　薜　珏　强ｌ　姑并轻寐　嚣张　　薜　

蓝色．从第４行开始的偶数行上填充上浅青绿色。　

薪鼻蜂样％月摩囊墓矗牟吾簟Ｒ屠聋Ｉ镶女目挚＿毽ｌ　挂尊磷舞巧蕈薏增饵§茹毒ｄ熹暑俸童　拜碍车　萎∞　第　　意　宽　

１、统计项目的自动填充　

统计项目的自动填充是最简单的，只要在ｅ３　

至ｅ５单元格里依次填上“自习”，“早操”，“卫生”，　

然后选定这３个单元格拖动填充柄即可快速填　

充。　

因为每个工作日有三个统计项目．每周有五　

个工作日．也就是说每周需要ｌ５行来存放统计数　

据　体现在本电子表格就是ｃ３：ｃ１７单元格为１，　

ｃｌ８：ｃ３２单元格为２，ｃ３３：ｃ４７单元格为３……　

ｃ２７１：ｃ２８５为１９。如此多的内容靠手工填充显然　

是不现实的．也没有充分利用电子表格的自动功　

一一～一

能。如何实现？首先以自动填充的方法在ａ３：ａ２８７　

一一一

填充１到２８５的数字序列　其次填充星期这列的　

数字，因为每天有三个统计项目，所以ｂ列的数字　

序列为（１、１、１……５、５、５、１、１、１……５、５、５）。从数　

字序列（１、２、３……１３、１４、１５１到数字序列（１、１、１　

……

５、５、５）的映射，可以用ｃｅｉｌｉｎｇ函数来实现；但　

是如何让１６以后的数字序列重新映射到ｆ１、１、１　

……

５、５、５）？我想到了求余函数和判断函数。把这　

两个函数加入公式之后．最后的具体公式为“ｉｆ　

（ｍｏｄ（ｃｅｉｌｉｎｇ（ａ３／３，１），５）＝０，５，ｍｏｄ（ｃｅｉｌｉｎｇ（ａ３／３，１），５））”。　

第三．填充周次这列，也就是实现从数字序列（１、　

２、３……２８３、２８４、２８５１到数字序列ｆ１、１、１……１９、　

１９、１９）的映射。这需要用到取整函数。这类的函数　

有ｉｎｔ、ｒｏｕｎｄ、ｃｅｉｌｉｎｇ和ｆｌｏｏｒ这四个函数，它们都　

可以帮助实现这两个数字序列的映射．但由于取　

整规则是不一样的．公式也就不一样　这里我采用　

了ｃｅｉｌｉｎｇ函数，具体公式为“ｃ３＝ｃｅｉｌｉｎｇ（ａ３／１５。１１’’。　

最后．复制公式，就可在整个Ｃ列填充上相应的周　

次。第四．工作日的填充需要用到ａ、ｂ两列。须要　

先在ｄ３单元格填上第一周第一个工作日“２月１６　

日”．下面的单元格对比ｄ３单元格相差的天数和　

周数．加上差值即可。具体为在ｄ４单元格应用公　

整个表格有二百多行，当然不能一行一行地做，表　

格的自动套用格式功能的效果也不能让我很满　

意．于是我想到了利用ｅｘｃｅｌ自带的ｖｉｓｕａｌ　ｂａｓｉｃ　

编辑器进行颜色的自动填充。下面的循环语句就　

可以实现这个功能　

一　一

　一一～

对于没学过编程的人．上面的语句完全手工　

一一一一　一一　

编写可能有点难，

　

其实，可以利用“宏”。大家知道，　

宏是微软公司为其ｏｍｃｅ软件包设计的一个特殊　

功能．它是将一系列的命令和指令组合在一起，形　

成一个命令．以实现任务执行的自动化。目的是让　

用户文档中的一些任务自动化。［１］ｏｆｆｉｃｅ中的Ｗｏｒｄ　

和ｅｘｃｅｌ都有宏　可创建并执行一个宏．以替代人　

工进行一系列费时而重复的ｅｘｃｅｌ操作　

在这里．只要将填充第３行和第４行的行为　

录制为宏．然后在ｖｉｓｕａｌ　ｂａｓｉｃ编辑器中修改这个　

宏。将ｒｏｗｓ（３）改为ｒｏｗｓ（ｉ１，ｒｏｗｓ（４）改为ｒｏｗｓ（ｉ＋１），　

在第一行加上语句“ｆｏｒ　ｉ一３　ｔｏ　２９２　ｓｔｅｐ　２”．最后　

一

行加上“ｎｅｘｔ”即可。　

同样道理．可以借助宏和ｖｉｓｕａｌ　ｂａｓｉｃ编辑器　

把单元格左右两边框的颜色分别设为玫瑰红和淡　

紫色　以下为具体的代码　

ｆｎｒ　ｉ＝６　ｔｏ　４３　ｓｔｅｐ　２　

ｃｏｌｕｍｎｓ（ｉ）．ｓｅｌｅｃｔ　

ｓｅｌｅｃｔｉｏｎ．ｂｏｒｄｅｒｓ（ｘｌｄｉａｇｏｎａｌｄｏｗｎ）．１ｉｎｅｓｔｙｌｅ＝ｘｌｎｏｎｅ　

ｓｅｌｅｃｔｉｏｎ．ｂｏｒｄｅｒｓ（ｘｌｄｉａｇｏｎａｌｕｐ）．１ｉｎｅｓｔｙｌｅ：ｘｌｎｏｎｅ　

ｗｉｔｈ　ｓｅｌｅｃｔｉｏｎ．ｂｏｒｄｅｒｓ（ｘｌｅｄｇｅｌｅｆｔ）　

．

１ｉｎｅｓｔｙｌｅ＝ｘｌｃｏｎｔｉｎｕｏｕｓ　

．

ｗｅｉｇｈｔ＝ｘｌｔｈｉｎ　

．

ｃｏｌｏｒｉｎｄｅｘ＝３９　

（下转第１　８２页）　

１８２　

Ｄｉｍ　Ｃ　Ａｓ　Ｄｏｕｂｌｅ　

２　３　４　５　６　７　８　９　

福　建　电脑　２０１３年第２期　

以《基于ｗｅｂ的图书管理系统》为例：实验要　

Ｉｆ（ａ＞０　Ａｎｄ　ｂ＞Ｏ）Ｔｈｅｎ　

ｃ＝ｃ／ａ　

求：利用（（ＪＡＶＡ语言》、《软件工程》和《软件测试》　

所学知识完成系统开发　利用所学专业知识对系　

统进行压力测试、兼容测试和数据库测试，并对系　

统调优　在软件测试实训课程巾始终贯穿ＰＳＰ过　

程和ＴＳＰ过程．它有助于学生职业能力和职业素　

Ｅｎｄ　ｉｆ　

Ｉｆ（ａ＞ｌ　ｏｒ　ｃ＞１）Ｔｈｅｎ　

ｃ＝ｃ＋１　

Ｅｎｄ　ｉｆ　

ｅ＝ｂ＋ｃ　

养的培养　

我院按照“２＋１＋１”培养模式　有一年时间学　

生在企业实习．使学生参与项目开发整体流程．包　

括软件工程过程和测试过程　在此过程中．培养学　

生的团队合作和沟通能力．使学生既巩固理论基　

础知识。又锻炼测试能力。　

３．结束语　

人才的培养是一个综合的过程　在实践教学　

体系中，采用项目教学，加强实践环节的考核，对　

实践中表现突出的学生给予多种形式的肯定和鼓　

励。同样．良好文化环境是保证人才健康成长的不　

可忽视的软环境。　

图２流程图　

参考文献：　

实验要求：使用语句覆盖、判定覆盖、条件覆　

【１】田小霞．优化《软件测试技术》的教学【『】．电脑学习，　

盖、判定／条件覆盖、组合覆盖和路径覆盖方法设　

２０１１，（０２）　

计测试用例　

【２兰景英．应用型软件测试人才培养模式探索与实践Ｕ】．２】　

（０４）　

综合实验采用“项目驱动”教学　项目基础要　

潍坊教育学院学报，２０１１，

３】朱少民．软件测试方法和技术．北京：清华大学出版社，　

综合多门课程的知识．项目执行培养学生分析问　

［

题和解决问题的能力．提高学生动手能力。　

２００８　

（上接第１７３页）　

ｓｅｌｅｃｔｉｏｎ．ｂｏｒｄｅｒｓ（ｘｌｅｄｇｅｔｏｐ）．１ｉｎｅｓｔｙｌｅ＝ｘｌｎｏｎｅ　

ｓｅｌｅｃｔｉｏｎ．ｂｏｒｄｅｒｓ（ｘｌｅｄｇｅｂｏｔｔｏｍ）．１ｉｎｅｓｔｙｌｅ＝ｘｌｎｏｎｅ　

ｗｉｔｈ　ｓｅｌｅｃｔｉｏｎ．ｂｏｒｄｅｒｓ（ｘｌｅｄｇｅｒｉｇｈｔ）　

．

格的函数和ｖｂ脚本能够帮助我们更好的完成平　

时的工作，而且，只要我们善于思考，其实函数和　

脚本也不是那么难的。　

参考文献：　

［１］ｗｏｒｄ宏病毒清除技术．金山反病毒资讯网：ｗｗｗ．ｐｃｏｎ—　

１ｉｎｅｓｔｙｌｅ＝ｘｌｅｏｎｔｉｎｕｏｕｓ　

ｗｅｉｇｈｔ＝ｘｌｔｈｉｎ　

ｃｏｌｏｒｉｎｄｅｘ＝３８　

．

．

ｉｎｅ．ｃｏｎ．ｃｒ１．　

从上面的几个实例中，我们可以发现，电子表　

ｌ

［２］ｅｘｃｅｌ帮助系统．．ｍｉｃｒｏｓｏｆｔ　ｅｘｃｅｌ　ｖｉｓｕａｌ　ｂａｓｉｃ参考．