当前位置：网站首页 > IT技术 > 正文

VBA编程，关于实现模糊选择的方法介绍

wptr33 2024-12-09 18:00 48 浏览

在数据表操作的时候，通常会有大量的选择项目，在工作当中，不可能在众多的选择当中找到想要的结果，反而对操作是一种很大的困扰，并不能真正体现出自动化的效率来。

如何在众多选择项目当中快捷地找出想要的条目就是一件十分有用的处理。

下面介绍一种方法，通过数组方式来实现模糊选择。

过程方法

表现就是，当在一个文本框或组合框中输入要选择的项目时，会根据输入的内容进行比对处理，然后把当前输入的相关项目都列出来，有助于减少对条目的人为查找，起到了更快地找出列表项。

实际上，在一些搜索引擎中，这种方式应用较多，当输入几个关键字的时候，系统会自动把相关的热词列出来，供选择查询。

如下图所示：

当输入一个字母A的时候，相关有A的项目都会自动列出到下方列表框内，这样选择起来就方便多了。

代码

Private Sub ComboBox1_Change()
On Error Resume Next
GetArr '设置关键字数组
Dim xStr As String
Dim x As Variant, xi As Integer, cArr()
Dim isTrue As Boolean
isTrue = False
xStr = Me.ComboBox1.Value
For Each x In xArr
    If VBA.InStr(1, x, xStr, vbTextCompare) <> 0  Then
        isTrue = True
        ReDim Preserve cArr(xi)
        cArr(xi) = x
        xi = xi + 1
    End If
Next x
If Not isTrue Then
    ReDim cArr(0)
End If
   With Me.ListBox1
        .List = cArr '设置列表框值
        .Value = .List(0)
    End With
Erase cArr
Erase xArr
End Sub

自动搜索相关内容是一个十分有用的功能，特别是数据选择项目较大的一些处理过程中，模糊查询就是在一些可能的情况下，让工作变得容易。

通过如上代码实践，基本实现了模糊查询提示的功能。

欢迎关注、收藏

---END---

vba instr

上一篇：Excel VBA 用Instr多关键字数组模糊查询
下一篇：VBA编程，自动筛选列表值，模糊提取数据方法，高级进阶

VBA编程，关于实现模糊选择的方法介绍

相关推荐

程序员的开源月刊《HelloGitHub》第 71 期

如何将AI助手接入微信（打开ai手机助手）

SparkSQL——DataFrame的创建与使用

使用过 Redis 分布式锁么，它是什么回事?

VUE循环语句的使用(v-for)（vuefor循环的key）

HiveOs系统教程最细手把手教学（hiveos启动）

HIVE SQL基础语法（hive-sql）

《循环(for/while)》（循环while语句）

Spring Boot 概述（spring boot干嘛的）

西门子博途SCL高级语言之FOR循环（西门子博途for循环语句编程）