EXCEL VBA应用：制作员工电话查询数据库1

本文将详述如何利用Excel 2010构建内部电话簿查询数据库，涵盖查询、更新、修改、删除和添加等核心操作。掌握后，技巧可广泛应用于各类查询数据库实践项目中。

1、 本程序共有三个用户窗体。第一个用户窗体（Userform1），它是查询界面。第二个用户窗体（Userform2）是管理员入口界面，用于管理员登陆。第三个用户窗体（Userform3）是管理员操作界面，用于修改（更新），添加，删除数据。第一部分：建立第一个用户窗体（Userform1）。先打开EXCEL2010程序，制作单位内部所有员工电话簿表格。格式如下图：

2、 在EXCEL中按下ALT+F11。打开VBA窗口。在左边栏“窗体”上点右键，在弹出的菜单中选择“插入”，再选择“用户窗体”。就得到了“UserForm1"如下图：

3、 从控件工具箱里点”框架“，画出一个框架。在左边属性栏里选"Caption",右边改成”员工电话查询“字样。如下图所示：

4、 从控件工具箱里选”标签“A，在框架里点两下形成两个标签。在左边属性栏”Caption“里分别改为”姓名“和”查询结果“。从控件工具箱里选”文字框“，画两个文本框，分别是“textbox1”和“textbox3"。按理应为2，可能操作时删除了一个，所以序号为3啦。“textbox1”用来查询的名字输入，“textbox3”用来显示查询到的电话号码。从控件箱里选命令按钮，画三个命令。一个在框架里名称为“查询”，两个在框架外窗体内，名称“退出系统”和“管理员入口”，第一个窗体就做好了。如下图所示：

5、 下面对窗体中的各种文本框，命令按钮进行简单的编程，给予命令才能按我们的要求做事。先对工作簿进行命令设置，让它打开即显示查询窗口，而不显示原来的EXCEL电子表格。不然就失去了查询的意义。在VBA窗口中左边栏找到“Thisworkbook”,点鼠标右键，弹出菜单里选择“查看代码”。弹出代码编写框，如下图.输入如下命令内容：Private Sub Workbook_Open()Application.Visible = FalseUserForm1.ShowEnd Sub//当工作簿打开时只显示窗体1（UserForm1）,不显示原来的电子表格。如下图：6关上编辑代码窗口，回到VBA窗口。在窗体1里右键点查询命令按钮（CommandButton1），选择查看代码。弹出代码编写框。编写下面内容：Private Sub CommandButton1_Click()Dim name As StringDim i As Longname = TextBox1.TextFor i = 2 To [A65536].End(xlUp).RowIf Cells(i, 1) = name Then TextBox3.Text = Cells(i, 1) & "的电话号码是：" & Cells(i, 2)If Cells(i, 1).Value <> name Then TextBox3.Text = "查无此人！"If Cells(i, 1).Value = name Then Exit ForNextEnd Sub//从TextBox1中提取名字，就是界面姓名后面的输入框。并在表格里查找，如果找到了，就在TextBox3文本框里显示他的名字，和电话号码。就是查询结果下面的文本框里显示。如果没得名字，就显示“”查无此人！“字样。如下图：