VBA之Listbox控件基础教程

用心修炼

强大的作品，值得学习

aagovs

Listbox控件如何引用另外一个excel数据表中的数据？

aagovs

LIstview只能提示不起作用，显示一个大叉

tcy119

不错，做个记号，下次在学习。

ivccav

aagovs 发表于 2019-11-17 20:51
LIstview只能提示不起作用，显示一个大叉

版本不同。Listvview版本兼容性不好

OKJSJSF

楼主好！学生正在纠结于如何用WORD窗体中的列表框显示EXCEL工作表中的数据区域，需要有固定的标题行，数天练习，未得结果。烦请解惑？先谢谢了。

OKJSJSF

楼主好！看了这十页贴子，大家都在excel工作表中录入数据，而我却正在练习在word文档中录入数据，再导入（保存）excel工作表中，作为类似access数据库的数据表。但是多个app组件如何协同工作，比在一个app中操作更复杂，教材与贴子又少，抄袭不到，表达式代码又不知如何写了。唉！

OKJSJSF

我用listbox，只用它的最原始的一个功能，只显示，不更改数据。一是显示导入结果数据清单。也就是，数据从word文档或其他位置导入excel工作表后，用它展示一下，用户通过它预览一下数据表中的保存结果。二是显示查找筛选结果数据清单。就是查找后弹出它，单击它，获取行数，把对应的excel数据清单中的某行数据导出至word文档或其他位置。

OKJSJSF

当采用数组一次性赋值，我们拖动列表框的滚动条左右移动预览数据时，能否让上方作为列标题的另一个列表框的字段也跟随左右移动？这样才能上下一一对应。

OKJSJSF

ivccav 发表于 2018-12-14 22:16
2.运用：Listbox控件运用举例

2.1、Listbox引用工作表数据

请教楼主，在2.3.如何显示“标题”所示的代码中，下面这段用途是什么，我不使用这段代码时，并不能固定插入的第一行标题值，而且仍可选中变色。
Private Sub TextBox1_Change()
    Dim i&, j&, k&
    With ListBox1
        .Clear
        .AddItem '添加标题
        For j = 1 To UBound(brr, 2): .List(0, j - 1) = brr(1, j): Next
        For i = 1 To UBound(arr) '多条件模糊查询，只需把各列串联起来即可。
            If InStr(arr(i, 3) & "|" & arr(i, 4) & "|" & arr(i, 5), TextBox1) Then
                .AddItem '在列表末尾添加一个空行，行号、列号都从0开始算
                k = k + 1 '记录行号
                For j = 1 To UBound(arr, 2)
                    .List(k, j - 1) = arr(i, j)
                Next
            End If
        Next
    End With
End Sub