首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

示例工作簿分享:仿自动筛选的搜索

标签:VBA,用户窗体 下面分享的是两个非常好的作品,在Excel中使用VBA实现在组合框或列表框中进行自动筛选,就像我们在用百度搜索时那样,随着用户的输入,会逐渐减少相匹配的下拉列表项,以方便用户快速进行选择...图1 另一个示例工作簿添加了使用列表框/文本框实现与上面相同的功能,如下图2所示,扩展能使用特殊字符和通配符,对筛选条件也提供了多个选项,包括以输入文本开头、包含输入文本、不包含输入文本、以输入文本结尾...图2 有兴趣的朋友可以到ozgrid.com论坛中下载这两个示例工作簿,也可以在完美Excel公众号发送消息: 自动筛选搜索 获取这两个示例工作簿的下载链接。

15320
您找到你想要的搜索结果了吗?
是的
没有找到

第二步:下拉列表框

前面发了一个文本框的,这回发一个下拉列表框。 一般在写自定义控件之前都要考虑一下原来的控件(系统代的)有什么优缺点,有哪些功能是我想要的,但是自带的控件没有提供,或者提供的不是太理想。...如果需要写一个下拉列表框,这个框里面要放置12个月份,还要写个循环或者在.aspx里面设置。我设了一个偷懒的方法。 4、其他的常用的填充方法。...您可以把您常用的填充的数据放在自定义控件里面,调用的时候就会方便很多。 5、验证。 这个和 文本框是一样的,也是使用正则的方式来验证。这里主要验证是否选择了一个选项。...给下拉列表框填充从 1 到 lastDay 的数据。value 和 text 值一致。     ...给下拉列表框填充从 1 到 12 的数据。value 和 text 值一致。

2.2K60

示例工作簿分享:筛选数据

标签:VBA,用户窗体 这是一个很好的示例,充分展示了VBA和用户窗体控件编程技术。 示例中有一个数据工作表Sheet1,包含有一个列表,每一行的单元格中都有很多用逗号分隔的数据,如下图1所示。...3.在用户窗体中: (1)左侧列表框列出了工作表Sheet2中的所有唯一项。 (2)在搜索框中输入内容时,会随着输入自动缩减左侧列表框中的内容。...(3)选择左侧列表框中的项后,单击“添加”按钮,将其移至右侧列表框。 (4)单击“执行”会进行筛选操作,并在工作表Sheet1中显示结果。...(5)选择右侧列表框中的项目,单击“移除”按钮,该项目会自动移至左侧列表框。 (6)单击“筛选重置”按钮会重置列表框数据和工作表筛选。...(8)“选择类型”中,选中“选择多项”,则可以在列表框中选择多个项目;选中“选项一项或者按下Shift或Ctrl键选择多项”,则只能选择列表框中的一个项目,要选择多个项目,要按下Shift键或者Ctrl

11310

C#学习笔记—— 常用控件说明及其属性、事件

经常使用的调用格式如下: [格式1]: RichTextBox对象.Find(str) [功能]:在指定的“RichTextBox”控件中查找文本,返回搜索文本的第一个字符在控件内的位置。...[格式2]: RichTextBox对象.Find(str,RichTextBoxFinds) [功能]:在“RichTextBox 对象”指定的文本框搜索 str 参数中指定的文本,返回文本的第一个字符在控件内的位置...(10)Text 属性:该属性用来获取或搜索 ListBox 控件中当前选定项的文本。当把此属性值设置为字符串值时,ListBox 控件将在列表内搜索与指定文本匹配的项选择该项。...默认情况下,组合框分两个部分显示:顶部是一个允许输入文本的文本框,下面的列表框则显示列表项。可以认ComboBox就是文本框列表框的组合,与文本框列表框的功能基本一致。...当执行进程时,进度条用系统突出显示颜色在水平栏中从左向右进行填充。进程完成时,进度栏被填满。

9.5K20

Excel编程周末速成班第21课:一个用户窗体示例

提供一个用于选择state的列表框控件。 显示一个“下一步”命令按钮,该按钮将当前数据保存在工作表中,并再次显示该窗体以输入更多数据。...显示“完成”命令按钮,该按钮保存当前数据,保存工作簿关闭窗体。 显示一个“取消”命令按钮,该命令按钮放弃当前数据关闭窗体。 验证没有字段留为空白。 验证邮政编码条目是有效的邮政编码。...步骤2:设计窗体 要创建新的空白用户窗体设置其属性,执行以下操作: 1.按Alt+F11打开VBA编辑器。 2.在工程窗口中,单击标记为VBAProject(Addresses)的条目。...下一步将添加用于数据输入的文本框控件,用于state的复合框控件,用于操作的命令按钮控件,以及用于标识每个文本框列表框的标签控件。...下面是第1课至第21课的目录: 第1课:MicrosoftExcel编程——为什么及怎么做 第2课:VBA代码编辑器 第3课:Excel对象模型 第4课:VBA语法和数据 第5课:运算符 第6课:控制结构

6K10

SAP屏幕设计器专题:下拉列表框(四)

既然是屏幕设计器,自然要有下拉列表框。这里我们来做一下。    ...首先,SE38建立一个程序,SE51拖出一个文本框控件,下拉框的属性设置为Listbox,名称为VALUE:     再拖出一个文本框,设置为只读属性,如下:     屏幕设计页面如下:    ...代表为下拉列表框赋值。     在SE38中,程序的开头记得Key入如下代码: TYPE-POOLS: VRM.  这个是下拉列表框引用所要用到的。     接下来声明变量,与控件名称对应。..."载入画面     载入下拉列表框的MODULE: MODULE SETVALUE INPUT....CALL FUNCTION 'VRM_SET_VALUES'     "调用函数填充内容 EXPORTING ID     = LV_NAME       VALUES = LT_LIST.

1.8K10

Excel实战技巧98:使用VBA在工作表中添加ActiveX控件

excelperfect 一些情形下,我们需要在工作表中使用ActiveX控件,这通常使用VBA来实现。...要使用VBA从控件工具箱(ActiveX控件)中添加控件,可以使用OLEObjects集合的Add方法。...ActiveX控件的名称如下: Forms.Checkbox.1(复选框) Forms.Combobox.1(组合框) Forms.Optionbutton.1(选项按钮) Forms.Textbox.1(文本框...) Forms.Listbox.1(列表框) Forms.Commandbutton.1(命令按钮) 下面通过一个例子,提供在工作表中添加ActiveX控件的思路。...接下来,在确定数据范围后,在第一列添加复选框设置了一些属性值以方便以后操作。这里,有一些通用的适合于其他控件的属性,也有一些专属于复选框的属性。

5K10

能自己“跑”的表单控件,思路,雏形,源码。vs2005版本

一大堆的表,n多的字段,经常变化的表现形式(比如文本框换成下拉列表框等),是不是很头痛?...我的表单控件要做的事情:     1、自己描绘控件,比如能够自己添加文本框、下拉列表框这一类的控件。     ...3、在修改数据的时候,可以从数据库里提取数据,填充到对应的控件里。     这个好像和05的表单控件差不多,不过有两个明显的区别。     1、05的需要另外设置文本框这样的控件。     ...2、根据属性添加子控件,也就是具体的控件(比如文本框、下拉列表框等)。     3、取值,保存数据。     4、修改的时候显示数据。     ...、下拉列表框等)。

51990

(ExcelVBA编程入门范例)

下面,对VBE编辑器界面进行介绍,VBA代码输入和调试的基本知识进行简单的讲解。...图00-03:右击工作表标签弹出菜单选择“查看代码”打开VBE编辑器 图00-04:右击Excel图标弹出菜单选择“查看代码”打开VBE编辑器 图00-05:在宏对话框中单击...(当然,对程序代码的调试有很多方法和技巧,留待以后对VBA进一步研究和理解更透彻后一讨论。) 利用VBA帮助系统 如果遇到疑问或错误,可以利用Excel自带的VBA帮助系统。...图00-09:帮助搜索窗口 ■ 可以按F2键,调出“对象浏览器”窗口(如图00-10所示),在搜索文本框中输入需要帮助的关键词,将会在“搜索结果”中出现一系列相关的对象及方法、属性列表,单击相应的对象则会在...“类”和“成员”列表框中显示相应的对象和方法、属性成员列表,在成员列表中相应的项目上按F1键即会出现详细的帮助信息。

4K20

VERICUT如何搭建车铣中心

在项目树中,选择Base(0,0,0)右击,从系统弹出的快捷菜单中选择“添加”>“Z线性轴”菜单命令。...在项目树中,选择Z(0,0,0)右击,从系统弹出的快捷菜单中选择“添加”>“X线性轴”菜单命令。在“颜色”下拉列表框中选择“3:Light Steel Blue(钢青色)”选项,如下图所示。...添加“Turret C”to“X” 在项目树中,选择X(0,0,0)右击,从系统弹出的快捷菜单中选择“添加”>TurretC菜单命令。...选择拖动附属(0,0,0)到Spindle(0,0,0)节点上,如图所示。 夹具部件原点是夹具模型加载时的位置。...在相应的文本框中输入“长(X)=480,“宽(Y)”=1280,“高(Z)”=600.在“颜色”下拉列表框中选择“继承”选项。单击“移动”标签。

3K40

使用VBA查找并在列表框中显示找到的所有匹配项

标签:VBA,用户窗体,列表框 有时候,我们想从数据表中搜索指定的内容,但匹配项往往不只一项,而我们想要将匹配项全部显示出来,如下图1所示。...图1 在Excel中,有很多方法可以实现,这里使用用户窗体和VBA代码来完成。 示例数据如下图2所示。 图2 单击“查找”按钮,弹出我们所设计的用户窗体如下图3所示。...= "" AndLName.Value = "" And Location.Value = "" AndDepartment.Value = "" Then MsgBox "没有指定搜索项...,即如果某人正在搜索位置,则仅在位置列中搜索 With Range("Table1[" &SearchColumn & "]") ' 查找第一个匹配项 Set RecordRange...设置匹配值行中的第一个单元格 Set FirstCell =Range("A" & RecordRange.Row) ' 添加匹配记录到列表框

12.9K30

HTML表单(下)

datalist标签与list属性 标签是用来给list属性提供列表数据的,类似于一个数据组,option标签用于给这个数据组填充数据。...表单组件之列表框和下拉框 select主要是用来实现下拉框和列表框效果的,也是使用option来填充数据,我们先来实现一个下拉框,示例: ?...使用size属性来实现列表框,size的值是一个数量,表示显示多少个option的数据,示例: ? 运行结果: ?...表单组件之多行文本框 textarea就只是用来做一个多行文本框,这个标签常用的属性就是rows和cols,前者用来控制行数后者用来控制列数,cols是按字符为单位的...不过除了IE内核的浏览器不能用鼠标拉动大小外,其他的浏览器是可以支持用鼠标拉动文本框的大小的。 示例: ? 运行结果: ? 可以拉动: ? 服务器接收页面: ?

2.6K20

【分享】 纯 js 表单控件 —— 让 “增改查” 更轻松!

需求、目的: 1、 在前台网页,使用js自动创建表单 2、 可以控制表单里的控件类型,比如文本框、下拉列表框、在线编辑器等。...实现方式: 1、 js + json + 第三方js脚本、控件 2、 json对表单进行描述,比如标题、控件类型、控件大小、下拉列表框的item如何填充等。...4、 Js脚本根据json的描述,创建表单(table形式),创建表单里面的控件(比如文本框),然后对表单和控件进行修饰。 5、 提取用户输入的数据,然后进行验证。...答:搜索了一下js表单控件,没有发现特出名的。当然了肯定有做好的,只是我没有发现。再有也不是完全自己写的,有很多第三方现成的js拿来用的,比如my97。...答:当然还有其他的功能,比如设置文本框 只读(readonly),设置默认值,设置帮助信息,表单布局等,这些都可以通过修改json的属性值来实现。 问:json的结构到底是啥样的?

3.4K81

python苦短-爬取音乐

实现界面下载音乐 教程来自B站python学习者 代码细节 # 导入需要的库 # 搜索歌曲名 import requests import jsonpath import os from urllib.request...X-Requested-With headers={ 'X-Requested-With':'XMLHttpRequest' } # 参数是post请求特殊要求,如登录和搜索等...标签定位 label.grid() # 6.设置输入框,定位输入框位置为0行1列 entry = Entry(root,font=('隶书',20)) entry.grid(row=0, column...设置列表框定位为1行0-2列,同时设置单元格大小 text=Listbox(root,font=('隶书',20),width=50,height=15) text.grid(row=1,columnspan...输入框、下载按钮、退出按钮、列表框控件运行良好 下载结果 ? 在工作目录下,找到下载好的音乐 测试可听 通过音乐播放器测试,歌曲为完整的 ?

1.4K30

一段代码,显式确定工作表列表框选项状态

标签:VBA 使用功能区“开发工具”选项卡,我们可以在工作表中插入控件,例如,可以插入列表框控件,如下图1所示。...图1 插入列表框控件后,单击右键,选择“设置控件格式”命令,可以选取“选定类型”中的“复选”,从而允许我们同时选取列表框中的多个项目,如下图2所示。...只需如上图2所示设置列表框(无需包含单元格链接),然后右键单击该列表框指定下面的宏。...图4 宏代码如下: '获取多选列表框中的选定项,并将其列在工作表中原始项列表的右侧列 Sub getSelections() Dim V As Variant Dim V2 As Variant...Range(.ListFillRange).Cells(1,1).Offset(0, 1).Resize(n, 1) = V2 End With End Sub 注意,必须将该宏指定给列表框

79140
领券