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

第十一章教學(xué)方案輔助制訂模板

11.1“方案表〞工作表的設(shè)計(jì)

11.2“比例結(jié)構(gòu)〞工作表的設(shè)計(jì)

11.3“開課學(xué)期〞工作表的設(shè)計(jì)

2

11.1“方案表〞工作表的設(shè)計(jì)

11.1.1結(jié)構(gòu)與格式設(shè)計(jì)

11.1.2代碼設(shè)計(jì)

11.1.3應(yīng)用

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

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

11.1.3應(yīng)用

“方案表1〞、“方案表2〞和“方案表3〞的結(jié)構(gòu)和代碼設(shè)計(jì)完成之后，就可以輸入或修改各門課的編號、名稱、學(xué)分、各學(xué)期的周學(xué)時(shí)以及考試考查所在學(xué)期這樣一些根本信息。8圖２為公共課方案表輸入根本信息后的情形。圖29在“方案表1〞中單擊“數(shù)據(jù)統(tǒng)計(jì)〞命令按鈕，得到結(jié)果如圖３所示。圖310“方案表1〞的打印結(jié)果如圖4所示：11同樣，我們在“方案表2〞中輸入專業(yè)課的有關(guān)根本信息如圖５所示。圖512在“方案表2〞中單擊“數(shù)據(jù)統(tǒng)計(jì)〞命令按鈕，得到結(jié)果如圖６所示。圖613在“方案表3〞中輸入方向必修課的根本信息，單擊“數(shù)據(jù)統(tǒng)計(jì)〞按鈕得到統(tǒng)計(jì)結(jié)果，打印出來的表格如以下圖所示。1411.2“比例結(jié)構(gòu)〞工作表的設(shè)計(jì)11.2.1結(jié)構(gòu)與格式設(shè)計(jì)11.2.2代碼設(shè)計(jì)1511.2.1結(jié)構(gòu)與格式設(shè)計(jì)“比例結(jié)構(gòu)〞工作表包含各類課程門數(shù)、學(xué)時(shí)數(shù)、學(xué)時(shí)比例、學(xué)分?jǐn)?shù)、學(xué)分比例、各學(xué)期課程門數(shù)和周學(xué)時(shí)等信息。工作表設(shè)計(jì)成如圖９所示的樣式。定義紙型為B5、縱向，上下左右頁邊距分別為2、1、1.4、1.4。1617標(biāo)題為“宋體〞14號字、加粗，其余局部為“宋體〞12號字。學(xué)時(shí)比例、學(xué)分比例列的數(shù)值設(shè)置為2位小數(shù)。數(shù)值單元格對齊方式為水平靠右、垂直居中。列寬度參照圖９按實(shí)際情況調(diào)整。注意使H、I兩列在不同頁內(nè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單元格。翻開“控件工具箱〞工具欄，在工作表的右側(cè)添加一個(gè)命令按鈕，命令按鈕的caption屬性設(shè)置為“數(shù)據(jù)統(tǒng)計(jì)〞。1811.2.2代碼設(shè)計(jì)“比例結(jié)構(gòu)〞工作表定義了一個(gè)命令按鈕“數(shù)據(jù)統(tǒng)計(jì)〞。用來根據(jù)三個(gè)“方案表〞統(tǒng)計(jì)出有關(guān)結(jié)果并填入表格。對命令按鈕的Click事件編寫代碼。19程序分兩局部：第一局部的功能是在每個(gè)方案表中，從第7行開始查找“課程編號〞中的“小計(jì)〞。如果是“小計(jì)〞行，那么提取小計(jì)中的“共計(jì)〞、“講授〞、“實(shí)驗(yàn)〞學(xué)時(shí)、學(xué)分和課程門數(shù)，填入“比例結(jié)構(gòu)〞工作表特定的單元格。第二局部，按學(xué)期在每個(gè)工作表中累加各學(xué)期考試、考查課程數(shù)和周學(xué)時(shí)，并填入“比例結(jié)構(gòu)〞工作表特定的單元格。2011.3“開課學(xué)期〞工作表的設(shè)計(jì)

11.3.1結(jié)構(gòu)與格式設(shè)計(jì)

11.3.2代碼設(shè)計(jì)

2111.3.1結(jié)構(gòu)與格式設(shè)計(jì)

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

2411.3.2代碼設(shè)計(jì)

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

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