【先插入一首歌，因?yàn)閷戇@個(gè)之前我先聽了微博熱搜《小王日記》（太長了），還好當(dāng)時(shí)我在電腦前做東西（主要是等），所以剛好聽完也等到了。寫這個(gè)的時(shí)候開始聽《東北民謠》，因?yàn)榘l(fā)現(xiàn)它慢悠悠的節(jié)奏還不錯(cuò)比較適合寫東西聽，聲音也比較讓人舒適，所以就一直單曲循環(huán)已經(jīng)好幾遍了。】
前兩天Excel界大神蘭色幻想前輩在"Excel精英培訓(xùn)"公眾號上發(fā)表了這樣一篇文章如下：
同時(shí)他在這篇文章中說“蘭色只介紹使用方法，具體制作方法蘭色不再詳述。”
下載下來蘭色大神的excel宏表后，我也按照這個(gè)方法照貓畫虎做了截止2月19日早上的河北疫情熱力地圖（但是不是動(dòng)態(tài)的）。
方法如下：
下載河北的矢量地圖并粘貼至excel中（我是從百度文庫下的，要下載可以放在excel里的格式，ai和eps格式不能直接放在excel里，我下載的是ppt上的，并且該矢量圖已經(jīng)按照各地市輪廓取消組合了。萬能的某寶可以低價(jià)買到海量矢量地圖，不知道這樣說是不是不太好，還好我這個(gè)公眾號現(xiàn)在只是寫著自嗨，沒人關(guān)注。）
做圖例：5檔顏色其實(shí)就是excel顏色中自帶的五檔顏色，挨個(gè)填充上去。區(qū)間我設(shè)置的是左閉右開區(qū)間（每個(gè)區(qū)間等距），這樣方便一會用進(jìn)行模糊匹配。
下限用的公式以O(shè)9單元格為例公式為“=--LEFT(N9,FIND("-",N9)-1)”。首先用find公式提取“-”字符的位置，然后用left公式提取“-”字符之前的字符串，兩個(gè)減號是為了把文本格式轉(zhuǎn)化成數(shù)字格式。P9-P13單元格為五種顏色編號為-。
Q4-R14單元格是搜索到的當(dāng)天河北各地市累計(jì)確診人數(shù)。S4-S14單元格是利用模糊匹配查找確診數(shù)對應(yīng)的區(qū)間所應(yīng)匹配的顏色編號。以S4為例，公式為“=(R4,$O$9:$P$13,2,1)”，其實(shí)這就是利用模糊匹配對從小到大排序的數(shù)列可以查找不大于某數(shù)的最大值對應(yīng)的值vba 將當(dāng)前日期轉(zhuǎn)化成數(shù)值，體現(xiàn)模糊匹配的參數(shù)是第四個(gè)參數(shù)，如果公式的第四個(gè)參數(shù)為1就可以實(shí)現(xiàn)這樣的功能，如果為0則是我們常用的精確匹配。這個(gè)知識點(diǎn)百度可得。
給地圖上的每個(gè)地市區(qū)域命名為該地市名稱，命名方法為選中某區(qū)域vba 將當(dāng)前日期轉(zhuǎn)化成數(shù)值，在excel左上角的框框中輸入名稱，這個(gè)命名必須與Q4-Q14的命名匹配。這樣一會用宏編寫代碼才能有效。
插入文本框標(biāo)注地市名稱，注意這個(gè)步驟和剛剛命名步驟的作用有很大區(qū)別，這個(gè)是為了讓地圖使用者看的，而剛剛的步驟的意義是給機(jī)器看的（也就是讓程序能夠識別名稱，其實(shí)它是存儲在excel內(nèi)部的一個(gè)命名，為了方便我們調(diào)用指定區(qū)域的，而不是展示出來的名稱。）
插入控件，并為該控件編輯宏，這樣點(diǎn)擊這個(gè)控件就可以運(yùn)行宏為地圖填色了。如圖所示的長方形小框框就是我插入的控件。（編輯宏等基礎(chǔ)知識可百度）
我的代碼如下：
Sub 按鈕()
. = False
For i = 4 To 14
.(Range("熱力地圖!Q" & i).Value).Fill..RGB = Range(Range("熱力地圖!S" & i).Value)..Color
Next i
. = True
End Sub
代碼解釋：
For i = 4 To 14：這是創(chuàng)建一個(gè)循環(huán)的開始句，4到14是那幾個(gè)城市名單元格的行號；
.(Range("熱力地圖!Q" & i).Value).Fill..RGB:意思是給當(dāng)前工作表（名稱為熱力地圖）中Q4到Q14單元格所代表的地市圖形進(jìn)行填色
Range(Range("熱力地圖!S" & i).Value)..Color：這是填色等式右邊的一大串。右邊這一串主要定義了填充成什么顏色（也就是賦值，但是所賦的值為顏色）。所附值就是S4到S14單元格對應(yīng)的值所對應(yīng)的顏色。
Next i：有了這個(gè)Next i才能循環(huán)起來，從i=4到i=14挨個(gè)循環(huán)，這樣就把每個(gè)地市都涂色了。
. = False和. = True這兩句分別是禁止實(shí)時(shí)刷新和解除禁止，其實(shí)跟填色這個(gè)步驟本身沒啥關(guān)系，但是為了方便一般加上（咳，因?yàn)槲抑皇遣锁B，只能看懂別人的宏然后拼拼湊湊，所以一般我也沒有深究，不求甚解，這樣不好……）。
Sub 按鈕()和End Sub是這個(gè)程序開頭結(jié)尾，作用是把這段程序框住，給它標(biāo)明一個(gè)界限。
我們保存了這個(gè)宏，點(diǎn)擊控件，程序就運(yùn)行起來了，也就可以給地圖上色了。這樣如果需要更新確診數(shù)，只需R4-R14單元格更新，然后重新點(diǎn)擊控件就可以更新填色了。
這是我制作的河北疫情圖。那么蘭色大神制作的有什么區(qū)別呢？其實(shí)他做的是一個(gè)動(dòng)態(tài)地圖，更加高級一些，功能更多更方便，這樣我們可以自由切換日期，讓地圖動(dòng)起來，就可以查詢一段時(shí)間里每天的情況。
如何實(shí)現(xiàn)？其實(shí)就是動(dòng)態(tài)圖表加vba。動(dòng)態(tài)圖表比vba要簡單些，不用寫代碼，只需要插入控件和公式就好，具體方法可百度，以后這個(gè)公眾號也許會介紹一些動(dòng)態(tài)圖表的制作方法。
蘭色大神的vba代碼如下：
Sub ()
Dim m As
Dim rg As Range
On Error Next
If . = 16 Then
For Each rg In Range("P2", Range("P99").End(xlUp).)
m = .Match(rg.Value, [m:m])
.(rg.(0, -1).Value).
..Fill..RGB = Cells(m, "k")..Color
Next rg
End If
[M1].
End Sub
如果想讀懂可以下載一下蘭色大神的宏表，這樣每個(gè)單元格和vba代碼對應(yīng)關(guān)系就可以搞清楚了。具體思想是差不多的。Dim主要是定義變量。這里實(shí)現(xiàn)動(dòng)態(tài)圖表填色的關(guān)鍵步驟是運(yùn)用對象。
粘貼了一個(gè)百度的簡單介紹，是那個(gè)大概意思。
"If . = 16"這句代碼主要作用就是每當(dāng)點(diǎn)擊動(dòng)態(tài)圖表更換日期的托條控件時(shí)，日期發(fā)生變化，對應(yīng)的確診數(shù)值單元格發(fā)生了更新，也就觸發(fā)了底下那些具有填色作用的代碼的運(yùn)行。所以每當(dāng)點(diǎn)擊一次控件，更新一次數(shù)值，都會根據(jù)當(dāng)天數(shù)據(jù)填色一次。有一定動(dòng)態(tài)圖表基礎(chǔ)的會比較好理解這個(gè)方法。
但是我們?nèi)绻粫鰟?dòng)態(tài)的，或者覺得做動(dòng)態(tài)太麻煩，先試試靜態(tài)的也不錯(cuò)啊。
好了，這樣數(shù)據(jù)地圖大概制作方法就介紹完了。這個(gè)方法比較綜合，需要一些excel基礎(chǔ)知識點(diǎn)。知乎上也有制作數(shù)據(jù)地圖的帖子，好久之前就收藏了一直沒下決心看
以后有時(shí)間也看一看學(xué)習(xí)一下，有好的方法搬運(yùn)過來。數(shù)據(jù)地圖的形式很多，這種簡單填色的熱力地圖只是最基本的。
PS：貌似新版本excel中直接可以利用自帶功能制作一些形式的數(shù)據(jù)地圖，這樣就方便多了。