用EXCEl在處理成績的時候,需要一些功能,可是EXCEL沒有內建,例如 把全年級的名單,分解成像名條一樣,一個縱欄一個班級 把全年級的名單,各班間自動插入分頁線,這樣印出來才會一班在一張 每五個人的資料畫一條線,彼此區隔 這樣的需求,其實手動去完成就可以了,不過如果每次都要花好幾分鐘去作,我倒不如寫個程式讓它自動執行吧! 下面這個檔案下載開啟之後,選擇開啟巨集,EXCEL就會自動會增加一個工具列,叫做[AChien-bar],而關閉這個檔案之後,這個工具列會隨之消失 http://sites.google.com/site/pancala/Home/AChien-bar.xls 為了作範例,所以我用 中文姓名產生器 做了一些假姓名來示範 紅色圈圈的部份就是[AChien-Bar],而這個工作表的內容就是全年級的生物成績 首先介紹分組的功能。 作盒狀圖或是作統計分析時,需要將全年級的名單,分解成各班一欄的樣子。 這個分組的功能是處理原有名單裡的第一欄和第二欄資料 上面的資料按下分組之後,就會產生一個新的資料表,像下面這樣。 如果是要作盒狀圖,就要把上面的成績放在第二欄 再來介紹分頁的功能,按下去之後,它會用A2儲存格以下的格子去作比較,格子裡的資料如果不一樣,就會加上一條分頁線 最後一個是畫線的功能,我要把701的這十位同學,每五位的底下畫一條線,就先圈選範圍,然後按下畫線。 最後就是這樣,我預設是畫紅線 裡頭主要的程式是 '說明:插入分頁線 Sub PageBreak() ActiveSheet.ResetAllPageBreaks totolrow = Range("A1").End(xlDown).Row x = Cells(2, 1) For i = 2 To totolrow If Cells(i, 1) <> x Then ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1) x = Cells(i + 1, 1) End If Next End Sub '說明:分組轉換 Sub TransferS