編按：除湖北外，全國新冠肺炎新增病例已經降到個位數增長了，國家也鼓勵我們有序復工。但是打開手機看到的還是觸目驚心的累計確診圖、現有確診圖，並且數據仍然在緩慢的上漲。那我們出門安全嗎？什麼時候才能不戴口罩出門呢？
經過作者和小編的努力，我們得到了全國地級城市的「疫情綠區圖」或者說「疫情消退圖」。在這些圖上，我們可以一眼看出自己所在地或者要去的地方已經多久沒有新增病例了。
通過這張圖，我們發現，疫情正在從讓人擔心的紅色、橙色減退為安全的綠色。全國絕大部分地區都已經變成不同程度的綠色，連續14天及以上沒有新增病歷的深綠區域也已經很多了。
我們放大顯示了部分省份的疫情綠區圖，為大家的安全出行提供一份參考。
下面我們來看看是怎麼得到這些綠區圖的，並且分析何時才能像以前一樣不戴口罩就可以出門。
【前言】
考慮了很久，還是決定寫下這篇文章，相對於EXCEL教程類的文章來說，無論是函數型、總結型，甚至是VBA教程、BI教程，我們都可以寫出很多的內容，可是今天我要分享的教程卻是「相當麻煩但是又寫不出多少內容」的文章。
「數據地圖」是很多行業領域都需要的，但是要把它做好卻並不容易，難度係數：中，複雜係數：高！在全國一盤棋的抗疫戰略中，我們部落窩總覺得應該做點什麼來表示我們也是這其中的一份子，所以作者E圖表述還是將這個圖做了出來，希望用我們EXCELER的特有方式來為這次「戰疫」奉獻我們特有的力量。
【正文】
一、疫情綠區圖創建
在VBA中，SHAPE是圖形，數據地圖就是利用對於自選圖形的屬性編輯，達到我們需要的效果，首先我們要有一份可編輯的中國各省地級城市的地圖矢量圖，這個大家可以加入部落窩的大家庭，向老師索取。
STEP 1：處理圖形
這個地圖已經被作者處理過了，主要有兩方面的處理：
1.給每一個圖形添加名稱。
選中圖形，對照地圖，在名稱框中輸入城市或者區域的名稱。
2.定位所有對象，調整圖形標籤的格式。
按鍵盤上的F5鍵，彈出「定位」窗口，依次點擊「定位條件——對象——確定。」
在選中所有圖形後，按照下面的格式調整圖形樣式。
圖形的設置就到這裡了，我們可以得到下面的圖，接下來我們再對數據進行處理。
STEP 2：處理數據
VBA雖然強大，但是我們沒有必要將所有的東西都用VBA來處理，所以我們把數據處理的部分交給了「函數」。
首先我們依然是需要數據源的，在工作中，也是如此。我們這些EXCELER操作的是EXCEL，操作的是數據；手裡沒有數據談何「技巧」的發揮，而在作者的認知中，一直覺得，數據源整理也應該算是學習EXCEL的基礎之一。
數據來源：今日頭條「抗擊肺炎」專題版塊
然後按下面的結構處理數據，便於我們代碼的引用。
G2單元格輸入函數：
=MAX(A:A)
H2單元格輸入函數：
=MAX(A:A)-MIN(A:A)+1
G4單元格輸入函數，並下拉填充：
=IF(C4<>C3,D4,D4-D3)
H4單元格輸入函數，並下拉填充：
{=IF(A4<>$G$2,0,LOOKUP(9^9,N(FREQUENCY(IF(OFFSET(G4,0,0,-$H$2,1)=0,ROW(INDIRECT("$4:$" & $H$2+3))),IF(OFFSET(G4,0,0,-$H$2,1)<>0,ROW(INDIRECT("$4:$" & $H$2+3)))))))}
H4單元格的函數，用於統計截止2月24日，最後一次每日新增量連續為0的次數。當然，這不是今天的重點，大家可以先使用「拿來主義」，以後我們肯定會講這個內容。
處理完數據，我們再建立一張空白工作表，在A1單元格輸入：城市名稱，B1單元格輸入：數據。講到這裡，同學們知道我們一共有幾張工作表嗎？一共四張，如下命名：
STEP 3：輸入VBA代碼
按ALT+F11組合鍵，打開VBE界面，錄入第一段代碼，工程名稱：填充圖形顏色
Sub 填充圖形顏色()
Dim i As Integer, a As String
Dim rg As Range
On Error Resume Next
With ActiveSheet
a = .[C1]
For Each rg In .Range("B2:B" & .[B65000].End(3).Row) '在《圖表數據》B列中循環每一個單元格
i = Application.Match(rg.Value, [C:C], 1) '確定每個值，在某個區間
ActiveSheet.Shapes(rg.Offset(0, -1).Value).Fill.ForeColor.RGB = Cells(i, "A").Interior.Color '按照區間對應的色階，填充圖形顏色
ActiveSheet.Shapes(rg.Offset(0, -1).Value).TextFrame2.TextRange.Characters.Text = rg.Offset(0, -1).Value & Chr(10) & rg.Value & a '給圖形的標籤賦值為 「城市名稱+數值+單位」的形式
Next rg
End With
End Sub
因為我們做的是模板，所以同學們可以直接使用數據源，不需要更改代碼。如有想學習代碼的同學，可以參考作者為代碼添加的批註說明。
因為作者要將各種數據統計在一張地圖中標記，所以我們還要做4段代碼，分別是「累計確診病例」、「現有確診病例」、「今日新增病例」、「連續零增加病例」。代碼的結構都是一樣的，我們用其中的「連續零增加病例」代碼列出範例如下。
Sub 連續0增長病例()
With Sheets("數據分析圖")
.[A26].Interior.Color = RGB(249, 83, 77) '以下6行代碼，是設置色階的RGB代碼
.[A27].Interior.Color = RGB(197, 208, 112)
.[A28].Interior.Color = RGB(165, 199, 112)
.[A29].Interior.Color = RGB(119, 185, 113)
.[A30].Interior.Color = RGB(76, 172, 113)
.[A31].Interior.Color = RGB(10, 154, 114)
.[B26] = "0-2天無新增" '以下6行代碼，是區間值的說明
.[B27] = "3-4天無新增"
.[B28] = "5-6天無新增"
.[B29] = "7-9天無新增"
.[B30] = "10-13天無新增"
.[B31] = "≥14天無新增"
.[C26] = 0 '以下6行代碼，是確定色階的輔助列，工作表中改成白色
.[C27] = 3
.[C28] = 5
.[C29] = 7
.[C30] = 10
.[C31] = 14
End With
Dim a As Integer, i As Integer
Dim arr, d
With Sheets("源數據")
a = .Range("A3").End(4).Row '確定源數據的末行,並賦值給變量a
arr = .Range("A4:I" & a) '將動態數據區域，賦值給數組
End With
Set d = CreateObject("scripting.dictionary") '建立字典腳本
For i = 1 To UBound(arr) '循環數組
d(arr(i, 3)) = arr(i, 8) '將最後一次的數值賦值給字典
Next i
Sheets("數據分析圖").[C1] = "地級城市：連續「零增加」病例天數分布圖" '確定圖表標題
With Sheets("圖表數據")
.Range("A2").Resize(d.Count, 1) = Application.Transpose(d.keys) '將字典的關鍵字賦值到《圖表數據》的A列
.Range("B2").Resize(d.Count, 1) = Application.Transpose(d.items) '將字典的項賦值到《圖表數據》的B列
.Range("C1") = "天" '標註單位
End With
Call 填充圖形顏色 '引用填充圖形顏色的工程
[A1].Select '定位最後的光標
Erase arr
Set d = Nothing
End Sub
關於其他三段代碼，大家可以嘗試著自己操作，當然也可以加入部落窩的學習QQ群，下載素材學習。
STEP 4：添加控制項並加載宏
首先我們添加控制項，依次點擊「工具欄——開發工具——插入——選項按鈕。」
滑鼠右鍵點擊控制項，點擊「編輯文字」，依次修改控制項的標籤。
看到上圖中「指定宏」的選項了嗎，點擊它就可以加載我們剛才寫的代碼了。
這些就是我們做的「工程名稱」，選擇對應的名稱再點擊確定，就可以將代碼加載到控制項上，點擊控制項的過程也就是激活此工程代碼的過程。藉此完成。
STEP 5：衍生出各省地圖
我們已經做出了大部分的地圖，那麼如果能從這個全國地圖中，再看到各省的地級城市地圖不是更加方便？下面我們就來看一下如何「根據全國地圖製作各省地圖」，以四川為例：
步驟1：在《行政區域圖》中按住CTRL鍵複選你要的省份的城市拼圖，複製到一個新的工作表，將工作表名稱命名為某省。
步驟2：在《數據分析圖》中複製出「色階區間區域A25:B31」、「標題」、「選擇控制項」，並將其一併粘貼到《四川省》工作表中，形成下圖的布局。
因為我們是複製過來的，所以控制項上依然有代碼加載，可以直接操作，無需再重新加載。
步驟3：在VBE代碼中，錄入下面的代碼：
Sub 四川()
Sheets("四川省").Select
End Sub
步驟4：再次回到《數據分析圖》工作表，複選四川省的各城市拼圖，單擊滑鼠右鍵，在彈出的菜單中選擇「指定宏」，選擇「四川」，點擊「確定」。此時，我們再點擊這些拼圖的時候，就可以連結到《四川》這個工作表中了。
步驟5：按照上面的操作，依次製作出《武漢》、《廣東》兩個工作表，然後按住CTRL鍵，複選《武漢》、《四川》、《廣東》三個工作表，在A1單元格中輸入「返回全國圖」，單擊滑鼠右鍵，在菜單中選擇「超連結」選擇項，設置連結到《數據分析圖》工作表，藉此我們整體的一個地圖就完成了，有興趣的同學可以自己製作自己省份的地圖。
下面給大家看幾張展示圖，記得一定要親手操作一遍。
從圖表上來看，疫情的防控工作，我們大中國做的真的很不錯，1個月的時間就已經控制到這樣的一個程度，說明我們的做法是正確的，身為一位中國EXCELER，我驕傲！！
【編後語】
二、何時可以不戴口罩了？
我們已經得到了全國和各省份的疫情綠區圖，這些數據顯示絕大多數地區的疫情已經被打敗，正在消退，正在遠離，超過7天、14天，甚至21天的連續零增加病歷的地區越來越多。
那何時我們可以不戴口罩出門，可以在公交、地鐵上自由呼吸呢？
1.中位數分析
在我們整理的Excel數據文件中，有一張工作表「圖表數據」。這裡面統計的是全國各地級市截止2月24日連續零增加病例的天數。
我們複製數據列，並去掉湖北的數據，然後進行升序排列，得到321個數據。這些數據中，最小的是0，有11個，最大的是32，有30個。數列的中位數為10。如果我們保守些，按照連續24天（當前最長潛伏期）零增加就視為疫情結束的話，需要14天，也就是3月10日後，除湖北外，全國絕大多數地區將進入深綠。
2.現存確診的走勢分析
通過百度APP我們能查到非湖北現存確診人數圖。
這是一條看起來比較光滑的接近拋物線的圖。我們可以在這張圖上進行趨勢推測，現存確診歸零大約在3月16日前後。
3.當前治癒數據的分析
我們統計了全國、湖北、非湖北的每日新增治癒。
很顯然，湖北外新增治癒在2月20日達到最高后開始降低。這個態勢是從低到高再到低的走勢。截止到2月25日，非湖北共治癒8830人，每日平均治癒人數約為245。全國非湖北現存確診人數是4037，當前每日新增是個位數，可以不考慮，全部治癒（非湖北死亡很低，所以忽略死亡）需要約16天，也就是到3月12日前後。
4.結論
綜合前面3項分析，我們預測到3月中旬，全國湖北外的地方疫情就結束了，我們就可以摘掉口罩，自在出門了。當然，如果謹慎的話，需要等到湖北結束，時間還需要延後10~20天，也就是3月底或4月中旬，我們才能摘掉口罩。
當然所有的預測都是建立在我們繼續堅持「戴口罩、勤洗手、少聚集」的做法上，所以，在疫情結束前請大家繼續堅持！
最後，我們看看截止到2月26日數據，湖北各地已經有8個地級市沒有出現新增病歷了！
再次聲明：本文只做EXCEL技術交流與分享，對於數據內容正誤，請以國家官方發布信息為準。
＊＊＊＊部落窩教育－excelVBA應用技巧＊＊＊＊
原創：E圖表述/部落窩教育（未經同意，請勿轉載）