第十一章 教學計劃輔助制訂模板 VBA電子教案 Visual Basic for Applications

高等學校教學單位，在增加新專業(yè)或原有教學方案不適應形勢開展需要時，要制訂或重新修改教學方案。在此過程中，根本數(shù)據(jù)〔如某門課的周學時、開課學期等〕每做一次調整，都要重新計算各門課的講授學時、實驗學時和總學時，同時還要求小計、總計。用EXCEL輔助處理，可以使我們從大量繁雜重復的計算、抄寫工作中解脫出來，使工作變得輕松、高效，甚至變成一種享受。從整體上說，Excel教學方案制訂輔助模板是一個帶有VBA程序的工作簿。在工作簿中我們建立五個工作表：“比例結構〞、“開課學期〞和三個“方案表〞。第十一章教學方案輔助制訂模板1

第十一章教學方案輔助制訂模板

11.1“方案表〞工作表的設計

11.2“比例結構〞工作表的設計

11.3“開課學期〞工作表的設計

2

11.1“方案表〞工作表的設計

11.1.1結構與格式設計

11.1.2代碼設計

11.1.3應用

311.1.1結構與格式設計“方案表1〞、“方案表2〞、“方案表3〞分別為公共課、專業(yè)課和方向必修課的課程設置與教學時間方案表。它們的結構和格式根本相同。以“方案表1〞為例說明制作要點。定義紙型為B5、縱向，上下左右頁邊距分別為1、1、0.9、0.9。設置如圖１所示的表格樣式。標題為“宋體〞、12號字、加粗，其余局部為“宋體〞10號字。單元格格式設置：數(shù)字作為文本處理，水平居中，垂直居中，文本控制設置為縮小字體填充。列寬度參照圖１按實際情況手動調整。注意使Q、R兩列在不同頁內。行高度可設置為“最適宜的行高〞，也可設置為固定行高。根據(jù)整個頁面布局而定。翻開“控件工具箱〞工具欄，在工作表的右側添加一個命令按鈕，命令按鈕的caption屬性設置為“數(shù)據(jù)統(tǒng)計〞。“課程類別〞列的內容根據(jù)實際情況設置，每一類行數(shù)可多可少，可任意增刪，但最后一行的“課程編號〞應為“小計〞?！胺桨副?〞制作完成后，通過復制、修改課程類別和局部文字得到“方案表2〞和“方案表3〞。其結構與“方案表１〞結構根本相同。4圖1511.1.2代碼設計“方案表1〞、“方案表2〞、“方案表3〞工作表都定義了一個命令按鈕“數(shù)據(jù)統(tǒng)計〞。用來根據(jù)周學時和授課周數(shù)求每門課的“共計〞、“講授〞、“實驗〞學時和同一類課的周學時小計。三個工作表上命令按鈕的Click事件代碼都是一樣的：PrivateSubCommandButton1_Click()CallcalcEndSub它調用通用模塊〔模塊1〕中的過程calc對當前工作表根據(jù)周學時和授課周數(shù)求每門課的“共計〞、“講授〞、“實驗〞學時和同一類課的周學時小計。通用模塊的建立方法是：在當前工程VBAProject中，選“插入〞菜單的“模塊〞項，插入一個通用模塊，用默認名“模塊1〞。6

calc是在模塊1中定義的過程，其中有具體的代碼。在calc過程中，定義了一個數(shù)組zxs(8)，用來存放每一類課1至8學期周學時小計。從當前工作表第7行開始循環(huán)直至“課程編號〞為空。如果未遇到“小計〞行，那么每行1到8學期的周學時和對應的授課周數(shù)〔在第6行〕相乘得到課程學時，填寫到該課程的“共計〞、“講授〞、“實驗〞單元格，累加到相應的下標變量，同時累加“共計〞、“講授〞、“實驗〞學時以及“學分〞和課程門數(shù)。課程學時分為講授、實驗和總共三列。如果周學時僅為一個數(shù)，那么為講授學時；如果周學時中含有“+〞號，那么“+〞號左邊的數(shù)值為講授學時，右邊的數(shù)值為實驗學時；如果周學時中有括號，那么括號里面的數(shù)值不計入課程學時。如果遇到“小計〞行，那么分別填寫各學期的周學時小計，“共計〞、“講授〞、“實驗〞學時小計，學分小計和課程門數(shù)小計.7

11.1.3應用

“方案表1〞、“方案表2〞和“方案表3〞的結構和代碼設計完成之后，就可以輸入或修改各門課的編號、名稱、學分、各學期的周學時以及考試考查所在學期這樣一些根本信息。8圖２為公共課方案表輸入根本信息后的情形。圖29在“方案表1〞中單擊“數(shù)據(jù)統(tǒng)計〞命令按鈕，得到結果如圖３所示。圖310“方案表1〞的打印結果如圖4所示：11同樣，我們在“方案表2〞中輸入專業(yè)課的有關根本信息如圖５所示。圖512在“方案表2〞中單擊“數(shù)據(jù)統(tǒng)計〞命令按鈕，得到結果如圖６所示。圖613在“方案表3〞中輸入方向必修課的根本信息，單擊“數(shù)據(jù)統(tǒng)計〞按鈕得到統(tǒng)計結果，打印出來的表格如以下圖所示。1411.2“比例結構〞工作表的設計11.2.1結構與格式設計11.2.2代碼設計1511.2.1結構與格式設計“比例結構〞工作表包含各類課程門數(shù)、學時數(shù)、學時比例、學分數(shù)、學分比例、各學期課程門數(shù)和周學時等信息。工作表設計成如圖９所示的樣式。定義紙型為B5、縱向，上下左右頁邊距分別為2、1、1.4、1.4。1617標題為“宋體〞14號字、加粗，其余局部為“宋體〞12號字。學時比例、學分比例列的數(shù)值設置為2位小數(shù)。數(shù)值單元格對齊方式為水平靠右、垂直居中。列寬度參照圖９按實際情況調整。注意使H、I兩列在不同頁內。在B10單元格定義公式“=SUM(B4:B9)〞，然后用填充柄向右填充到G10單元格，并刪除F10單元格的公式。在F4單元格定義公式“=C4*100/$C$10〞，然后用填充柄向下填充到F9單元格。在H4單元格定義公式“=G4*100/$G$10〞，然后用填充柄向下填充到H9單元格。在C16單元格定義公式“=D16+E16〞，然后用填充柄向下填充到C23單元格。在F16單元格定義公式“=G16+H16〞，然后用填充柄向下填充到F23單元格。翻開“控件工具箱〞工具欄，在工作表的右側添加一個命令按鈕，命令按鈕的caption屬性設置為“數(shù)據(jù)統(tǒng)計〞。1811.2.2代碼設計“比例結構〞工作表定義了一個命令按鈕“數(shù)據(jù)統(tǒng)計〞。用來根據(jù)三個“方案表〞統(tǒng)計出有關結果并填入表格。對命令按鈕的Click事件編寫代碼。19程序分兩局部：第一局部的功能是在每個方案表中，從第7行開始查找“課程編號〞中的“小計〞。如果是“小計〞行，那么提取小計中的“共計〞、“講授〞、“實驗〞學時、學分和課程門數(shù)，填入“比例結構〞工作表特定的單元格。第二局部，按學期在每個工作表中累加各學期考試、考查課程數(shù)和周學時，并填入“比例結構〞工作表特定的單元格。2011.3“開課學期〞工作表的設計

11.3.1結構與格式設計

11.3.2代碼設計

2111.3.1結構與格式設計

“開課學期〞工作表是將三個方案表的開設課程按學期重新排列，同時列出學分、總學時、講授學時、實驗學時、周學時和考核方式等信息。工作表的樣式如下頁圖所示。2223定義紙型為B5、縱向，上下左右頁邊距分別為1、1、0.9、0.9。標題為“宋體〞11號字、加粗，其余局部為“宋體〞9號字。單元格格式設置：數(shù)字作為文本處理，水平居中，垂直居中，文本控制設置為自動換行。列寬度參照圖１０按實際情況調整。注意使I、J兩列在不同頁內。行高度可設置為“最適宜的行高〞。設置A2:I130區(qū)域表格線〔表格的行數(shù)留有充分余地〕。在工作表的右側添加一個命令按鈕，命令按鈕的caption屬性設置為“刷新數(shù)據(jù)〞。

2411.3.2代碼設計

“開課學期〞工作表定義的命令按鈕“刷新數(shù)據(jù)〞。用來從三個“方案表〞按開課學期提取課程及其相關信息填入表格。對命令按鈕的Click事件編寫代25該程序段包括兩局部：

第一局部：生成按學期排列的教學方案表。首先去除3-100行原有的內容，然后按學期從三個方案表中提取每門課的課程