Excel制作一個成績管理系統，本系統将是一個全功能性的學生成績管理應用，可以根據不同班、考場、學号等關鍵字段進行學生成績的添加、修改、删除、統計、打印等功能。

同時将在完整地應用這後有些成績排序、比較等圖示化輸出結果。

給不同的教學目标起到一定的指導作用。

考試成績管理，如下所示：

可以實現成績錄入，批量錄入，修改，删除，打印，查詢等基本功能。

效率很高，使用便捷，本示例通過操作驗證，數據準确可靠，運行速度快。

實際上Excel對于成績管理是最理想的一個應用，不僅可以有效地對于學生的信息進行有條理地管理，也可以方便地統計出學生的學習成績狀态。

課程管理

課程管理是一前提性操作，首先要對學生的課程進行一個編輯，以達到後續的成績添加進行選擇。

如下圖所示，課程管理也進行了一個系統化編輯，操作十分簡單。

學生信息管理

同理，學生信息是一個很重要的管理方面。

要準确完整地把學生信息收集完整，以适配相應的成績。

學生信息管理可能比較麻煩，于是，此方面将以導入的方式進行操作，以方便已經有學生信息的操作，更便捷地初始化學生信息。

導入功能在下次更新完善操作。

添加信息

添加信息使用了一個統計的表單來進行，無論是成績管理，還是學生信息管理或課程管理。

至于為什麼統一成一個表單來制作，那就是為了更加精簡程序代碼，這個處理過程還是十分有用的。

經過一個選擇語句，創建不同的輸入表單，很有意思。

實際操作當中，并不會利用上面的成績錄入方法，似乎并不理想，沒人願意一個一個錄入學生信息，然後單擊添加一次。

所以，下面的批量錄入就更加有用了。

可以根據班級和課程提取全部學生信息，然後輸入成績。

這樣，每一個考試隻需要在這裡一次性輸入即可。

以前也做過類似成績管理應用，使用效果很好。本次作為升級版本，創新了一些編程思想，邏輯管理又有了新的理解，所以對于一個優秀的管理應用，是十分必要的。

Private Sub 遍曆學生信息() '取出 數組 On Error Resume Next ClearLabels Dim xC As String xC = VBA.Trim(Me.ComboBox3.Value) If VBA.Len(xC) = 0 Then Exit Sub Dim s As Worksheet Set s = GetSheet(xSheetStudent) Dim xArr, xi As Long Dim cArr, ci As Long Dim ir As Long, ic As Long xArr = s.Range("A1").CurrentRegion ir = UBound(xArr, 1) ic = 7 ci = 1 ReDim cArr(ci To ci) For xi = LBound(xArr, 1) To ir If xArr(xi, ic) = xC Then ReDim Preserve cArr(1 To ci) cArr(ci) = xArr(xi, 2) & VBA.vbCrLf & xArr(xi, 3) ci = ci 1 End If Next xi If VBA.Len(cArr(LBound(cArr))) = 0 Then Exit Sub AddFrameLabels cArr '添加學生學号 Erase cArr Erase xArr Set s = Nothing End Sub

成績管理将作為一個重點項目來進行，所以，在接下來的文章裡，會努力體現出其應用的優點。

歡迎關注、收藏

---END---

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!