平淡

平時(shí)的工作中，我們?cè)贓xcel中經(jīng)常要使用到地區(qū)概念，如統(tǒng)計(jì)產(chǎn)品在各地的銷量，統(tǒng)計(jì)不同區(qū)域代理商的分布等。對(duì)于這類數(shù)據(jù)圖表，如果可以直接利用地圖來(lái)表示，自然能夠讓你的圖表數(shù)據(jù)更為直觀。下面就一起來(lái)看看如何在Excel 2016中制作地圖樣式可視化圖表。實(shí)現(xiàn)的效果是：地圖區(qū)域可以根據(jù)數(shù)據(jù)的不同填充不同的自定義顏色，從而可以直觀通過(guò)顏色了解每個(gè)區(qū)域的不同（圖1）。

因?yàn)樯婕暗降貓D，所以我們首先要繪制地圖素材。不過(guò)并不能直接使用導(dǎo)入的地圖圖片，我們需要的是可編輯的矢量地圖，素材可以自己進(jìn)行手繪，也可以直接下載矢量圖自行編輯。這里介紹如何手繪地圖，地圖素材建議到各個(gè)省測(cè)繪局官網(wǎng)下載，比如筆者選取的是福建省地市地圖，下載后將地圖素材導(dǎo)入Excel，選中插入的圖片，點(diǎn)擊“圖片工具→格式→刪除背景”，將無(wú)關(guān)背景刪除，并進(jìn)行裁剪操作，這樣可以獲取一張背景透明的地圖（圖2）。

選中圖片，繼續(xù)點(diǎn)擊“插入→形狀→自由曲線”，然后在地圖上根據(jù)原來(lái)的地區(qū)劃分線進(jìn)行描圖（注意要形成一個(gè)閉合曲線）。操作同上，依次將其他地區(qū)區(qū)域也勾勒出來(lái)，最后將插入的地圖刪除，這樣就可以在Excel中得到一份可編輯的矢量地圖了（圖3）。

點(diǎn)擊“插入→文字”，在相應(yīng)的地市上面輸入對(duì)應(yīng)的說(shuō)明文字，然后選中插入文字框，點(diǎn)擊“格式→形狀填充→無(wú)填充顏色”，這樣文字背景色可以和后續(xù)地市根據(jù)實(shí)際數(shù)字填充顏色一致（圖4）。

繼續(xù)點(diǎn)擊“開(kāi)始→查找和選擇→選擇窗格”，此時(shí)在右側(cè)窗格可以看到我們上述繪制的文字框和地市多邊形。按提示選中對(duì)應(yīng)的地市圖形，比如選中南平市后在右側(cè)窗格可以看到其對(duì)應(yīng)的是“多邊形11”，按提示在右側(cè)窗格將其重命名為“南平”。繼續(xù)按提示選中其他相應(yīng)的地市，并將其名稱更改為和具體的地市對(duì)應(yīng)的名字。同上，將插入文本框的圖形也重命名為對(duì)應(yīng)的地市名，但是名稱注意和地市圖形名稱區(qū)別（圖5）。

完成上述操作后按提示輸入準(zhǔn)備好的數(shù)據(jù)，這里注意輸入數(shù)據(jù)時(shí)城市的名稱一定要和上述多邊形的名稱一致。比如龍巖市對(duì)應(yīng)的圖形名稱是“龍巖”，那么在分公司下其名稱也要設(shè)置為“龍巖”，因?yàn)楹罄m(xù)VBA腳本是根據(jù)這個(gè)對(duì)應(yīng)關(guān)系進(jìn)行顏色填充操作的（圖6）。

按提示為原始數(shù)據(jù)準(zhǔn)備輔助列，并在輔助列根據(jù)實(shí)際數(shù)字等級(jí)進(jìn)行單元格顏色的填充。比如這里是根據(jù)銷售額的不同進(jìn)行顏色填充，可以在輔助列中按照一定的金額標(biāo)準(zhǔn)進(jìn)行區(qū)別。完成數(shù)據(jù)的輸入后，點(diǎn)擊“開(kāi)發(fā)工具→插入→模塊”，按提示將下列模塊代碼粘貼到代碼框，后為代碼說(shuō)明文本可不輸入（圖7）。

End Sub

返回Excel窗口，點(diǎn)擊“開(kāi)發(fā)工具→宏”，此時(shí)會(huì)在代碼框新增一個(gè)名為“福建可視化地圖”的宏，點(diǎn)擊“選項(xiàng)”，在打開(kāi)的窗口為其添加一個(gè)快捷鍵如Ctrl+W。這樣在完成數(shù)據(jù)的輸入后，以后只要按下Ctrl+W（需要在Excel中開(kāi)啟信任宏），地圖上的各個(gè)地市就會(huì)根據(jù)其對(duì)應(yīng)銷售數(shù)據(jù)填充上不同的顏色，各個(gè)分公司銷售額的好中差表現(xiàn)就一目了然了（圖8）。

因?yàn)榈貓D的顏色是可以根據(jù)銷售額的不同自動(dòng)著色的，因此完成上述操作后可以將其保存為帶宏的.xlsm文件。這樣下次需要再次使用的時(shí)候，我們只要對(duì)銷售數(shù)據(jù)進(jìn)行更新（當(dāng)然大家也可以根據(jù)實(shí)際情況對(duì)考核標(biāo)準(zhǔn)進(jìn)行更改），更新完成后再次按下Ctrl+W即可重新著色。