Excel制作空氣指數(shù)儀表盤

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

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

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

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

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

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

7、。開發(fā)工具選項(xiàng)下的“Visual Base”進(jìn)入vba編輯器，如果沒有開發(fā)工具菜單可參考下面的地址添加：旋轉(zhuǎn)代碼用錄制宏生成的，選擇“錄制宏”開始錄制宏之后選中儀表盤中指針右鍵“大小和屬性”修改“旋轉(zhuǎn)”角度，角度值可以任意輸入（不要大于360度）。停止錄制宏，點(diǎn)擊“宏”按鈕進(jìn)入宏編輯找到剛才錄制的宏進(jìn)行“編輯”，拷貝宏代碼，關(guān)閉宏。啟動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 '旋轉(zhuǎn)指針 '-135是指針起始位置修正參數(shù) Range("E2").Select '選中E2單元格End If指針移到代碼編寫完成，在E2處輸入空氣指數(shù)指針就會轉(zhuǎn)動到相應(yīng)刻度位置。5、 完善儀表盤功能（1）防止輸入錯誤，空氣污染指數(shù)是大于0的整數(shù)選擇E2單元，設(shè)置數(shù)據(jù)有效性。如下圖：（2）空氣污染指數(shù)爆表處理，當(dāng)空氣污染指數(shù)大于450時儀表盤將無法顯示，這時將指針指向最大值450。修改指針位置E3單元的公式為“=IF(E2>=450,270,E2*0.6)”（3）在儀表盤上顯示空氣污染指數(shù)和質(zhì)量狀況在儀表盤下面位置插入兩個文本框，較小的文本框顯示空氣污染指數(shù)，對應(yīng)