来源：微信公众号表妹的EXCEL
“数据？”
“手动/自动录入”
“数据+颜色？”
“条件格式”
“数据+颜色+地图？”
“... ...不会”
“那你得看看这个~~”
~~~~~~变色地图的分割线~~~~~~
效果展示
【说明】
1.设置销售额等级颜色后，录入各省份销售数据，点击填充按钮，各省份地图即可填充对应等级颜色
2.改变销售额等级颜色，点击填充按钮，该等级省份地图填充颜色也随之改变
3.改变省份销售额数据，点击填充按钮，该等级省份地图填充颜色也随之改变
-------------------------------------
怎么样？这份会变色的地图是不是很酷炫？展示数据的方法是不是也很高大上？嘻嘻，下面表妹就把制作方法传授给你~~
变色地图 制作方法
步骤1：准备一张全国各省的矢量地图
（如果你没有，请到表妹的EXCEL群QQ群文件里下载吧~~）
步骤2：为各省份地图块命名，名称=省份名称
步骤3：制作省份和销售额数据，设置颜色填充标准
步骤4：添加“填充颜色”按钮
步骤5：为“填充颜色”按钮添加VBA代码
代码如下：
Sub 填充颜色()
Dim i%, c As Long
For i = 2 To31
Select Case Cells(i, 2)
Case Is >= Range("D2")
c = Range("E2").Interior.Color
Case Range("D3") To Range("D2")
c = Range("E3").Interior.Color
Case Range("D4") To Range("D3")
c = Range("E4").Interior.Color
Case Range("D5") To Range("D4")
c = Range("E5").Interior.Color
Case Range("D6") To Range("D5")
c = Range("E6").Interior.Color
Case Else
c = Range("E7").Interior.Color
End Select
ActiveSheet.Shapes(Cells(i,1)).Fill.ForeColor.RGB = c
Next
End Sub
代码替换参数解释:
For i = 2 To31：省份数据共31行；
Select Case Cells(i, 2)：销售额数据位于B列，即第2列；
D2~D6：销售额等级单元格；
E2~E7：颜色等级单元格；
ActiveSheet.Shapes(Cells(i,1))：省份名称位于A列，即第1列。
-------------------------------------
步骤6：将文件保存为“启用宏的工作薄”的格式
“轻松完成，So easy~~”
“太棒了，我也要试一下！”
“那快去表妹的EXCEL群里下载模板吧~”
“给表妹点赞！”
关注微信公众号“表妹的EXCEL”，每周一、三、五获取原创分享教程。
加入“表妹的EXCELQQ群（345387282）”，和勤奋好学的小伙伴们一起快乐地学习EXCEL吧！
