百度360必应搜狗淘宝本站头条
当前位置:网站首页 > 编程网 > 正文

VBA编程,自动筛选列表值,模糊提取数据方法,高级进阶

yuyutoo 2024-10-20 13:06 7 浏览 0 评论

Excel的强项是数据处理,工作当中会遇到很多相同或类似的数据,需要统一提取出来,进行一个整合判断。

通过一个循环方法可以快速实现数据的有序提取。

本节介绍一下,如何从工作表中提取出相关数据,然后赋值到一个ComboBox控件里。

组合控件可以用下拉列表形式给出一些选项,进行操作。

如果有些选项比较多,那么选择起来也是一件十分痛苦的事情,于是,可以通过一些模糊查询来进行自动筛选,然后给出一些可能需要的选项。

这么做,也是为了最大化提高应用的操作便捷性而进行的一项数据处理。

此类应用在各大搜索引擎使用较广泛,当你输入一个字符的时候,相关热词会自动列出,就是这个意思。

下面将通过代码来具体实现此项功能的运用。

首先,在工作表中插入一个ComboBox控件,控件名为ComboBox1。

编辑如下代码:

Private Sub ComboBox1_Change()
Dim xStr As String
xStr = Me.ComboBox1.Value
With Me.ComboBox1
    .Clear
    .Value = xStr
    .List = GetComList(xStr)’调用函数
End With
End Sub

此代码为当组合框内容发生改变时的事件,也就是当输入字符的时候会进行的一些过程。

通过list属性来对组合控件进行赋值。

这里调用了一个自定义函数。

函数代码:

Public Function GetComList(xStr As String) '返回列表
    Dim xLrr, xi As Integer
    ReDim xLrr(0)
    xStr = VBA.UCase(VBA.Trim(xStr))
    If VBA.Len(xStr) = 0 Then '如果是查找空值
        xLrr(0) = ""
        GetComList = xLrr
        Erase xLrr
        Exit Function
    End If
    '查找列表值
    Dim xArr, i As Integer, xc As Integer
    xc = 3 '查找列号
    xi = 0
    xArr = ActiveSheet.Range("A2").CurrentRegion
    For xi = LBound(xArr, 1) To UBound(xArr, 1)'判断是否找到
        If VBA.InStr(1, VBA.UCase(VBA.Trim(xArr(xi, xc))), xStr, vbTextCompare) <> 0   Then
            ReDim Preserve xLrr(i)
            xLrr(i) = xArr(xi, xc)
            i = i + 1
        End If
    Next xi
    GetComList = xLrr
    Erase xLrr
    Erase xArr
End Function

通过以上代码,就可以实现对工作表某一列数据进行检索,然后比对ComboBox组合框中的内容,如果找到相关内容就把找到的值赋值给了组合框,可以进行选择。

本示例是以第3列进行检索,即xc的值。

根据一些全自动化的运行,可以实现人工复杂且重复性的一些工作,也是办公自动化应用的最有效方法。

欢迎关注、收藏

---END---

相关推荐

苹果要求全新App开发四月起必须支持“齐刘海”

今日消息,苹果公司通过邮件告知应用程序开发者,从2018年4月起提交给AppStore的所有新应用必须支持iPhoneX的超级视网膜显示器。这意味着新应用程序的开发者必须确保它们适应“齐刘海”,并...

耗时一年多,QEMU开发者成功在电脑上模拟了初版iPhone OS

IT之家12月24日消息,用户通过黑苹果(Hackintosh)工具,已经可以在非Mac设备上运行macOS系统。但由于种种限制,至今也没有多少人能够在PC上运行iOS系统。现...

下个月的WWDC后,苹果将发布原生Watch SDK测试版本

在近日Re/code举办的CodeConference上,苹果的运营副总裁JeffWilliams称,目前有4000多个AppleWatch应用上线,而未来的苹果表开发者套件,将允许开发者直接获...

苹果再次提醒:4月起强制要求APP进行适配

点击右上角关注我们,每天给您带来最新最潮的科技资讯,让您足不出户也知道科技圈大事!软件适配对于许多厂商来说都是一个比较头疼的事,苹果在握紧AppStore审核权的情况下情况要好许多。最近他们公布了...

苹果Xcode 16首个Beta版发布,AI代码补全最少需16GB内存

IT之家6月12日消息,在苹果WWDC24开发者大会上,苹果发布了iOS18、macOS15Sequoia等最新版本系统更新。与此同时,苹果推出了Xcode16开发工具的首...

传苹果已向特定开发者开放iWatch SDK

|责编:薄志强苹果会不会在这次发布会中发布全新的智能手表产品iWatch还很难说,不少人认为由于iWatch的消息少之又少,很可能这次还是没有iWatch。不过现在又有外媒传出消息称,苹果已经选定了...

苹果发布Swift 6语言:引入新测试框架、增强C++ 互操作性

IT之家9月20日消息,科技媒体devclass昨日(9月19日)报道,苹果公司在发布iOS/iPadOS18和macOS15Sequoia系统之外,还发布了Sw...

发布Siri SDK 之前苹果还是先想想这个问题

今年的GoogleI/O大会上,在预览GoogleHome时,我们就看到了设备可以互相对话的场景是多么惊艳,苹果快点跟上吧。最近因为亚马逊Echo和谷歌GoogleHome的火热...

iOS 17.2 SDK代码确认古尔曼爆料:免开箱更新苹果iPhone系统

IT之家10月27日消息,彭博社的马克古尔曼(MarkGurman)本月早些时候发布报道,称苹果正在研发新的系统,可以让员工在不拆开包装的情况下,升级iPhone的iOS系统。根据国...

《企业应用架构模式》之事件驱动架构

事件驱动架构(Event-DrivenArchitecture,EDA)是一种强调事件流和异步通信的应用程序架构。在该架构中,应用程序被分解为多个小型、可独立部署的组件,这些组件通过事件进行通信...

k8s中常用的controller以及用途和对应机制

controller的用途ReplicaSet、Deployment、StatefulSet:用于无状态和有状态应用的副本管理。DaemonSet:确保每个节点上都运行一个副本的控制器。...

Disruptor框架源码阅读-如何不重复消费

RingBuffer如何保证数据不丢失由于ringbuffer是一个环形的队列,那么生产者和消费者在遍历这个队列的时候,如何制衡呢?1、生产快,消费慢,数据丢失?生产者速度过快,导致一个对象还没消...

C# 控制电脑睡眠,休眠,关机以及唤醒

最近碰到一个关于芯片测试过程中的问题,这颗芯片是用在笔记本端口上,笔记本客户那边会有一个压力测试,就是频繁的电脑电源状态切换,S0(正常使用的开机状态),S3(睡眠模式),S4(休眠模式)以及S5(关...

大厂防止超卖的7种实现,很受用!(大厂防止超卖的7种实现,很受用的产品)

高并发场景在现场的日常工作中很常见,特别是在互联网公司中,这篇文章就来通过秒杀商品来模拟高并发的场景。本文环境:...

臻识车牌识别配制MQTT通讯,解析车号

在物联网项目中,我们的软件与车牌识别通讯,通常使用MQTT通讯更简单。...

取消回复欢迎 发表评论: