喀纳斯|Excel地图展示21年国庆旅游热力图黄金周

【喀纳斯|Excel地图展示21年国庆旅游热力图】

文章图片

2021年国庆已经结束，全国19个省份公布了国庆假期旅游情况。由于疫情的原因，乡村游、周边游成了大多数人的选择。

在目前已公布的省份数据中四川、江苏、江西占居前三。经文化和旅游部数据中心测算， 10月1日至7日，出游人次按可比口径恢复至疫前同期的70.1% 。
已公布19个省份数据如下：

对于地理不好的同学，表格就不够直观，如何让数据表现形式更加直观更加有视觉冲击力呢？中国地图热力图是一个很好的选择！

地图可以直观的告诉我们在“大公鸡“的什么位置，出游人次最多，什么位置，出游人次最少。

这里将操作中使用到的代码公布出来，有兴趣深入学习的同学可以咨询我。
Sub 热力地图()
Application.ScreenUpdating = False
For i = 2 To 20 '2和20为数据源的起始和结束行
Range(\"省份\").Value = https://mparticle.uc.cn/api/Range(/"热力图!a\" & i).Value
'将A列的省份填入到E9单元格
ActiveSheet.Shapes(Range(\"省份\").Value).Select
'选中当前省份所对应的地图
Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range(\"颜色\").Value).Interior.Color
'将选中的图形填充E11单元格指向的颜色
'以下为填充标签代码
With Selection.ShapeRange.TextFrame2
.TextRange.Characters.Text = Range(\"标签\").Value
.TextRange.ParagraphFormat.Alignment = msoAlignCenter
.VerticalAnchor = msoAnchorMiddle
End With
With Selection.ShapeRange.TextFrame2.TextRange.Font
.NameComplexScript = \"微软雅黑\"
.NameFarEast = \"微软雅黑\"
.Name = \"微软雅黑\"
End With
With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0 0 0)
.Transparency = 0
.Solid
End With
Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 10
Next i
[a1
.Select
Application.ScreenUpdating = True
MsgBox \"热力图制作完成\"
End Sub
欢迎点击关注，后续会有更多精彩内容！

喀纳斯|Excel地图展示21年国庆旅游热力图

秒懂生活扩展阅读