XY散点图制作时钟完全教程

楼主 gouweicao78	使用图表XY散点图制作时钟的例子，可以参考： http://www.exceltip.net/thread-5948-1-1.html 看到不少朋友都在问怎么做，下面我就来讲解一下吧：【需求分析】从这个雏形图表看，需要在图表上反映的主要有4个要素：时针、分针、秒针、刻度盘。【数据制作】时针、分针和秒针的方法相似，都是从原点引出的一个线段。因此，建立3个数据区域，如A3:B4、A8:B9、A13:B14。以时针为例，在A3:B3输入0表示原点，在A4输入公式： =0.5SIN((HOUR(NOW())+(MINUTE(NOW())/60))(2PI()/12)) 其中：0.5表示时针的长度，HOUR(NOW())+(MINUTE(NOW())/60)得到的是多少小时（实际上忽略了秒的影响） 2PI()/12表示一个闭合的圆，分成12等分。因为指针是从上方12点向右顺时针旋转，与正上方的y轴的角度为α。因此x=斜边sin(α)，y=斜边cos(α) 同理，可得出分针公式： =0.7SIN((MINUTE(NOW())+(SECOND(NOW())/60))(2PI()/60)) 秒针公式： =0.85SIN(SECOND(NOW())(2PI()/60)) 把公式中的SIN换成COS，就得到y坐标。【刻度盘】将一个圆（360°）划为12等分，每个小时之间的夹角是30°，因此D3、E3单元格分别输入： =SIN(RADIANS(30(ROW(1:1)-1))) =COS(RADIANS(30(ROW(1:1)-1))) 向下复制12个公式，就可以得到12个刻度所对应的位置了。同理，也可以做出60个分钟刻度，不过只需要显示数据标志而不需要改为数字。图表制作时钟教程.rar
2楼 gouweicao78	【制作步骤动画演示1】得到一个雏形，插入图表，将时针、分针、秒针和刻度盘做成Xy散点图（指针为折线型）【制作步骤动画演示2】完善和美化，将坐标轴去掉、添加刻度盘的数据标签，手工修改为数字1~12，并设置美化图表
3楼 gouweicao78	图表时钟的效果图：按ALT+F11，在VBE窗口中插入一个模块，把下面代码贴进去： Option Explicit Dim NextTick Sub UpdateClock() ThisWorkbook.Sheets(1).Calculate '让工作表自动计算 NextTick = Now + TimeValue("00:00:01") '设置1秒钟刷新的公式 Application.OnTime NextTick, "UpdateClock" End Sub Sub StopClock() On Error Resume Next Application.OnTime NextTick, "UpdateClock", , False '停止刷新 End Sub 然后在图表上插入2个按钮，并分别指定宏为：UpdateClock和StopClock，用于启动和停止时钟的刷新。
4楼 wjc2090742	excel强大，楼主更强大。我开眼界了。
5楼 sam.tan	努力向高手学习...
6楼 akinoru	都是高手学习中
7楼 windsor42	怎一个牛字了得！
8楼 lrlxxqxa	谢谢草版的详细讲解
9楼巫秀红
10楼 herenqing	力争做一名徘徊于牛A与牛C之间的高人。
11楼 wenchuanrui	高手就是高手啊
12楼 kszcs	路过这里,见到了金山
13楼 yfan17	跟着草版一步一步制作的XY散点图时钟。
14楼 hyyulin008	楼主真是高手中的高手，希望多分享学习经验
15楼 gxuan2008	做得这么像，太厉害了。佩服。
16楼 rhr2008	学习了，谢谢楼主分享！
17楼 windlfr	真是高手啊！见识了！
18楼 ccf	好强大呀！感谢分享！
19楼 hexihu	学习中
20楼 Babu草	谢谢LZ
21楼 gouweicao78	使用图表XY散点图制作时钟的例子，可以参考： http://www.exceltip.net/thread-5948-1-1.html 看到不少朋友都在问怎么做，下面我就来讲解一下吧：【需求分析】从这个雏形图表看，需要在图表上反映的主要有4个要素：时针、分针、秒针、刻度盘。【数据制作】时针、分针和秒针的方法相似，都是从原点引出的一个线段。因此，建立3个数据区域，如A3:B4、A8:B9、A13:B14。以时针为例，在A3:B3输入0表示原点，在A4输入公式： =0.5SIN((HOUR(NOW())+(MINUTE(NOW())/60))(2PI()/12)) 其中：0.5表示时针的长度，HOUR(NOW())+(MINUTE(NOW())/60)得到的是多少小时（实际上忽略了秒的影响） 2PI()/12表示一个闭合的圆，分成12等分。因为指针是从上方12点向右顺时针旋转，与正上方的y轴的角度为α。因此x=斜边sin(α)，y=斜边cos(α) 同理，可得出分针公式： =0.7SIN((MINUTE(NOW())+(SECOND(NOW())/60))(2PI()/60)) 秒针公式： =0.85SIN(SECOND(NOW())(2PI()/60)) 把公式中的SIN换成COS，就得到y坐标。【刻度盘】将一个圆（360°）划为12等分，每个小时之间的夹角是30°，因此D3、E3单元格分别输入： =SIN(RADIANS(30(ROW(1:1)-1))) =COS(RADIANS(30(ROW(1:1)-1))) 向下复制12个公式，就可以得到12个刻度所对应的位置了。同理，也可以做出60个分钟刻度，不过只需要显示数据标志而不需要改为数字。图表制作时钟教程.rar
22楼 gouweicao78	【制作步骤动画演示1】得到一个雏形，插入图表，将时针、分针、秒针和刻度盘做成Xy散点图（指针为折线型）【制作步骤动画演示2】完善和美化，将坐标轴去掉、添加刻度盘的数据标签，手工修改为数字1~12，并设置美化图表
23楼 gouweicao78	图表时钟的效果图：按ALT+F11，在VBE窗口中插入一个模块，把下面代码贴进去： Option Explicit Dim NextTick Sub UpdateClock() ThisWorkbook.Sheets(1).Calculate '让工作表自动计算 NextTick = Now + TimeValue("00:00:01") '设置1秒钟刷新的公式 Application.OnTime NextTick, "UpdateClock" End Sub Sub StopClock() On Error Resume Next Application.OnTime NextTick, "UpdateClock", , False '停止刷新 End Sub 然后在图表上插入2个按钮，并分别指定宏为：UpdateClock和StopClock，用于启动和停止时钟的刷新。
24楼 wjc2090742	excel强大，楼主更强大。我开眼界了。
25楼 sam.tan	努力向高手学习...
26楼 akinoru	都是高手学习中
27楼 windsor42	怎一个牛字了得！
28楼 lrlxxqxa	谢谢草版的详细讲解
29楼巫秀红
30楼 herenqing	力争做一名徘徊于牛A与牛C之间的高人。