VBA红色代码求解释

zdj365 · 发表于 2022-11-29 11:13

本帖最后由 zdj365 于 2022-11-30 11:10 编辑

这段代码的功能是：通过文本框来筛选列表框中的内容。

当文本框的内容发生变化，列表框的内容实时显示筛选结果。

Option Explicit

Private maContacts As Variant '定义macontacts为变量

Private Sub UserForm_Initialize() '表单初始化

maContacts =Sheet1.ListObjects("tblContacts").DataBodyRange.Value

FillContacts '调用过程

End Sub

Private Sub tbxSearch_Change()

FillContacts Me.tbxSearch.Text '

End Sub

Private Sub FillContacts(Optional sFilterAs String = "*")

Dim i As Long, j As Long

……

End Sub

zdj365 · 发表于 2022-11-29 19:27

listobject是超级表,tblcontacts是超级表名，就是插入选项卡最左边的那个插入表格
如果是超级表数据转数组不需要这么麻烦
arr=range("超级表名").value 就是数据了不包含标题行的
因为超级表是名称，这个就是名称的调用用法

zdj365 · 发表于 2022-11-30 10:00

tblcontacts是超级表名称,fillcontacts带默认参数为*的子过程

		自动登录	找回密码
密码			免费注册

[已解决] VBA红色代码求解释