来源：微信公众号表妹的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吧！