1、利用Excel制作學生成績表涉及術語:單元格、工作表、工作薄、引用(相對/絕對)、自動填充、排序、條件格式等。涉及函數:AVERAGE、COUNTIF 、MAX、MIN、RANK、SUM任務一:統計最高分、最低分、總分、平均分、名次、三率等數據信息。1、啟動Excel，同時選中A1至L1單元格，按“格式”工具條上的“合并及居中”按鈕，將其合并成一個單元格，然后輸入統計表的標題“高一（1）班期末成績統計表”（參見圖1）。 img,553,353file:/C:/DOCUME1/ADMINI1/LOCALS1/Temp/ksohtml/wps_clip_image1.png2、根據統計表的格式，將

2、相關列標題及相關內容輸入到相對應的單元格中（參見圖1）。提示:其中學號的輸入可通過“填充柄”快速完成。3、選中K3單元格，輸入公式:=SUM(C3:J3)，用于計算第一位學生的總分。4、選中L3單元格，輸入公式:=RANK(K3,$K$3:$K$12)，計算出第一位學生總分成績的名次（此處，假定共有10位學生）。5、同時選中K3和L3單元格，將鼠標移至L3單元格右下角的成“細十字”狀時（通常稱這種狀態為“填充柄”狀態），按住左鍵向下拖拉至L12單元格，完成其他學生的總分及名次的統計處理工作。6、分別選中C16、C17單元格，輸入公式:=MAX(C3:C12)和=MIN(C3:C12)，用于統計

3、“語文”學科的最高分和最低分。7、選中C18單元格，輸入公式:=AVERAGE(C3:C12)，用于統計“語文”學科的平均分。注意:如果成績表中沒有輸入成績時，這個公式將顯示出一個錯誤的值“#DIV/0!”,這個錯誤代碼將在數據輸入后消失。8、選中C19單元格，輸入公式:=SUM(C3:C12)，用于統計“語文”學科的總分。9、選中C20單元格，輸入公式:=COUNTIF(C3:C12,">=80")/COUNTIF(C3:C12,">0")，用于統計“語文”學科的優秀率。同樣在C21內輸入相對應公式統計良好率。10、同時選中C16至C21單

4、元格，用“填充柄”將上述公式復制到D16至J21單元格中，完成其它學科及總分的最高分、最低分、平均分、總分、優秀率和良好率的統計工作。至此，一個基本的成績統計表制作完成，下面我們來進一步處理一下。任務二:根據自定條件以不同的顏色顯示分數。（在此例中，讓每科分數高于等于平均分的分數顯示藍色，低于的則顯示紅色）11、選中C3單元格，執行“格式、條件格式”命令，打開“條件格式”對話框（如圖2），在中間方框選中“大于或等于”，在右側的方框中輸入公式:=C18 (平均分所在單元格)，然后按“格式”按鈕，打開“單元格格式”對話框，將字體顏色設置為“藍色”。再按“添加”按鈕，仿照上面的操作，設置小于平均分的

5、分數字體顏色為“紅色”（參見圖2）。注意:經過這樣的設置后，當學生的“語文”成績大于或等于平均分時，顯示藍色，反之顯示紅色。img,539,240file:/C:/DOCUME1/ADMINI1/LOCALS1/Temp/ksohtml/wps_clip_image2.png12、再次選中C3單元格，按“格式”工具條上的“格式刷”按鈕，然后在C3至J12單元格區域上拖拉一遍，將上述條件格式復制到相對應的區域中，完成其他學科及總分的條件格式設置工作。把學生的成績填入到表格中試試看，效果不錯吧。任務二:將制作完成的統計表保存為模板。 如果你經常要統計學生的成績，我們將其保存為模板，方便隨時調用。

6、13、將工作表中的學生成績等內容刪除，執行“文件、保存（另存為）”命令，打開“另存為”對話框（如圖4），按“保存類型”右側的下拉按鈕，在隨后出現的下拉列表中，選“模板（*.xlt）”選項，然后給定一個名稱（如“成績統計”），按下保存按鈕。img,559,340file:/C:/DOCUME1/ADMINI1/LOCALS1/Temp/ksohtml/wps_clip_image3.jpg 14、以后需要統計成績時，啟動Excel，執行“文件、新建”命令，展開“新建工作簿”任務窗格（如圖5），點擊其中的“本機上的模板”選項，打開“模板”對話框，雙擊“成績統計”模板，即可新建一份新的成績統計表。i

7、mg,209,235file:/C:/DOCUME1/ADMINI1/LOCALS1/Temp/ksohtml/wps_clip_image4.jpg 15、將學生的成績填入相對應的單元格中，取名保存即可快速完成成績統計處理工作。在Excel中用宏實現自動生成簡單的成績條Excel具有強大的數據處理和打印輸出功能，并且易學易用，是廣大用戶喜歡使用的電子表格處理軟件。現在一些學校人員喜歡用Excel打印本學校的學生成績條，但在Excel中要將成績總表(手工地轉換為成績條則是一件比較煩瑣的事，下面是我編寫的一個Excel宏，運行這個宏就可將編輯好了的成績總表很方便地轉換為成績條打印輸出。在Exce

8、l中新建一個文件，將其命名為“成績條”，在工作表“sheet1”中輸入并編輯成績表,成績共30條，如圖：img,552,414file:/C:/DOCUME1/ADMINI1/LOCALS1/Temp/ksohtml/wps_clip_image5.png 然后，點擊“工具”菜單“宏”“宏”輸入宏名“編輯成績生成成績條”創建，輸入如下的宏的各行文本，輸入完成后保存該宏：Sub Macro1()    Worksheets("Sheet1").Activate    For hang = 1 To

9、 (30 - 1) * 3    Rows("1:1").Select    Selection.Copy    Cells(hang + 2, 1).Select    Selection.Insert Shift:=xlDown    Selection.EntireRow.Insert    hang = hang + 2 

10、;   Next hangEnd Sub最后執行宏，成績條如下：img,552,414file:/C:/DOCUME1/ADMINI1/LOCALS1/Temp/ksohtml/wps_clip_image6.png   用Excel的VBA來制作精美學生成績條。解決問題的思路因為每個學生只有一個學號，所以學號是惟一的，根據學號惟一性這一特點，使用VBA里的判斷語句，如果學號不同，就在兩者之間插入一個空白行，然后再在每個空白行粘貼復制的表頭，最后使用循環語句，自動制作每個學生成績記錄的表頭。解決問題的方法打開學生的成績表，我們需要另存

11、為另外一個表來制作成績條，以免影響成績表的原貌。在VBA的工程資源管理器中雙擊Sheet1，然后出現代碼窗口，在代碼窗口輸入如下代碼：Sub cjt()Application.ScreenUpdating = FalseSheets(1).A1.CurrentRegion.Copy Sheets(2).A1'將表一的成績表復制到表二a=(Application.WorksheetFunction.CountA(Sheets(2).b2:b2000)*2'sheets(1).b2:b2000的字符數的2倍Sheets(2).A1:R1.Borders(xlEdgeTop).LineStyle = xlDouble'sheets(2).a1:r1的下邊框是雙線For i = 2 To aIf Sheets(2).Cells(i, 3) <> Sheets(2).Cells(i + 1, 3) And (Sheets(2).Cells(i, 3) <> "") ThenSheets(2).Rows(i + 1).InsertEnd If'如果第三列的上下單元格的值不相等，則在它們之