資源描述：
《基于excel-vba的部門管理系統(tǒng).doc》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、.基于ExcelVBA的部門管理系統(tǒng)一、實驗?zāi)康模和ㄟ^本項目實踐，掌握數(shù)據(jù)制作的添加、刪除、更新和查詢基本方法的應(yīng)用。二、實驗意義：以Excel作為數(shù)據(jù)庫，制作一個部門管理模塊，通過界面操作，進行方便地部門管理。對以后的相關(guān)數(shù)據(jù)管理應(yīng)用具有一定的參考性和實用性。三、模塊開發(fā)技術(shù)１、列表框ListIndex（索引）方法及屬性ColumnCount(列數(shù))，RowSource(數(shù)據(jù)源)的運用２、數(shù)據(jù)精確查詢應(yīng)用；３、ActiveWorkbook.Save(工作表保存方法)的應(yīng)用；４、Rows.Delete(刪除記錄方法)應(yīng)
2、用；５、窗體加載事件的應(yīng)用。四、實驗步驟：請先完成程序填空１、打開DepartmentInfo.xls文件，進入VBE環(huán)境，并插入一個用戶窗體。界面設(shè)計如圖１所示：word范文.圖１ 部門管理系統(tǒng)界面設(shè)計該界面包括兩個框架控件，一個外列表框控件，三個標簽控件，三個文字框控件和五個命令按鈕控件。框架控件、標簽控件和命令按鈕控件通過其Caption屬性更改文字，其中五個命令按鈕還要將其屬性中的“名稱”屬性的文字改成與“Caption”文字相同，這樣在編寫代碼時就不會亂了。２、編寫窗體加載事件。雙擊窗體(注意：不能對準窗體中
3、的某個控件雙擊)，即窗體中除控件以外的空白地方。進入代碼編寫，首先在定義兩個全局變量：DimcsAsLongDimrsAsLong然后在通用欄下拉框中選擇UserForm，在右邊欄下拉框中選擇Initialize，則自動生成：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"請輸入需要查詢部門的編號"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'獲取鼠標點擊列表框的記錄Ifcs=0ThenMsgBox"請選擇一條數(shù)據(jù)"ExitSubEndIfRows(cs+1).Delete'刪除當前選定的記錄６、雙擊“更新”按鈕，寫出退出窗口代碼。IfTextBo
