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、实现计时功能，美化时钟：
点击开始按钮，则会发现时钟开始走起来，点击停止则会暂停计时。
剩下的，就是大家发挥创意，尽可能地美化一下这个时钟就好了。
注意事项：表格制作一定按照图片所示。
0
投稿猜你喜欢
有时，在Microsoft Teams上，您会收到必要的消息，然后使用Microsoft To-Do将其转变为任务。但是，由于没有集成，因此- 我们有时候在上网时，需要修改自己系统下的DNS来实现某种效果，但是刚刚使用Mac os系统的时候，对这个系统不是很了解，甚至一些简单的技巧都
- 时隔 827 天，大家心心念念的新款 AirPods 终于出现我们面前，而几乎在相差不多的时间里，华强北「推出」了一款真正意义上的山寨 Ai
- 当年曾经红极一时的Cortana微软小娜，如今日益被边缘化，甚至微软做出了在Android和iOS平台下架Cortana的决定。要说当年Co
- Win10系统防火墙关闭后总是弹出安全中心提示怎么办？近日有用户关闭Win10防火墙后，就一直出现安全中心提示，该如何解决？请看下文具体介绍
- 可以把XP系统装入到虚拟硬盘从而用它启动电脑，太神奇了，一个虚拟硬盘竟然可以启动电脑，从此抛弃了虚拟机，下面为大家介绍下图形化处理XP装入V
- Word文档打开讲义无法显示数学符号怎样转换符号？或其他解决方法是公式编辑器字体出问题。打开文档，双击有显示问题的数学公式，这时公式编辑器会
- 平时在用WPS编辑文档过程中，有时需要在文档中绘制(插入)图形，来配合文档对某一事件进行辅助说明，以达到深入浅出、通俗易懂的目的。但在实际操
- 相信大家都使用过办公软件，在面对现在许多的办公软件时，大部分的用户会选择使用wps软件，因为wps软件中拥有着其它办公软件强大的功能支持，用
- myfastupdate.exe是my-fast-access.com网络搜索加速工具条相关进程。进程文件： myfastupdate or
- 在制作幻灯片时，通常需要为每张幻灯片都设置一些相同的内容或格式以使演示文稿主题统一。例如，在每张幻灯片中都加入公司的Logo，且每张幻灯片标
- 桌面上的快捷方式有个小箭头，真的很碍眼如何去掉桌面图标箭头让很多用户很困惑，其实去掉桌面图标箭头的方法很简单，今天小编就和大家一起学习win
- 现如今，电脑的使用越来越普及，许多人上班或者生活中都需要用到word文档办公软件，但其中一些小知识，比如word文档如何设置分页以及取消分页
- 在用wps文字制表的过程中，“表格属性”菜单中的某些选项容易被大家忽略，而在特定条件下，巧妙运用这些选项却有着事半功倍的“唯美对齐”效果!唯
- 在 iOS 13.2 以及更新版本中，苹果带来了一项新的功能——Siri 信息播报：当您收到信息时，如果佩戴着 AirPods 或兼容的 B
- gpd win3是全新的掌机能够体验各种火爆热门的电脑游戏，而这次它的接口也使用了超强的最新代雷电4接口，那么具体如何呢？下面就给你们带来了
- Word默认的板式，往往不能满足我们的实际需要，比方说文档的上下左右四个边距太大或者太小，再比方说我们需要的是横向的纸张方向等等，这些都是需
- 近日微软面向Win10 Mobile和Windows10 PC设备开始推送Win10积更新补丁KB3194798。有的用户反映无法安装该更新
- 与之前各Windows版本操作系统相比，Win10针对系统的稳定性得到极大的提升，尤其在系统备份及还原部分，提出了更好的解决方案。那么Win
- Win10哪个版本占用空间最小？大家经常听到的Win10版本主要为四个，分别是专业版、家庭版、企业版、教育版，其实除了这四个之外，还有工作站
