用Excel VBA輕松編制學(xué)生座位表

本文格式為Word版，下載可任意編輯——用ExcelVBA輕松編制學(xué)生座位表用ExcelVBA輕松編制學(xué)生座位表

座位表的編制，是班主任在學(xué)年初必需要做的工作，傳統(tǒng)的做法是先在草稿紙上編好學(xué)生的座位之后，再依照草稿的格式在電腦中輸入學(xué)生姓名，最終制表。這種做法很麻煩，每編排一次，都需要重復(fù)同樣的工作。下面介紹使用Excel的VBA編制一個學(xué)生座位表編排系統(tǒng)，能使您一勞永逸?；舅悸?/p>

1．錄入本班的學(xué)生姓名，作為原始數(shù)據(jù)。

2．在Excel中直接利用鼠標(biāo)拖動單元格數(shù)據(jù)的功能，編好學(xué)生的位置，然后使用VBA自動制好座位表格。

3．將文件保存為模板。制作過程

下面以一個班40個學(xué)生為例制作一個座位表編排系統(tǒng)。1．界面設(shè)置

將學(xué)生分為4個組，每組10人，選定A1∶H5，并設(shè)置其外邊框作為座位表的范圍。在D7∶E9畫一個梯形，并在梯形上輸入“講臺〞二字。在框線外部的區(qū)域例如G7∶K14內(nèi)輸入本班學(xué)生的姓名。2．座位編排過程

根據(jù)學(xué)生的身高、視力等實際狀況，使用鼠標(biāo)拖動單元格數(shù)據(jù)的功能，將學(xué)生的姓名移動到A1∶H5的范圍內(nèi)，編好座位(所謂鼠標(biāo)拖動單元格數(shù)據(jù)的功能，實際就是將鼠標(biāo)指針移到要移動的單元格的邊框位置，當(dāng)鼠標(biāo)指針變成箭頭時，按住鼠標(biāo)左鍵不放，直接移到目的地后再釋放鼠標(biāo)左鍵)。3．VBA編程(1)代碼編制

點擊Excel的VisualBasic編輯器，進(jìn)入VBA開發(fā)環(huán)境，在工程資源管理器中雙擊Sheet1，然后在出現(xiàn)的代碼窗口輸入如下代碼：Subzwb()

Application.ScreenUpdating=False

'關(guān)閉執(zhí)行程序時發(fā)生的屏幕更新現(xiàn)象，加快運行速度。With[A1:B5]

.Borders(xlEdgeLeft).LineStyle=xlDouble.Borders(xlEdgeTop).LineStyle=xlDouble.Borders(xlEdgeBottom).LineStyle=xlDouble.Borders(xlEdgeRight).LineStyle=xlDouble.Borders(xlInsideVertical).LineStyle=xlDot.Borders(xlInsideHorizontal).Line-Style=xlContinuousEndWith

'設(shè)置[A1:B5]的邊框格式[A1∶B5].Copy

[C1].PasteSpecialPaste:=xlFormats[E1].PasteSpecialPaste:=xlFormats[g1].PasteSpecialPaste:=xlFormats

'將[A1∶B5]的邊框格式選擇性粘貼到C1、E1、G1

With[A1:H5]

.HorizontalAlignment=xlCenter.VerticalAlignment=xlCenter.Orientation=xlVertical.RowHeight=125.ColumnWidth=9

.Fon.FontStyle=\加粗\.Fon.Size=25EndWith

'設(shè)置A1∶H5的單元格格式Fori=1To5Fora=1To8

IfLen(Cells(i,a))=2Then

Cells(i,a)=Left(Cells(i,a),1)&&Space(1)&&Right(Cells(i,a),1)EndIfNextNext

'假使單元格內(nèi)有兩個字符，就在兩字符之間參與一個空格Application.ScreenUpdating=TrueEndSub

(2)按鈕控件的制作

在“視圖→工具欄→窗體〞上選取按鈕控件，將控件放在I3位置，最終在指定宏對話框中選擇Sheet1.zwb，點擊[確定]，再將按鈕控件命名為“OK〞。4．模板的制作

用鼠標(biāo)點擊“文件→另存為〞，在出現(xiàn)的另存為對話框的保存類型下拉列表框中選擇模板，接著輸入模板的名稱“zwb〞，最終點擊[保存]按鈕。使用方法

每次