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

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

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

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

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

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

过程方法

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

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

如下图所示：

当输入一个字母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编程，关于实现模糊选择的方法介绍

相关推荐

C# 13 和 .NET 9 全知道 :13 使用 ASP.NET Core 构建网站 (1)

因果推断Matching方式实现代码因果推断模型

git pull命令使用实例 git pull--rebase

git 执行pull错误如何撤销 git pull fail

面试官:git pull是哪两个指令的组合?

git pull 和git fetch 命令分别有什么作用?二者有什么区别?

git fetch 和git pull 的异同 git中fetch和pull的区别

git pull 之后本地代码被覆盖解决方案

还可以这样玩?Git基本原理及各种骚操作，涨知识了

git命令之pull git.pull

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

相关推荐

C# 13 和 .NET 9 全知道 :13 使用 ASP.NET Core 构建网站 (1)

因果推断Matching方式实现代码 因果推断模型

git pull命令使用实例 git pull--rebase

git 执行pull错误如何撤销 git pull fail

面试官:git pull是哪两个指令的组合?

git pull 和git fetch 命令分别有什么作用?二者有什么区别?

git fetch 和git pull 的异同 git中fetch和pull的区别

git pull 之后本地代码被覆盖 解决方案

还可以这样玩?Git基本原理及各种骚操作，涨知识了

git命令之pull git.pull

因果推断Matching方式实现代码因果推断模型

git pull 之后本地代码被覆盖解决方案