基于ExcelVBA的部门标准管理系统.docVIP

基于Excel VBA部门管理系统 一、试验目标： 经过本项目实践，掌握数据制作添加、删除、更新和查询基础方法应用。 二、试验意义： 以Excel作为数据库，制作一个部门管理模块，经过界面操作，进行方便地部门管理。对以后相关数据管理应用含有一定参考性和实用性。 三、模块开发技术 １、列表框ListIndex（索引）方法及属性 ColumnCount(列数)，RowSource(数据源)利用 ２、数据正确查询应用； ３、ActiveWorkbook.Save(工作表保留方法)应用； ４、Rows.Delete(删除统计方法)应用； ５、窗体加载事件应用。 四、试验步骤： 请先完成程序填空 １、打开DepartmentInfo.xls文件，进入VBE环境，并插入一个用户窗体。界面设计图１所表示： 图１　部门管理系统界面设计 该界面包含两个框架控件，一个外列表框控件，三个标签控件，三个文字框控件和五个命令按钮控件。框架控件、标签控件和命令按钮控件经过其Caption属性更改文字，其中五个命令按钮还要将其属性中“名称”属性文字改成和“Caption”文字相同，这么在编写代码时就不会乱了。 ２、编写窗体加载事件。 双击窗体(注意：不能对准窗体中某个控件双击)，即窗体中除控件以外空白地方。进入代码编写，首先在定义两个全局变量： Dim cs As Long Dim rs As Long 然后在通用栏下拉框中选择UserForm，在右边栏下拉框中选择Initialize，则自动生成： Private Sub UserForm_Initialize() End Sub 在Sub和End Sub之间输入以下代码： Worksheets(Sheet1).Select cs = Worksheets(Sheet1).Range(a1).End(xlToRight).Column rs = Worksheets(Sheet1).Range(A65536).End(xlUp).Row ListBox1.ColumnCount = cs ListBox1.RowSource = Worksheets(Sheet1).Range(A2: Chr$(64 + cs) rs ).Address Worksheets(Sheet1).Select cs = Worksheets(Sheet1).Range(a1).End(xlToRight).Column r = Worksheets(Sheet1).Range(A65536).End(xlUp).Row ListBox1.ColumnCount = cs ListBox1.RowSource = Worksheets(Sheet1).Range(A2: Chr$(64 + cs) rs ).Address ３、双击“查询”按钮，在在Sub和End Sub之间输入以下代码： If TextBox1.Text = Then MsgBox 请输入需要查询部门编号 Exit Sub End If With Worksheets(Sheet1) rs = Worksheets(Sheet1).Range(A65536).End(xlUp).Row For i = 2 To rs If .Cells(i, 3) = TextBox1.Text Then TextBox1.Text = .Cells(i, 3) TextBox2.Text =.Cells(i, 1) TextBox3.Text = .Cells(i, 2) Exit For End If Next End With ４、双击“添加”按钮，在Sub和End Sub之间输入以下代码： Dim ncs As Long ncs = Worksheets(Sheet1).Range(A65536).End(xlUp).Row + 1 增加新一行 With Worksheets(Sheet1) .Cells(ncs, 3) = TextBox1.Text .Cells(ncs, 1) = TextBox2.Text .Cells(ncs, 2) = TextBox3.Text End With ActiveWorkbook.Save 保留数据 Call UserForm_Initialize 调用窗体加载事件，重新加载数据，以显示新添加数据。 TextBox1.Text = 清空文字框中文本 TextBox2.Text = TextBox3