疫情分布图,请谨慎对待,做好防护

HDX柿子

已于 2022-04-18 12:52:26 修改

阅读量175

点赞数

文章标签： microsoft

于 2022-04-18 12:37:18 首次发布

本文链接：https://blog.csdn.net/zxjoke/article/details/124246690

版权

本文介绍了如何使用Excel制作高度自由化的热力地图，通过寻找矢量地图，设置阈值和颜色，利用VBA编程修改形状颜色，最终实现动态更新数据的热力地图。步骤包括准备矢量地图、设置数据和颜色代码，以及添加VBA宏代码到命令按钮，使得只需修改数据即可刷新地图颜色。

摘要由CSDN通过智能技术生成

参考链接: https://gewuweb.com/office365/2442.html

**我的目标：**让中国的大学生走出校门的那一刻就已经具备这些office技能，让职场人士能高效使用office为其服务。支持我，也为自己加油！

这几天每天都在不停地刷今日头条上关于抗击肺炎的报道，有张图表引起了我的注意，如下：

这是一张热力地图，用于反映地图内各个区域的权重情况，这张图表能否用Excel来做呢？

大家都知道，2016及以上版本的Excel中已经自带了地图图表，但是自带的地图图表功能比较简单，能够满足一些简单的需求，但是对于复杂的需求就很难应对了。

其实高度自由化的热力地图制作起来也不难，思路如下：

找一份每个省份都可以自由移动的中国地图，这样每个省份就相当于一个自选图形，设置好阈值及每个阈值对应的热力颜色，用VBA修改每个省份对应的热力颜色即可。

下面分享下高度自由化的热力地图的做法：

1、首先需要找一张矢量地图，图内每个省份的图块都是可以自由自动的，如下：

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-Opqvw4tC-1650256588768)(data:image/gif;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAYAAAAfFcSJAAAADUlEQVQImWNgYGBgAAAABQABh6FO1AAAAABJRU5ErkJggg==)]

每个省份的图块都是命名好，如下：

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-VU15MeiN-1650256588769)(data:image/gif;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAYAAAAfFcSJAAAADUlEQVQImWNgYGBgAAAABQABh6FO1AAAAABJRU5ErkJggg==)]

2、准备好数据：

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-ZDPWAREd-1650256588770)(data:image/gif;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAYAAAAfFcSJAAAADUlEQVQImWNgYGBgAAAABQABh6FO1AAAAABJRU5ErkJggg==)]

3、设置阈值及颜色代码：

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-C5qDarI2-1650256588771)(data:image/gif;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAYAAAAfFcSJAAAADUlEQVQImWNgYGBgAAAABQABh6FO1AAAAABJRU5ErkJggg==)]

某个颜色的RGB代码怎么获取呢？请参阅下面的文章：

4、打开VBE窗口输入以下代码：

清除颜色的代码：

`Sub 清除颜色()``Dim i%``For i = 2 To 35``Sheets("heatmap").Shapes.Range(Array(Cells(i, 1))).Select``Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)``Next i``End Sub`

重新着色的代码：

`Sub HeatMap()``Dim i%``For i = 2 To 35` `Sheets("heatmap").Shapes.Range(Array(Cells(i, 1))).Select` `With Selection.ShapeRange.Fill.ForeColor` `Select Case Cells(i, 2).Value` `Case 0` `.RGB = RGB(255, 255, 255)` `Case 1 To 9` `.RGB = RGB(243, 194, 76)` `Case 10 To 99` `.RGB = RGB(228, 101, 19)` `Case 100 To 499` `.RGB = RGB(152, 54, 58)` `Case Is >= 500` `.RGB = RGB(96, 38, 24)` `End Select` `End With``Next i``End Sub`

5、在地图的上面插入两个命令按钮表单控件，分别命名为清除颜色，重新着色，每个按钮的宏代码指定为对应的代码。

经过以上步骤，一份热力地图就制作好了，效果如下：

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-AmfOwR6a-1650256588772)(data:image/gif;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAYAAAAfFcSJAAAADUlEQVQImWNgYGBgAAAABQABh6FO1AAAAABJRU5ErkJggg==)]

以后只需要修改数据，点击“重新着色”按钮即可刷新地图颜色。

“新冠”病毒疫情严重，目前关心别人的最好方式就是做好防护，防止病毒扩散，我们同心协力，共同战胜病毒！

参考来源: https://gewuweb.com/sitemap.html