Excel VBA高级编程 - 根据关键词实时筛选,自动生成下拉菜单
关注公众号:万能的Excel 并回复【实时筛选】获取源文件!
功能说明:
当客户群体到达一定数量后,统计信息往往编程一项非常繁琐的工作。根据关键字自动搜索并且列出完整的信息编程一项必不可少的功能
本工作表实现的功能:
1、Excel 根据关键字进行模糊查找
2、不限数据库大小
3、生成下拉菜单
附上代码:
Private Sub ListBox1_Click() arr = Sheet7.Range("A1").CurrentRegion t = UBound(arr) On Error Resume Nextk = Application.WorksheetFunction.Match(Me.ListBox1.Value, Sheet7.Range("A1:A" & t), 0) ActiveCell.Value = Me.ListBox1.Value ActiveCell.Offset(0, 1).Value = Application.WorksheetFunction.Index(Sheet7.Range("c:c"), k) Me.TextBox1.Visible = False End SubPrivate Sub TextBox1_Change() '检测TextBox 中是否有输入Dim arr, i%, j%, dSet d = CreateObject("scripting.dictionary") '创建字典用于保存搜索到的结果arr = Sheet7.Range("A1").CurrentRegion '获取页面内容For i = 2 To UBound(arr)If InStr(arr(i, 1), Me.TextBox1.Value) Then '遍历数据源,搜索符合条件的用户名d(arr(i, 1)) = "" '保存符合条件的数据End IfNextMe.ListBox1.Clear If d.Count >= 1 Then Me.ListBox1.List = d.keys '输出搜索结果End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Count > 1 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub If Target.Column <> 5 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit SubIf Target.Row < 2 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub Dim arr, i%, j%, dSet d = CreateObject("scripting.dictionary") '获取页面内容arr = Sheet7.Range("A1").CurrentRegion '创建字典用于保存搜索到的结果For i = 2 To UBound(arr)d(arr(i, 1)) = "" '保存符合条件的数据NextWith Me.TextBox1 '显示TextBox.Top = Target.Top.Left = Target.Left.Width = Target.Width.Height = Target.Height.Activate.Value = "".Visible = TrueEnd WithWith Me.ListBox1 '显示ListBox.Clear.Top = Target.Offset(1, 1).Top.Left = Target.Offset(0, 1).Left.Height = Target.Offset(0, 1).Height * 8.Width = Target.Offset(0, 1).Width * 4.List = d.keys.Visible = TrueEnd With
End Sub
Excel VBA高级编程 - 根据关键词实时筛选,自动生成下拉菜单相关推荐
- Excel VBA高级编程 - 根据关键字自动搜索,自动生成下拉菜单
关注微信公众号:万能的Excel,回复关键词[下拉菜单]获取Excel源文件 功能说明: 因为工作需要,每一次都要从SAP查找物料信息,手动生成物料清单(Boom表),繁琐且容易出错. 使用VBA实现 ...
- Excel VBA高级编程 -自动去除重复项 自动求和
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教! ...
- Excel VBA高级编程-关键字查找数据库
关注公众号:万能的Excel 并回复[关键字]获取源文件! 功能说明: 这个表格的主要功能是:根据输入的关键字找到数据库中,正确的公司名,生成一个下拉菜单,再根据正确的公司名,找到对应的No生 ...
- Excel表格中如何快速生成下拉菜单
Excel表格中如何快速生成下拉菜单 目录 Excel表格中如何快速生成下拉菜单 1.例如下表先手动输入前几组的"等级"类别"优良中差" 2.同时按住 alt ...
- Excel VBA 高级编程-来自直男的Excel表白
关注公众号:万能的Excel 并回复[表白]获取源文件! 七夕快到了,想用另类的表白方式,奈何自己不懂编程?那我就叫你如何用Excel 表白吧! 功能说明: 1.自动播放想说的话 2.用数学公 ...
- Excel VBA 高级编程-客户跟进管理系统
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教!微 ...
- Excel VBA 高级编程-跨表格多条件筛选
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教!微信公众号 ...
- Excel VBA 高级编程-库存管理-出入库系统
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教! ...
- Excel VBA高级编程 -根据日期查找数据
关注公众号:万能的Excel 并回复[日期搜索]获取源文件! 功能说明: 打印出货单的时候,经常会需要从数据库中查询一段时间内的所有数据 本工作表使用VBA实现了如下功能: 1.实时统计重复项 ...
最新文章
- Angular响应式表单及表单验证
- 怎么用php制作会员注册表单,帝国CMS前台会员登陆表单的制作教程
- Mysql函数示例(如何定义输入变量与返回值)
- 第三次学JAVA再学不好就吃翔(part99)--File类
- cuid卡写入后锁死_荣耀手机NFC升级了:公交、门禁、支付、饭卡、加密卡还能写卡...
- strcmp可以比较数组么_C语言数组越界了,后果很严重,如何避免?
- APP网络测试要点和弱网模拟
- python shell运行当前程序、可以按下_Python下调用Linux的Shell命令的方法
- win10专业版 提供管理员权限才能删除文件夹
- WinHTTP Web Proxy Auto-Discovery Service
- 春节期间,哪些信用卡取现不用手续费?
- 简述窄带调频和宽带调频的_宽带调频和窄带调频的简单区别方法
- 【热门主题】蓝色妖姬电脑桌面主题
- 马哥2018linux课程目录,马哥教育2018年Linux第30期视频教程
- 2019上半年软考 | 报名时间汇总(持续更新中)
- 16S rRNA全长测序揭示中国重度污染河口细菌群落的时空动态
- The Active Side of Stereopsis: Fixation Strategy and Adaptation to Natural Environments
- html中repeat的作用,html中hover和no-repeat
- csp-s2020 儒略日(含源代码)
- Siri创始人正式展示Viv助手 比想象中要强大
热门文章
- 旧手机物联网_废旧的 Android 手机能拿来干什么有趣的事?
- python手机号码正确编程_Python。弄清楚如何输入正确的电话号码
- php有意思的小项目,推荐6个Github上超有意思的前端项目!
- 关于库位“参与MRP运算”与“不参与运算”相互变动的注意事项
- Linux 是洗衣粉?关于Linux 的10个趣事
- python正弦波叠加方波_无穷多个(幅值)和(频率)不等的正弦波叠加就能形成周期方波。_学小易找答案...
- linux shell中\w \s \d \b ^ $等常用匹配用法
- sinh函数_sinh()函数以及C ++中的示例
- SAP中KKS5/KKS6事务计算投入产生差异逻辑
- 会中切换网络总掉线?腾讯会议用这种方案让你好好开会