[已解决]为什么在类模块中用到数组，速度就变慢。

silenthunter

附件中一个用类模块设置事件过程，一个未用类模块。
未用类模块的查询快，用类模块的查询慢，要等两秒钟就像卡死，但它们都在数组中查询，已经避免了在对象中循环。
请教为什么会有差别。

VBA silenthunter 网友提问.rar (147.26 KB, 下载次数: 18)

2014-5-25 12:06 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

香川群子

2014-5-25 22:12

类模块中：
If UserForm1.TotalData(i, 1) = Item_ListboxGroup.Value Then

直接窗体代码：
If TotalData(i, 1) = Itemno_ListBox1.Value Then


这就是两者的差别。


类模块中代码改一下：
Private Sub Item_ListboxGroup_Click()
    Dim i
    Name_ListboxGroup.Clear
    myTotalData = UserForm1.TotalData
    For i = 2 To UBound(UserForm1.TotalData, 1)
       If myTotalData(i, 1) = Item_ListboxGroup.Value Then Name_ListboxGroup.AddItem UserForm1.TotalData(i, 2)
    Next
End Sub

速度马上就正常了。

跳转到最佳答案楼层

qh8600

不懂类，求学习

silenthunter

qh8600 发表于 2014-5-25 12:26
不懂类，求学习

假如有100个按钮，但他们的作用都一样，那写100次事件代码是不是很麻烦。

qh8600

silenthunter 发表于 2014-5-25 12:56
假如有100个按钮，但他们的作用都一样，那写100次事件代码是不是很麻烦。

类模块好不好学啊

香川群子

类模块中：
If UserForm1.TotalData(i, 1) = Item_ListboxGroup.Value Then

直接窗体代码：
If TotalData(i, 1) = Itemno_ListBox1.Value Then


这就是两者的差别。


类模块中代码改一下：
Private Sub Item_ListboxGroup_Click()
    Dim i
    Name_ListboxGroup.Clear
    myTotalData = UserForm1.TotalData
    For i = 2 To UBound(UserForm1.TotalData, 1)
       If myTotalData(i, 1) = Item_ListboxGroup.Value Then Name_ListboxGroup.AddItem UserForm1.TotalData(i, 2)
    Next
End Sub

速度马上就正常了。