教學培訓課件第九章組合機床的電氣控制

第九章排課摸版

9.1功能特點

9.2“信息”工作表9.3“總表”工作表9.4“教師”工作表

9.5“教室”工作表9.6“班級”工作表9.7“空節(jié)”提示9.8使用方法2021/7/91第九章排課摸版

9.5“教室”工作表2021/7/功能特點用計算機排課表，一方面可以減輕教學管理人員的工作負擔，同時也可以避免沖突，減少差錯，提高效率。特別是多教室統(tǒng)一排課，同一教師上多門課，班級、課程較多，以及需要串課的情況，用計算機排課就更顯示出優(yōu)越性。本排課模板的基本指導思想是利用已有的、大家都熟悉的辦公軟件，做出一個實用的計算機輔助排課工具，而不是做一個龐大的、完全自動的專用排課軟件。設計的目標是實用。本排課模板正是基于這樣一種思想設計的2021/7/92功能特點用計算機排課表，一方面可以減輕教學管理人員的工作負擔主要特點1．直接利用Excel環(huán)境，使用Excel的所有功能。2．直接對課程總表的內容進行人工輸入、修改、編排，系統(tǒng)此時作用是自動進行教師、教室沖突檢查和提醒。3．總表排好后，接下來每位教師的課表、每個教室的課表、每個班級的課表由系統(tǒng)自動生成，課表的修飾、復制、打印也由計算機來做。4．最后，當某位教師、某個班級或教室需要串課時，可利用系統(tǒng)的空閑課節(jié)自動標識、在線提示功既準確，又迅速。結束返回2021/7/93主要特點1．直接利用Excel環(huán)境，使用Excel的所有功9.2“信息”工作表整個排課模板是一個工作簿，工作簿由如下工作表組成：信息、教師、教室、班級、總表1、總表2、總表3、……?！靶畔ⅰ惫ぷ鞅淼腁列將所有任課教師名列于此處，B列列出所有教室名稱，便于查看和選擇，C2單元格是實際使用的總表數?！靶畔ⅰ惫ぷ鞅淼腁、B、C三列如圖9.1所示。返回2021/7/949.2“信息”工作表整個排課模板是一個工作簿，9.3“總表”工作表

模板中預定義了“總表1”、“2”、……、“總表10”十個總表工作表（如果需要可增刪）每個總表可排四個班級的課表，各個總表的結構和格式完全一樣，因此我們只需設計一個，其余的通過復制產生。返回2021/7/959.3“總表”工作表模板中預定義了“總表1”、“2”、……

9.4.1工作表設計

9.4.2“刷新課表”代碼

9.4.3“模塊1”定義

9.4.4“清除顏色”命令按鈕代碼9.4.5“復制副本”命令按鈕代碼章目錄2021/7/969.4.1工作表設計章目錄2021/7/969.4.1工作表設計

用“插入”菜單的“工作表”項在工作簿中插入一個工作表，重命名為“教師”。這個工作表用來生成每位教師的課程表。定義紙型、設置頁邊距、設置表格樣式、設置單元格格式、設置列寬度、設置行高度。得到如圖９.２所示的效果。打開“控件工具箱”工具欄，在教師課表的右側添加一個標簽、一個組合框和三個命令按鈕，標簽的名稱設置為“教師”，命令按鈕的caption屬性分別設置為“刷新課表”、“清除顏色”和“復制副本”，組合框的內容在工作簿Workbook的Open事件中通過代碼添加。９.22021/7/979.4.1工作表設計

用“插入”菜單的“工作表”項在工作簿9.4.2“刷新課表”代碼單擊“教師”工作表中“刷新課表”按鈕，產生Click事件，編寫代碼。該過程首先從組合框中取出當前選擇的教師名，送到教師課表的左上角作為提示。然后，將教師課表原有的內容清除。接下來，在所指定的總表中，搜索指定的教師名，并把開課班級、課程名稱、教室按星期和節(jié)次填入教師課表特定的單元格。節(jié)目錄返回2021/7/989.4.2“刷新課表”代碼單擊“教師”工作表中“刷新課表”9.4.3“模塊1”定義在當前工程VBAProject中，選擇“插入”菜單的“模塊”項，插入一個通用模塊，用默認名“模塊1”。在“模塊1”中，首先用下面語句聲明兩個全局變量：PublicmsgAsString'可利用課節(jié)提示PubliczbsAsString'實際使用的總表數然后，定義四個過程：fc——設置空閑單元格為藍色背景并將提示信息送全局變量msg。sc——設置“教師”工作表“實驗課”單元格為綠色背景。cc——清除單元格藍色背景。f_last——從右邊開始在字符串s1中查找單個字符s2第二次出現的位置。節(jié)目錄返回

2021/7/999.4.3“模塊1”定義在當前工程VBAProject中，選1．過程fcfc的功能是將指定教師、教室、班級課表同時為“空節(jié)”單元格置成藍色背景，同時將提示信息送全局變量msg，供另一個過程引用。首先置msg初值，然后分別取出“教師”、“教室”、“班級”三個工作表對應單元格的值，如果三個工作表對應的單元格均為空，則置藍色背景，同時添加相應的提示信息。如果三個工作表對應的單元格不全為空，則置白色背景。這樣，“空節(jié)”一目了然。編寫代碼。2．過程scsc的作用是設置“教師”工作表“實驗課”單元格的背景為綠色，使實驗課與理論課有直觀的區(qū)別。它對教師課表的格單元格內容進行判斷，如果含有“實驗”字樣,則置淺綠色背景，否則置白色背景。編碼3．過程cccc用來清除單元格藍色背景顏色。它對教師課程表的內容進行檢查，如果教師課表單元格為空白，則設置“教師”、“教室”、“班級”三個工作表對應單元格為白色背景。編寫代碼。4．過程f_lastf_last是一個自定義函數，功能是從右邊開始在字符串s1中查找單個字符s2第二次出現的位置，如s1中沒有s2，則返回0。編寫編碼。2021/7/9101．過程fc2021/7/9109.4.4“清除顏色”命令按鈕代碼

在“清除顏色”命令按鈕CommandButton1的Click事件中，直接調用前面定義的cc過程，清除單元格藍色背景顏色,目的是防止打印出帶有深色背景單元格的課表。節(jié)目錄返回2021/7/9119.4.4“清除顏色”命令按鈕代碼在“清除顏色”命令按鈕9.4.5“復制副本”命令按鈕代碼為了提高紙張利用率，一頁紙可以打印一式兩份教師課表，單擊“復制副本”命令按鈕，通過下面代碼即可完成此功能。PrivateSubCommandButton3_Click()Range("A1:F11").Select'選中區(qū)域Selection.Copy'復制Range("A14").Select'選擇單元格ActiveSheet.Paste'粘貼Application.CutCopyMode=False'取消剪切板內容Range("G1").Select'定位光標EndSub在建立了前面三個課程總表的前提下，選擇“教師”工作表，在組合框中選擇“教師P”，然后單擊“刷新課表”按鈕，系統(tǒng)便自動生成“教師P”的課程表。單擊“清除顏色”按鈕，將清除課表中藍色背景。單擊“復制副本”按鈕，系統(tǒng)將復制一份同樣的課表。返回節(jié)目錄2021/7/9129.4.5“復制副本”命令按鈕代碼為了提高紙張利用率，一9.5.1工作表設計

9.5.2“刷新課程”按鈕代碼章目錄2021/7/913章目錄2021/7/913工作9.5.1表設計“教室”工作表的主要功能是根據各個“總表”生成指定教室的課程表。工作表的控件和格式設計與“教師”工作表基本相同，不再贅述組合框的內容在工作簿Workbook的Open事件中通過代碼添加。編寫相關代碼。節(jié)目錄返回2021/7/914工作9.5.1表設計節(jié)目錄返回2021/7/9149.5.2“刷新課程”按鈕代碼單擊“教室”工作表中“刷新課表”按鈕，產生Click事件，編寫相關代碼。該過程首先從組合框中取出當前選擇的教室名，送到教室課表的左上角作為提示。然后，將教室課表原有的內容清除。接下來，在所指定的總表中，搜索指定的教室名，并把開課班級、課程名稱、教師按星期和節(jié)次填入教室課表特定的單元格?！扒宄伾薄ⅰ皬椭聘北尽泵畎粹o的代碼與“教師”工作表相同。在建立了前面的三個課程總表的前提下，選擇“教室”工作表，在組合框中選擇“5201”，然后單擊“刷新課表”按鈕，系統(tǒng)便自動生成“5201”教室的課程表。單擊“清除顏色”按鈕，將清除課表中藍色背景。單擊“復制副本”按鈕，系統(tǒng)將復制一份同樣的課表。返回節(jié)目錄2021/7/9159.5.2“刷新課程”按鈕代碼單擊“教室”工作表中“刷新課

9.6.1工作表設計9.6.2“刷新課程”按鈕代碼章目路2021/7/916

章目路2021/7/9169.6.1工作表設計“班級”工作表的主要功能是根據各個“總表”生成指定班級的課程表。工作表的控件和格式設計與“教師”工作表基本相同，不再贅述組合框的內容在工作簿Workbook的Open事件中通過代碼添加。編寫相關代碼。節(jié)目錄返回2021/7/9179.6.1工作表設計“班級”工作表的主要功能是根據各個“總9.6.2“刷新課程”按鈕代碼單擊“班級”工作表中“刷新課表”按鈕，產生Click事件，編寫相關代碼。該過程首先從組合框中取出當前選擇的班級名，送到班級課表的左上角作為提示。然后，將班級課表原有的內容清除。接下來，在所指定的總表中，搜索指定的班級名，并把課程名稱、教室、教師按星期和節(jié)次填入教室課表特定的單元格。最后，用自定義函數fc設置空閑單元格（即該教室可利用的課節(jié)）顏色，用自定義函數sc設置“實驗課”單元格顏色，以做標識，并刪除以前建立的教室課表副本?！扒宄伾薄ⅰ皬椭聘北尽泵畎粹o的代碼與“教師”工作表相同。在建立了前面的三個課程總表的前提下，選擇“班級”工作表，在組合框中選擇“九七本”，然后單擊“刷新課表”按鈕，系統(tǒng)便自動生成“九七本”班級的課程表。單擊“清除顏色”按鈕，將清除課表中藍色背景。單擊“復制副本”按鈕，系統(tǒng)將復制一份同樣的課表。返回

節(jié)目錄2021/7/9189.6.2“刷新課程”按鈕代碼單擊“班級”工作表中“刷新課9.7“空節(jié)”提示如前所述，在“模塊1”中，我們定義了過程fc，它除了將指定教師、教室、班級課表中同時為“空節(jié)”的單元格置成藍色背景顏色外，還將提示信息送全局變量msg。為了能夠在當前工作簿的任意一個工作表上雙擊鼠標，彈出一個對話框，提示可用課節(jié)，我們對Workbook的SheetBeforeDoubleClick事件編寫如下代碼：PrivateSubWorkbook_SheetBeforeDoubleClick()MsgBoxmsg,vbInformation,"提示"EndSub這樣，輸入或修課程表的任意時刻，雙擊工作表的任意單元格，就可以彈出提示空節(jié)的對話框。返回2021/7/9199.7“空節(jié)”提示如前所述，在“模塊1”中，我們定義了過程9.8使用方法1．雙擊"排課模板.XLT"文件。如果出現對話框，單擊"啟用宏"按鈕。2．首次使用，先在“信息”工作表中設置“教師”、“教室”和“總表數”總表數”按實際使用數填寫。保存為工作簿，退出，再重新編輯新的工作簿。3．將各“總表”中標記為綠色的內容選中、刪除。然后，在“總表”中入排課信息。注意①教師、教室名應與"信息"中設置的一致；②如果一個單元格有多項內容（多門課、多教室、多教師），中間要輸入硬回車（用Alt+回車鍵）；③所有單元格的內容盡量壓縮（括號、星號等用半角符號）；④在任意工作表上雙擊，可顯示“空