馬震安

利用宏錄制實(shí)現(xiàn)柱形圖的自動(dòng)排序

首先，打開Excel工作表并切換到“開發(fā)工具”選項(xiàng)卡（如果沒(méi)有此選項(xiàng)卡，可點(diǎn)擊“文件→選項(xiàng)”，在彈出窗口點(diǎn)擊“自定義功能區(qū)”，勾選窗口右側(cè)的“開發(fā)工具”就可以了），點(diǎn)擊“宏錄制”，在彈出的窗口中輸入宏的名稱（如“排序”），點(diǎn)擊“確定”后對(duì)所需數(shù)據(jù)進(jìn)行排序，操作完成后停止錄制;然后，點(diǎn)擊“VisualBasic→模塊1”，就可以看到電腦自動(dòng)生成的VBA代碼，這段代碼不用去管它（圖1）。

接下來(lái)，雙擊VBA窗口中的Sheet1（因?yàn)閿?shù)據(jù)在此工作表中），在右邊窗口的“通用”處選擇“Worksheet”，在右側(cè)選擇“Change”事件，在代碼里面加入“Call排序”，即呼叫錄制的宏名稱就可以了（圖2）。

選中建立柱形圖所需要的數(shù)據(jù)，創(chuàng)建柱形圖，這樣無(wú)論數(shù)據(jù)如何更改，不但數(shù)據(jù)能自動(dòng)排序，圖表也會(huì)自動(dòng)排序。最后，將文檔另存為啟用宏的工作簿就可以了（圖3）。

利用排列圖實(shí)現(xiàn)柱形圖的自動(dòng)排序

首先選中建立圖表所需要的數(shù)據(jù)，切換到“插入”選項(xiàng)卡，依次點(diǎn)擊“插入統(tǒng)計(jì)圖表→直方圖→排列圖”，這樣就插入了一個(gè)降序的柱形圖。然后右擊排列圖線條，選擇“設(shè)置排列圖線條格式”，將線條設(shè)置為“無(wú)線條”;再右擊柱形，選擇“設(shè)置數(shù)據(jù)系列格式”，將間隙寬度調(diào)整成所需要的間隔;刪除不需要的數(shù)值;更改好圖表標(biāo)題就可以了。這種方法只對(duì)圖表排序（只有降序一種方式），不對(duì)數(shù)據(jù)進(jìn)行排序，更改數(shù)據(jù)時(shí)，圖表會(huì)自動(dòng)進(jìn)行更改（圖4）。