学习资源:《Excel VBA从入门到进阶》第59集 by兰色幻想
四、筛选数据
筛选数据只需要配合循环和判断 , 把符合条件的添加到listview控件中。
例:把下表的销售数据添加到listview里显示,并设置为能按省份展示数据。
弟弟
①初始化用户窗体的代码:
Private Sub UserForm_Initialize()
Dim i, d As Object, arr
Set d = CreateObject("scripting.dictionary")
arr = Range("a2:a50")
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 1)) Then d(arr(i, 1)) = ""
Next i
ComboBox1.list = d.keys
ListView1.FullRowSelect = True '设置可以整行选取
L