柱形圖自動排序巧實現

馬震安

利用宏錄制實現柱形圖的自動排序

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

接下來，雙擊VBA窗口中的Sheet1（因為數據在此工作表中），在右邊窗口的“通用”處選擇“Worksheet”，在右側選擇“Change”事件，在代碼里面加入“Call排序”，即呼叫錄制的宏名稱就可以了（圖2）。

選中建立柱形圖所需要的數據，創建柱形圖，這樣無論數據如何更改，不但數據能自動排序，圖表也會自動排序。最后，將文檔另存為啟用宏的工作簿就可以了（圖3）。

利用排列圖實現柱形圖的自動排序

首先選中建立圖表所需要的數據，切換到“插入”選項卡，依次點擊“插入統計圖表→直方圖→排列圖”，這樣就插入了一個降序的柱形圖。然后右擊排列圖線條，選擇“設置排列圖線條格式”，將線條設置為“無線條”;再右擊柱形，選擇“設置數據系列格式”，將間隙寬度調整成所需要的間隔;刪除不需要的數值;更改好圖表標題就可以了。這種方法只對圖表排序（只有降序一種方式），不對數據進行排序，更改數據時，圖表會自動進行更改（圖4）。