191问答库 > VBA 设计界面如何实现LIST控件中输入字母后动态显示备选项。

VBA 设计界面如何实现LIST控件中输入字母后动态显示备选项。

2025-03-01 05:01:14

推荐回答（1个）

回答1：

'示例：添加一
TextBox1
和
ListBox1
Private
Sub
TextBox1_Change()
'On
Error
Resume
Next
Dim
存拼音区域
As
Range
Set
存拼音区域
=
Sheet(1).Range("A1:A100")
'先把所有数据录入在工作表的一个区域中
Dim
a
As
Range,
S
As
String,
b
As
Range
If
ListBox1.ListCount
>
0
Then
ListBox1.Clear
For
Each
a
In
存拼音区域
If
UCase(TextBox1.Text)
=
UCase(Left(a.Value,
Len(TextBox1.Text)))
Then
ListBox1.AddItem
a.Offset(0,
-1)
End
If
Next
End
Sub
这样，在textbox1录入数据，listbox1就会动态显示匹配数据