excel做一个电子时钟（Excel动态时钟雷达图时钟）

我们经常在报表或者PPT汇报中出现雷达图，那么如何制作雷达图呢？其实基础版本的雷达图制作时非常简单的，利用excel的图表功能制作一个雷达图时钟，十分简单。我们今天要说的是如何制作一个动态的动态时钟雷达图。

先和大家解释一下何为雷达图，又可称为戴布拉图、蜘蛛网图（Spider Chart），是财务分析报表的一种。即将一个公司的各项财务分析所得的数字或比率，就其比较重要的项目集中划在一个圆形的图表上，来表现一个公司各项财务比率的情况，使用者能一目了然的了解公司各项财务指标的变动情形及其好坏趋向。雷达图主要应用于企业经营状况——收益性、生产性、流动性、安全性和成长性的评价。

照例举一个例子,源数据如下图所示:

看了上述的数据，是不是发现和雷达图的原始数据非常的类似，其实，我们下面要完成的就利用雷达图的特效，完成一个时钟效果的雷达图。

我们先看看动画执行的效果：

看了以上的动画，你是不是发现制作动态的雷达图，其实很简单。

您只需要将以下代码复制到Excel的VBE窗口的模块中，然后执行程序即可。

PS:操作流程如下，按照顺序1到4步，然后执行程序。

附上Excel VBA代码

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 '在当前秒针的对应单元格中写入数值9和0

If s = 59 Then Cells(2, 5) = 0 '如果到了59秒，则E2单元格写入0

Cells(m 2, 4) = 8: Cells(m 3, 4) = 0 '在当前分针的对应单元格中写入数值8和0

If m = 59 Then Cells(2, 4) = 0 '如果到了59分，则D2单元格写入0

If h >= 12 Then h = h - 12 '将24小时格式转为12小时格式

h = h * 5 Int(m / 12) '计算时针位置

Cells(h 2, 3) = 6: Cells(h 3, 3) = 0 '在当前时针的对应单元格中写入数值6和0

If h = 59 Then Cells(2, 3) = 0 '如果时针到了59刻度位置，则C2单元格写入0

Application.OnTime Now TimeValue("00:00:01"), "onClock"

'每隔一秒运行onClock子程序

End Sub

Sub offClock()

On Error Resume Next

'停止运行onClock子程序

Application.OnTime Now TimeValue("00:00:01"), "onClock", , False

End Sub

大家在没事的时候，可以试试这个方法制作一下动态的雷达图，当然本文其实最终的结果是制作一个时钟效果。是借用雷达图的基础架构。

PS:雷达图分析法是对企业经营情况进行系统分析的一种有效方法。从图上可以看出企业经营状况的全貌，一目了然地找出了企业经营上的薄弱环节，为下一步审计打下基础。

以上就是今天要和大家分享的技巧，希望对大家有所帮助，祝各位一天好心情！

唯有不断学习，才能不被淘汰！

Excel中每一个方法都有特定的用途，不是他们没有用处，只是你不了解或者暂时用不着，建议你收藏起来，万一哪天用着呢？