資源描述：
《基于excel-vba的部門管理系統(tǒng).doc》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、.基于ExcelVBA的部門管理系統(tǒng)一、實(shí)驗(yàn)?zāi)康模和ㄟ^本項(xiàng)目實(shí)踐，掌握數(shù)據(jù)制作的添加、刪除、更新和查詢基本方法的應(yīng)用。二、實(shí)驗(yàn)意義：以Excel作為數(shù)據(jù)庫(kù)，制作一個(gè)部門管理模塊，通過界面操作，進(jìn)行方便地部門管理。對(duì)以后的相關(guān)數(shù)據(jù)管理應(yīng)用具有一定的參考性和實(shí)用性。三、模塊開發(fā)技術(shù)１、列表框ListIndex（索引）方法及屬性ColumnCount(列數(shù))，RowSource(數(shù)據(jù)源)的運(yùn)用２、數(shù)據(jù)精確查詢應(yīng)用；３、ActiveWorkbook.Save(工作表保存方法)的應(yīng)用；４、Rows.Delete(刪除記錄方法)應(yīng)
2、用；５、窗體加載事件的應(yīng)用。四、實(shí)驗(yàn)步驟：請(qǐng)先完成程序填空１、打開DepartmentInfo.xls文件，進(jìn)入VBE環(huán)境，并插入一個(gè)用戶窗體。界面設(shè)計(jì)如圖１所示：word范文.圖１ 部門管理系統(tǒng)界面設(shè)計(jì)該界面包括兩個(gè)框架控件，一個(gè)外列表框控件，三個(gè)標(biāo)簽控件，三個(gè)文字框控件和五個(gè)命令按鈕控件。框架控件、標(biāo)簽控件和命令按鈕控件通過其Caption屬性更改文字，其中五個(gè)命令按鈕還要將其屬性中的“名稱”屬性的文字改成與“Caption”文字相同，這樣在編寫代碼時(shí)就不會(huì)亂了。２、編寫窗體加載事件。雙擊窗體(注意：不能對(duì)準(zhǔn)窗體中
3、的某個(gè)控件雙擊)，即窗體中除控件以外的空白地方。進(jìn)入代碼編寫，首先在定義兩個(gè)全局變量：DimcsAsLongDimrsAsLong然后在通用欄下拉框中選擇UserForm，在右邊欄下拉框中選擇Initialize，則自動(dòng)生成：PrivateSubUserForm_Initialize()word范文.EndSub在Sub與EndSub之間輸入如下代碼：Worksheets("Sheet1").Selectcs=Worksheets("Sheet1").Range("a1").End(xlToRight).Columnr
4、s=Worksheets("Sheet1").Range("A65536").End(xlUp).RowListBox1.ColumnCount=csListBox1.RowSource=Worksheets("Sheet1").Range("A2:"&Chr$(64+cs)&rs&"").AddressWorksheets("Sheet1").Selectcs=Worksheets("Sheet1").Range("a1").End(xlToRight).Columnr=Worksheets("Sheet1").Ra
5、nge("A65536").End(xlUp).RowListBox1.ColumnCount=csListBox1.RowSource=Worksheets("Sheet1").Range("A2:"&Chr$(64+cs)&rs&"").Address３、雙擊“查詢”按鈕，在在Sub和EndSub之間輸入如下代碼：IfTextBox1.Text=""ThenMsgBox"請(qǐng)輸入需要查詢部門的編號(hào)"ExitSubEndIfword范文.WithWorksheets("Sheet1")rs=Worksheets("Sh
6、eet1").Range("A65536").End(xlUp).RowFori=2TorsIf.Cells(i,3)=TextBox1.TextThenTextBox1.Text=.Cells(i,3)TextBox2.Text=.Cells(i,1)TextBox3.Text=.Cells(i,2)ExitForEndIfNextEndWith４、雙擊“添加”按鈕，在Sub和EndSub之間輸入如下代碼：DimncsAsLongncs=Worksheets("Sheet1").Range("A65536").End
7、(xlUp).Row+1'增加新一行WithWorksheets("Sheet1").Cells(ncs,3)=TextBox1.Text.Cells(ncs,1)=TextBox2.Text.Cells(ncs,2)=TextBox3.TextEndWithActiveWorkbook.Save'保存數(shù)據(jù)CallUserForm_Initializeword范文.'調(diào)用窗體加載事件，重新加載數(shù)據(jù)，以顯示新添加的數(shù)據(jù)。TextBox1.Text=""'清空文字框中的文本TextBox2.Text=""TextBox3.
8、Text=""５、雙擊“刪除”按鈕，在Sub和EndSub之間輸入如下代碼：cs=ListBox1.ListIndex+1'獲取鼠標(biāo)點(diǎn)擊列表框的記錄Ifcs=0ThenMsgBox"請(qǐng)選擇一條數(shù)據(jù)"ExitSubEndIfRows(cs+1).Delete'刪除當(dāng)前選定的記錄６、雙擊“更新”按鈕，寫出退出窗口代碼。IfTextBo
