作者：绿色风
分类：
时间：2022-08-17
浏览：203
楼主
嘉昆2011 |
声明：
数据源来自：- http://www.wunderground.com/
素材参考来源：
Excel大全 新浪微博 2012年10月30日- http://www.weibo.com/excelbible
Rongson_Chart 新浪微博 2012年10月30日- http://www.weibo.com/rongson
效果图：
若效果显示不清，可点击：- http://www.screencast.com/t/pyzNq1C3f
此仿制作品与前两者的不同在，借助VBA与API对具体某时段的飓风进行可视化展示（即，能清晰知道某时段飓风的种类）。
涉及知识点：
1，函数：Lookup
2，VBA：对数据点的着色
3，简单API
4，名称
5，图表：柱型图+气泡图
制作步骤：
（由于Excel大全完成大部分内容，包括函数的应用，图形的配准及美化，本文仅对VBA部分加以阐述）
1，对每个时段的飓风类型数据点用颜色加以区分，代码：- Private Sub PointsColor()
- Dim pntColors As Collection
- Dim Rng As Range
- Dim i As Long
- Set pntColors = New Collection
- For Each Rng In [StormCategory]
- pntColors.Add Rng.Interior.Color, Rng
- Next
- For Each Rng In [TypeStorm]
- Rng.Interior.Color = pntColors(Rng)
- i = i + 1
- With Sheet2.ChartObjects("TrackSandy").Chart.SeriesCollection(2).Points(i)
- .Format.Fill.ForeColor.RGB = pntColors(Rng)
- .Format.Fill.Transparency = 0.2
- End With
- Next
- Set pntColors = Nothing
- End Sub
对字典熟悉的朋友对上面的代码应该不陌生，这里只是把字典对象换成了Collection对象，用于分别记录颜色及相关信息。
2，由于要用动画的形式展现飓风的路径和风力变化，所以借助API，使速度减慢。- Option Explicit
- Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
- Public Sub Animate()
- Dim i As Long
- Const Time_Range = 31
- For i = 1 To Time_Range
- [Time_Index] = i - 1
- Sleep 250
- DoEvents: DoEvents
- Next i
- End Sub
3，修改链接（图表，控件）
推荐阅读：
http://www.exceltip.net/thread-40609-1-1.html
附件：
 飓风桑迪路径图.rar
最后，愿在此次受灾的朋友尽快回到安静的日常生活来。
|
2楼
peakchu |
跟昆哥学习
 |
3楼
嘉昆2011 |
谢谢支持
 |
4楼
烟花醉 |
太神奇了，呵呵
|
5楼
xyf2210 |
牛，学习 |
6楼
老糊涂 |
学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一