來源：微信公眾號表妹的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吧！
