填充 ListBox 时宏卡在 For Each 循环中

Question

我有以下代码来填充列表框：

For Each cellValue In Sheet7.Range("A:A").Cells
    If cellValue.value = Get_ClientID(TextBox1.Text) Then
        equipmentName = Get_EquipmentName(Sheet7.Cells(cellValue.row, 2))
        numeroCalibracao = TextBox6.Text
        ultimacalibracao = TextBox5.Text
        ListBox1.AddItem equipmentName
        ListBox1.List(ListBox1.ListCount, 1) = numeroCalibracao
        ListBox1.List(ListBox1.ListCount, 2) = ultimacalibracao
    End If
Next

问题在于，Excel 在运行时没有响应，甚至 Ctrl + Break 都无法跳出循环。它应该根据表 7 上匹配条目的数量填充列表框。我尝试用数字替换 ListBox1.Listcoun，但它仍然不起作用。我错过了什么？

信息：

• Get_ClientID 是一个接受字符串，返回整数的函数；
• Get_EquipmentName 是一个接受整数，返回字符串的函数；
• cell value、equipmentName、numeroCalibracao 和 ultimaCalibracao 是变量 Dimed 在 sub 开头。

如果需要更多信息，请告诉我，我会提供。

Answer 1

问题是你的主循环，你正在遍历A列中的每一行。我建议你将范围设置为"Range("A1:A" & LastRow)，其中LastRow是你的最后一行，例如：

LastRow = Range("A:A").Find(what:="*", After:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).row

如果仍然没有响应，请在循环中添加 DoEvents。