- 搜索
日期：2025/04/08 03:26来源：未知 人气：52
这篇文章将和大家分享一下通过VBA的用户窗体设计用户信息查询工具，这里用到的是文本框和列表框控件。
1. 在Excel的工作表中有如图所示的数据源。
2. 点击“开发工具”选项卡，打开Visual Basic，添加一个用户窗体。
3. 添加一个文本框和列表框控件至用户窗体中，且列表框在文本框下方，与之对齐。
4. 点击列表框，并设置列表框的Visible属性为False，即令它默认为隐藏的。
5. 双击文本框，设置一个Change事件，在事件中添加if判断是否文本框输入的字符数大于4位，如果小于4位则隐藏列表框。
6. 在if判断中，先清空列表框数据；再添加for循环，循环中通过if判断文本框输入的字符是否在A列的“学号”数据中，如果是，则将学号数据添加至列表框。
7. 在循环之后，添加if判断，当列表框写入数据时，则显示列表框，否则隐藏列表框。
8. 执行用户窗体后，即可通过文本框输入的信息来获取列表框中对应的学号。
9. 在选择列表框中的数据后，无法返回到文本框中。
10. 回到VBA中，双击列表框。
11. 为列表框添加一个Click事件。
12. 在事件中，当点击选择列表框中的数据，文本框则返回该数据。
13. 选择好数据后，列表框也同时隐藏。
14. 执行用户窗体，在文本框中输入相应字符，然后选择列表框返回的数据到文本框中。
关于VBA用户窗体控件的使用，还可参考文章：
Excel VBA系列之用户窗体的复合框和列表控件
Excel VBA系列之设计简单的登录界面
Excel VBA系列之ActiveX下的选项按钮控件
