1、Excel制作空氣指數儀表盤方法鞍山師范學院 張福利 2015.12.12儀表盤刻度制作方法參考網絡上他人文章，在此表示感謝！儀表盤制作分為五個步驟，分別是規劃儀表盤刻度、制作儀表盤、制作指針、讓指針動氣來、完善儀表盤功能。 下表是空氣污染指數范圍表（互聯網拷貝，數據準確性有待考證），根據下表數據利用EXCEL2010制作一個儀表盤顯示空氣指數表。空氣污染指數API空氣質量狀況對健康的影響建議采取的措施0-50優可正常活動。51-100良101-150輕微污染易感人群癥狀有輕度加劇，健康人群出現刺激癥狀。心臟病和呼吸系統疾病患者應減少體力消耗和戶外活動。151-200輕度污染201-250中度

2、污染心臟病和肺病患者癥狀顯著加劇，運動耐受力降低，健康人群中普遍出現癥狀。老年人和心臟病、肺病患者應當停留在室內，并減少體力活動。251-300中度重污染>300重污染健康人運動耐受力降低，有明顯強烈癥狀，提前出現某些疾病。老年人和病人應當留在室內，避免體力消耗，一般人群應避免戶外活動制作步驟：1、 規劃儀表盤刻度在Excel輸入下表所示數據：刻度：儀表上顯示的刻度值表盤：表盤的數據是插入環形圖使用的，表盤度數的和是360度，每30度位一個刻度，最后一個刻度單位是90度，0度是占位符，用于標注刻度。2、 制作儀表盤選中B2:B21數據插入圓環圖（為了美觀刪除了圖例），調整圓環圖的大小達到

3、滿意的效果，如作品完成再調整大小會很麻煩！選中圓環圖右鍵“設置數據系列格式”，在“設置數據系列格式”窗口中修改第一扇區起始角度為225，修改后環線圖形為90的區域轉到正下方；圓環圖內徑大小可根據需要調整，這里設置為70%。選中圓環圖右鍵“選擇數據”選“添加”，在編輯數據系列窗口中系列名稱處輸入“刻度”，系列值選中數據表中的表盤數據B2:B21。“確定”按鈕后進入選擇數據源窗口，按“上移”按鈕將“刻度”圖例項上移。選“編輯”按鈕，在軸標簽區域輸入刻度列數據，注意，數據個數要與表盤個數一致。按“確定”按鈕，選內環圖形，右鍵“添加數據標簽”再選內環圖形，右鍵“設置數據標簽格式”，在“設置數據標簽格式

4、”窗口中設置標簽選項，在標簽包括選項處只選“類別名稱”，這樣刻度就會顯示在儀表盤上。右鍵選擇內環，設置形狀填充設為無填充顏色，形狀輪廓設為無輪廓，表盤刻度就繪制好了。設置外環的圖形顏色，根據空氣質量指數范圍設置顏色。0-100 綠色101-200黃色201-300 橙色>300 紅色選擇外環相應的區域設置“形狀填充”和“形狀輪廓”，外環數據為90的區域設置為“無填充顏色”。以0-50區域為例，鼠標選中該區域（小伙伴們要注意，不是整個圖形呦），如下圖，然后設置“形狀填充”和“形狀輪廓”為“綠色”。按上述方法設置其它區域顏色，所有區域顏色設置好后，儀表盤就制作成功了。小伙伴們看到下圖有沒有成

5、就感？3、 制作指針“插入”à“形狀”中選擇喜歡的圖形來做指針，作者比較喜歡三角形，就選擇插入三角形，調整三角形的形狀使其像指針，“格式”à“形狀樣式”設置外觀。指針轉動是用vba實現。該方法中圖形的轉動是圍繞圖形的中心點轉動，為了解決這個問題可以在復制一個指針，將兩個指針組合成一個圖形。美化指針：選擇組合圖形的下三角型，將其形狀填充設為無填充顏色，形狀輪廓設為無輪廓。插入一個圓形，調整大小，設置形狀樣式，放到指針中心位置，并與指針圖形組合。將做好的指針移動到儀表盤中心位置上，細致調整到位，否則指針轉動后位置會偏移影響效果。選中指針，在頁面布局菜單下選“旋轉”à“

6、其它旋轉選項”。在“設置形狀格式”窗口修改“旋轉”度數為225。指針制作完成，效果如下：4、 讓指針動起來在表格中輸入空氣指數、質量狀況、指針位置三個數值。在表格中輸入空氣質量表空氣指數：手工輸入的空氣污染指數。指針位置：表盤的刻度是0-450之間，而儀表盤轉動的角度是0-270度之間，空氣污染指數與儀表盤刻度之間存在比例關系，1個單位的空氣污染指數對應270/450單位儀表盤刻度，用公式表示就是1污染指數=0.6儀表盤刻度。E3單元格輸入公式“=E2*0.6”。質量狀況：根據空氣污染指數值得到的空氣質量狀況用Vlookup函數獲得，G2單元輸入公式“=VLOOKUP(E2,J2:K8,2)”

7、。開發工具選項下的“Visual Base”進入vba編輯器，如果沒有開發工具菜單可參考下面的地址添加：旋轉代碼用錄制宏生成的，選擇“錄制宏”開始錄制宏之后選中儀表盤中指針右鍵“大小和屬性”修改“旋轉”角度，角度值可以任意輸入（不要大于360度）。停止錄制宏，點擊“宏”按鈕進入宏編輯找到剛才錄制的宏進行“編輯”，拷貝宏代碼，關閉宏。啟動vba編輯器在vba編輯器中“通用”處選“Worksheet”，“聲明”處選“SelectionChange”。在上圖代碼粘貼宏代碼，并做如下修改：代碼的含義：If Target.Address = "$E$2" Then '判斷變化

8、的單元格是不是E2 ActiveSheet.Shapes.Range(Array("Group 8").Select '選擇指針Selection.ShapeRange.Rotation = Range("E3") - 135 '旋轉指針 '-135是指針起始位置修正參數 Range("E2").Select '選中E2單元格End If指針移到代碼編寫完成，在E2處輸入空氣指數指針就會轉動到相應刻度位置。5、 完善儀表盤功能（1）防止輸入錯誤，空氣污染指數是大于0的整數選擇E2單元，設置數據有效性。如下圖：（2）空氣污染指數爆表處理，當空氣污染指數大于450時儀表盤將無法顯示，這時將指針指向最大值450。修改指針位置E3單元的公式為“=IF(E2>=450,270,E2*0.6)”（3）在儀表盤上顯示空氣污染指數和質量狀況在儀表盤下面位置插入兩個文本框，較小的文本框顯示空氣污染指數，對應