Q:工作表中有很多同名人员的信息,想要在用户窗体中设置查询,输入人员姓名后,显示其有多少条信息,并且可以逐条显示这些信息。
A:下面是详细的实现过程。
在VBE中插入“用户窗体”并命名为UInfo,在窗体中放置“标签”、“文本框”和“按钮”控件,并分别给这些控件命名,如下图所示。
在用户窗体模块中输入下列代码:
说明:
声明模块级变量
用来传递已找到的全部单元格,以及当前显示的单元格
说明:
初始化用户窗体
使用查找到的第一条记录填充用户窗体中的相应控件
说明:
设置前一条按钮和后一条按钮
excel如何创建变化的选项卡,即不同用户在功能区中有不同的选项卡?
excel如何创建变化的选项卡,即不同用户在功能区中有不同的选项卡? 问:在Excel中,我希望不同的用户有不同的功能区选项卡界面。例如,用户“张三”登录后,工作簿中显示的是给他使用的选项卡,而用户“李四”登录后,则是给李四使用的选项卡。怎么实现? 答:下面是示例代码,仅搭建了一个基本框架,有兴趣的朋友可以在此基础
在用户窗体控件中填充相应的记录
同时显示记录数
说明:
当显示的记录在第1条或者在最后一条时,禁用相应的按钮;在中间时,启用相应的按钮。
在VBE中插入一个标准模块,输入下列代码:
说明:
首先使用Find方法根据查找条件查找到满足条件的全部记录,并将其赋值给相应的Range变量。然后,创建用户窗体并将代表找到的全部记录的变量传递给用户窗体。
为了确保引用的记录区域与工作表中出现的顺序相同,在Find方法中使用了参数After并将其值设置为搜索区域的最后一个单元格,即从搜索区域的第一个单元格开始查找。
在《Excel VBA解读(41):藏得再好也能找到——使用Find方法实现查找》中详细解了Find方法的语法及应用示例。在《经典代码解析2:查找并获取所查找内容的全部单元格》中,详细解了使用Find方法获取满足相同条件的所有单元格的原理及代码。
至此,用户窗体及相应的代码全部制作完成。
运行ShowInfo过程,弹出下列对话框,要求输入查找的姓名:
输入完后,单击“确定”,即显示下图所示的用户窗体:
可以看到查找的记录数,当前在第几条,单击按钮即可逐一显示记录信息。
excel如何判断是否存在指定文件名的文件?
excel如何判断是否存在指定文件名的文件? 问:每个月都要收到各区县网点发来的关于本月开展的活动方案和总结的文件,收到文件后,根据网点名将文件简化命名,例如,对于“XX县安吉乡营业所”的方案,简化命名为“安吉”,将其总结简化命名为“安吉总”,并在本工作簿所在的文件夹中存放这些文件。 如下图所示,为方便说明,在列E