厂基于EXCELVBA的表格滚动
◊陕西铁路工程职业技术学院郑宾
Excel中有显示或播放表单的需求，可以通过菜单命令实现，但有时表单太长，通过命令无法显示所有单元格在一个屏幕上。本文通过一个单位产量表实例，分析了VBA编程思路和方法，实现表格循环滚动。使Excel的数据处理满足个性化需要，大大提高了工作效率和质量。
—、引言
使用Excel显示数据表的数据信息时，会遇到无法将所有的数据一次显示全面的问题。可以在Excel主菜单中选择“视图冶屏显示”选项或者“视图〉显示比例”选项曹选择一个较小的百分比，使屏幕界面显示更多的数据。但是很多表单都太长，通过上述方法还是不能让所有单元格都显示在一个屏幕中。这时可利用Excel的表格和运算功能，通过宏来对已有的表格进行操作，让表格循环滚动起来，再使用投影仪或大显示屏显示出来，即可满足用户多方面的要求。
二、实例分析
本文以某工厂某一天产量表为例，该工作表显示了不同工作组成员一天的工作量和工资情况，如图1所示。
步骤一、在表单的空白处新建一个“按钮”控件，将其显示名改为“开始循环”O
步骤二、选择一个单元格如“H3”，以此单元格为基点，单击Excel主菜单上的“窗口＞冻结窗口”选项，这个单元格上方与左方所有的单元格都将被冻结，将会一直在屏幕中显示，直到关闭此工作簿裂可以从Excel系统生成的十字线知道被冻结的具体部分。
步骤三、在“设计模式”下双击该按钮控件进入"Visual Basic编觸”，编辑代码如下所示：
Option Explicit
Dim TempBool As Boolean
Function RoundTableQ
Dim A As Integer
Dim OldTime As Single
Dim NewTime As Single
OldTime=TimerQ
NewTime=Timer()
A=0
While(TempBool)
NewTime=Timer()
Application.Wait(1)
If(Abs(NewTime-OldTime)>1)Then
OldTime=NewTime
If A<0Then
ActiveWindow.SmallScroll DOWN:=1
A=A+1
End If
If(A>=O)Then
ActiveWindow.SmallScroll UP:=1
A=A+1
If(A>=10)Then
A=-10
End If
End If
End If
Wend图1工厂产量表
End Function
Private Sub CommandButton l_Click()
If(CommandButtonl.Caption="停止循环")Then
TempBool=False
CommandButton1.Caption=”开环”
Else
TempBool=True
CommandButtonl.Caption=”停止循环”
RoundTable
End If
End Sub
编辑代码完毕后保存并退出“Visual Basic编辑器”，单击”开始循环”按钮，即可看到表单以每秒1行的速度上下循环播放，当向上运动过10行后将显示利息的金额的列全部只保留小数点后2位为有裁数字，而其他位则置为0，如图2所示。
三、总结与提高
对该程序稍作修改，既可以让其左右滚动而（下转41页
）
每个学前安排1~2次理论课，尽量选择下 雨行。
在学习内容的安SLt，每个学期会安
排2个左右的学习内容以及至少一个辅助 的素质训练。本校为有效的开展长跑及学 生耐力训练，每年的辱都必须有耐力素 质的训练。学前教育专业未来从事的是幼 儿教师这一职业，幼儿园体育健康的开展
一般以游戏和韵律体操为主。
吉首大学师范学院五年制学前教育专 业体程实践内容具体为：第一学 期，篮球、体操（队列队形）、田径（跳
远）以及耐力素质训练。第二学期，太极 拳、健美操、田径（短跑起跑与途中 跑）、腰腹力量素质练习。第三学期，排 球、健美操、田径（投掷）耐力素质练 习。第四学期，册、健美操、田径（跳
高）以及下肢力量练习。第五学期，羽毛
球、韵律操、武术以及上肢力量练习。第 六学期，乒乓球、韵律舞蹈、基本体操以 及柔韧素舷习。第七学期，韵律舞蹈、 基本体操、体育游戏以及田径（中长
跑）。第八学期，体育游戏、民传统体 育、器械操以及全身力量素质练习。
从内容的安上我们注重的是广度,
在学生学习期间需要接触和了解的体育项
目与技能相对较多，这与他们今后工作的 职业相关。在幼儿园教师主要是让幼儿积 极参与体育活动，这需要不同的运动项目 不同的开展形式，同时因为幼儿自身的身 心发展特点，他们对教师体育技能的要求
不是很高，因此在内容的深度上没有太多 的要求。当然如果能够熟练的掌握一到两
门实用的运动技能，这对今后的工作是有 积极的作用。
（2）五年制学前教育专业体育与健
康课程教学鹹针对五年制学前教育专 业学生的体育教学昨首械是斯体育 模式，由于体育中的对抗和竞赛可以让学
生得到瞬的宣泄，积极的面对不一样的 挑战，就可以让他们通过体育课能够体验 到运动的快乐，通过不同的运动内容让自
己收获不一样的运动体验。然后就是课课
练的体育教学模式，所谓的课课练主要是 让学生在每周的体育课上有15分钟左右的
身体素质练习，这包括速度、耐力、力 量、柔韧及灵敏等方面，以便有效的发展
学生的豁素质，提高运动换再者就是自主学练模式，首先是突出 学生的主体地位，其次是可以大大提高学 生学习的积极性，培养他们的学习兴趣。 三是减少了学生对教师的依赖，让他们自
我发展自我極 养成多思考，独靖决 问题的能力。四是自主练习可以加强学生
间的自主合作，加强沟通交流，有助于社
应。
3.3五年制学前教育专业体育健康课
程内容实施
课程内容的实施是实现学生体质健康
发展的重要途径，就好比要去做一件事 情，计划是前提，是却。那么吉
首大学师范学院五年制学前教育专业体育 健康课程内容优化实施环节关键在于教 师，这就对教师提出了更高的要求。
在体育健康课程内容实施过程中，教
师不仅是要让学生掌握一定的理论知识、
运动技能，还需驰帖她、要的教学技
能，具备一个幼儿教师应当具备的体育教 学技能。吉首大学师范学院针对体育健康
课程每周一次课，一次的时间为905）钟， 在对课程内容优化设计的时候，首先对教 师上课的内容进行安同时还要求至少 教师主导的时间不少于50分钟，学生素质
练习的时间在15分钟左右，剩下的时间则 是学生自主学习及练习的时间。这样既保 证的教师的主导，又给学生自主学习时
间，让他们根据自身的掌握情况以及兴趣 选择自己想要参与的运动项目。
4结语
吉首大学师范学院五年制学前教育专
业体育与健康课程内容优化设计不仅可以
增强学生的体质，还能让学生掌握一定的 运动技能和体育教学技能，为他们今后从 事的职业打下坚实的基础，从而促进当地
幼儿体育的开展。
【参考文献】
[1] 熊怡妮.基于提升学生体质健康水
平的小学体育教学内容优化设计0].当代 体育科技,2018
[2] 李宗堂.《国家学生体质健康标 准》融入大学体育课程教学模式的实践研 究[D].苏州大学,2011
[3] 刘文明.浅谈体育教学模式的分类 及其应用研究[J]•新课程冲学,2016（1）:83
[4] 喻科.基于个体差异视角的教师实 践教学能力培养路径优化[J]•教育评 论,2015（10）:117-119
(上接47页)不是上下运动。例如可以将下面的一段程序替换 进原程序中相应位置：
If  (Abs  (NewTime  - OldTime) > 1) Then OldTime= NewTime If  A< 0 Then
ActiveWindow.SmallScroll  ToRight:=l
A=A+1
End  If
If(A>=0)Then
ActiveWindow.SmallScroll  ToLeft:=l
A=A+1
If(A>=10)Then A=-10
End  If End  If End 圧
图2使用“模糊计数”显示方式
_A __G D  E  f
C
H  I
20妙3/严■表
组别■划产賣买际产1: 日資 实狐工直
本月M 计
张兵2100 101 ¥151.50 41S1. SO *1,125.50龙其兀150 52 ¥156.00 *156,00*614.50朱可芳1100 108 *162.00 虬&2,3朝 93.50赵图ii 3100 10Q  *150.00 *150,00*926.00欧阳先2100 112 *168.00 *168,00*1,032.50岳计山1100 104 *156.00 *15-6,00*925.50窓华算
3100 103 *154.50 50*1,131.503
100 92 *133.00 ¥138.00
¥1,025.50购98.00
也可以将这段程序放在表单对象的初始化中，使表单刚一打开即可以自动循环。如果想禁止自动循环，
可以采用禁用宏
的方法％在从Excel 中打开文件的时候按住Shift 键，Excel 将在 不运行VBA 过程的情况下打开该工作表。而按住Shift 键阻止宏
运行的方法同样也可以用在打开“最近的Excel 文档”列表单中 和关闭文档中％这种方法可以避免一些宏病毒对电脑和文档造 成的危害，特别是在打开没有安全保证的陌生文档的时候尤其 要注意。
【参考文献】
[1] 苏进.探究如何在EXCEL 中使用VBA 编程处理数据[J].数
字技术与应,2016（01）:250
[2] 陆娇娇.基于Excel  VBA 的多考场电子成绩自动统计[J].电 脑知识与技术,2016（12）:218
[3] 孙敬杰.Excel 入门与实例演练[M].北京：中国青年电子出版vba编程技巧
社,2008:127-128
[4] 魏汪洋.Excel  VBA 语法速查手册[M].北京：化学工业出
版社,2011:103-104

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。