在做活动的时候,我们会用到一些计时器,这些计时器有时候需要显示在投影上。大家都会选择在网上下载各种计时软件,有免费的,有破解的,有收费的,很麻烦!其实我们可以用手头的EXCEL电子表格做一个简单的计时器,稍微美化一下,让它感觉像一个“手表”。
1.首先,制作一个基本表来制作后来的时钟:
画一个表,A列表示时钟旋转60分钟时每分钟的刻度(0到59);B列表示12小时刻度(每5行一个值);C\D\E分别代表小时\分钟\秒。
按照表格里的数据走就行了,不多解释。
2.生成“时钟”图:
1)选择B、C、D、E单元格中的数据,插入带有数据标记的——雷达图;
2)删除自动生成的雷达图的冗余元素:标签、坐标轴、网格、图表等。
3)添加小时刻度的数据标签(自己填1到12即可);
3.接下来,进入关键步骤,编译VBA代码:
1)启动编辑器并插入——模块。
2)输入以下代码:
将内容复制到剪贴板
Sub onClock()
尺寸h,m,s
h=小时(现在)
m=分钟(现在)
s=秒(现在)
多项活动
范围(' C2:E62 ')。清除内容
单元格(s 2,5)=9:单元格(s 3,5)=0
如果s=59,那么Cells(2,5)=0
单元格(m 2,4)=8:单元格(m 3,4)=0
如果m=59,那么Cells(2,4)=0
如果h=12,那么h=h-12
h=h*5 Int(m/12)
单元格(h 2,3)=6:单元格(h 3,3)=0
如果h=59,那么Cells(2,3)=0
申请。OnTime现在时间值(' 00:00:01 '),' onClock '
末端接头
子时钟()
出错时继续下一步
申请。OnTime Now TimeValue( '00:00:01 '),' onClock 'False
末端接头
3)保存并关闭,不要忘记!
4.添加控制按钮:
1)在菜单栏中选择“开发工具”,插入表单控件,在表格中绘制两个矩形按钮;
2)这两个按钮分别指定宏“on clock”——为“开始计时”和“off clock”——为停止计时。
5.实现计时功能,美化时钟:
点击开始按钮,你会发现时钟开始启动,点击停止暂停计时。
剩下的就是大家发挥创意,尽可能的美化这个钟。
注意:桌子一定要做的如图所示。