EXCEL怎么制作计时器?
时间:2023-07-09 04:36:10
EXCEL怎么制作计时器?在搞活动的时候,我们会用到一些计时器,有时需要显示在投影上,其实,我们用手头上的EXCEL表格就可以制作比较简单的计时器,稍微美化一下,还可以做出“手表”的感觉,下面我们要起来看看吧
在搞活动的时候,我们会用到一些计时器,有时需要显示在投影上。大家都会选择在网上下载各种计时小软件,有免费的、有破解的、还有收费的,很是麻烦!其实,我们用手头上的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()
Dim h,m,s
h=Hour(Now)
m=Minute(Now)
s=Second(Now)
DoEvents
Range("C2:E62").ClearContents
Cells(s+2,5)=9:Cells(s+3,5)=0
If s=59 Then Cells(2,5)=0
Cells(m+2,4)=8:Cells(m+3,4)=0
If m=59 Then Cells(2,4)=0
If h>=12 Then h=h-12
h=h*5+Int(m/12)
Cells(h+2,3)=6:Cells(h+3,3)=0
If h=59 Then Cells(2,3)=0
Application.OnTime Now+TimeValue("00:00:01"),"onClock"
End Sub
Sub offClock()
On Error Resume Next
Application.OnTime Now+TimeValue("00:00:01"),"onClock",,False
End Sub
3)保存、关闭,别忘了!!!
4、添加控制按钮:
1)菜单栏选择“开发工具”,插入窗体控件,在表中绘制两个矩形按钮;
2)将两个按钮分别指定宏为“onClock”——命名为“开始计时”,“offClock”——停止计时。
5、实现计时功能,美化时钟:
点击开始按钮,则会发现时钟开始走起来,点击停止则会暂停计时。
剩下的,就是大家发挥创意,尽可能地美化一下这个时钟就好了。
注意事项:表格制作一定按照图片所示。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
yosemite10.10.3beta3下载地址 os x10.10.3beta3官网下载
![](https://img.aspxhome.com/file/2023/3/a215153_0s.png)
Disk Cleaner for Mac如何清理磁盘垃圾?Disk Cleaner mac使用方法
![](https://img.aspxhome.com/file/2023/8/a214278_0s.jpeg)
巧妙查看Windows Server 2008运行性能
![](https://img.aspxhome.com/file/2023/29/a259688_0s.jpg)
Win10多个CPU没有全部一起工作怎么办?多个CPU没有一起工作解决方法
![](https://img.aspxhome.com/file/2023/26/a220670_0s.jpg)
win7系统0x00000007b蓝屏怎么办?
![](https://img.aspxhome.com/file/2023/1/a279435_0s.png)
VLOOKUP函数怎么查找数值
![](https://img.aspxhome.com/file/2023/8/a167668_0s.png)
如何在Word 2013中使用页面设置对话框?
![](https://img.aspxhome.com/file/2023/8/23228_0s.jpg)
Win7系统怎么给磁盘加密?win7硬盘加密的方法介绍
![](https://img.aspxhome.com/file/2023/2/a288560_0s.jpg)
Windows7更改默认浏览器的技巧
![](https://img.aspxhome.com/file/2023/27/a233365_0s.jpg)
Excel中的COLUMN函数使用技巧
![](https://img.aspxhome.com/file/2023/6/a167756_0s.gif)
如何使用wps轻办公软件
Win7系统adb.exe无法正常启动已停止运行怎么办?
![](https://img.aspxhome.com/file/2023/3/a302332_0s.jpg)
win10声音没了怎么办_win10电脑没声音的解决办法
![](https://img.aspxhome.com/file/2023/4/a306824_0s.jpg)
Win10电脑怎么快速取消电脑开机密码?
![](https://img.aspxhome.com/file/2023/5/51105_0s.png)
win10中内置的Linux Bash启动闪退问题如何解决?
![](https://img.aspxhome.com/file/2023/28/a242266_0s.jpg)
PS怎么做水雾效果?PS做水雾效果的方法
![](https://img.aspxhome.com/file/2023/8/a333884_0s.jpg)
win10输入法没有选字框怎么办?win10输入法看不到选字框的解决方法
![](https://img.aspxhome.com/file/2023/30/a266684_0s.jpg)
excel2003一列的减法计算教程
sumproduct函数使用基础教程
![](https://img.aspxhome.com/file/2023/4/a161584_0s.jpg)
剪映怎么去掉视频原声
![](https://img.aspxhome.com/file/2023/9/a341097_0s.png)