此案例要求用Excel VBA 制作學生成績管理系統,其中,系統有登入窗體界面、浏覽查詢資料、成績輸入以及統計總分、平均分等功能。
(1) 将Sheet1、Sheet2、Sheet3工作表分别改名為“浏覽”、“主界面”和“使用者表”。将工作簿檔案另存為“學生成績管理.xlsm”,儲存類型要選擇“Excel啟用宏的工作簿(*.xlsm)”
(2) 選擇菜單“開發工具”|“Visual Basic”,進入VBA編輯視窗。右擊工程資料總管中的“ThisWorkbook”,在彈出的快捷菜單中選擇“檢視代碼”。輸入以下代碼,如圖2.87所示。
Private SubWorkbook_Open()
Application.Visible= False
系統登入.Show
Application.Caption= "我的程式"
Sheets("主界面").ScrollArea = "$A$1"
End Sub
(3) 在VBA編輯視窗中,選擇菜單“插入”|“使用者窗體”,修改窗體的Name(名稱)和Caption屬性都為“系統登入”。按照如圖2.88所示窗體設計圖,利用工具箱加入各個控件。其中“登入資訊”為架構Frame1,修改其Caption屬性為“登入資訊”;操作員使用者(登入資訊下面一行)選擇使用複合框ComboBox1;密碼(操作員使用者下面一行)使用文字框TextBox1輸入,為實作輸入的密碼顯示為“*”,要設定文字框的PasswordChar屬性為“*”。
(2) “确定”使用按鈕CommandButton1,“退出”使用按鈕CommandButton2,分别修改其Caption屬性為“确定”和“退出”。
操作視訊: