VBA Excel：仅在列表框中显示可见的单元格

Question

我有下面提到的代码，我试图将过滤后的单元格仅加载到列表框中，但我不知道为什么下面提到的代码不起作用。

传说：

• PatternSearchButton是一个按钮
• PatternTextBox是一个文本框，用户可通过该文本框输入一个值，供工作表过滤。

• WsLookup是选择工作表的功能（完全功能）

   Private Sub PatternSearchButton_Click() Dim PatternInput As String, PatternCounter As Double, WsSelector As Worksheet PatternInput = PatternTextBox.Value Set WsSelector = WsLookup(GSMListType.Value) WsSelector.Range("F:F").AutoFilter Field:=1, Criteria1:=PatternInput PatternCounter = Application.WorksheetFunction.Subtotal(4, WsSelector.Range("F:F")) With AvailableNumberList .Clear For k = 2 To PatternCounter + 1 .AddItem WsSelector.Range("A" & k).SpecialCells(xlCellTypeVisible).Value Next k End With End Sub 

Answer 1

您正在使用PatternCounter作为For .. Next上限For .. Next ，可以使用SUBTOTAL的MAX （例如4 ）子功能进行设置。 这可能适用于未过滤列表中的序列号，但在过滤列表中不太可能准确。 使用COUNT （ 2/102 ）或COUNTA （ 3/103 ）子功能可能更合适。

您正在使用SUBTOTAL(4, ...)所以我认为您正在处理数字。 对F列中可见单元格上的数字进行直接计数，然后修改代码的其余部分以使其与此相似。

    PatternCounter = Application.WorksheetFunction.Subtotal(2, WsSelector.Range("F:F"))
    With WsSelector.cells(1,1).currentregion.offset(1,0).SpecialCells(xlCellTypeVisible)
        AvailableNumberList.Clear
        For k = 1 To PatternCounter
            AvailableNumberList.AddItem .cells(k, 1).Value
        Next k
    End With

Answer 2

该问题可能源于以下事实：将特殊单元格的值添加到列表框中，如果该单元格是隐藏的，则该单元格可能不存在。

尝试使用For循环的主体：

' ... previous code '
If Not WsSelector.Rows(k).EntireRow.Hidden Then
        .AddItem WsSelector.Cells(k, 1).Value
End If
' rest of the code ... '

另外，请确保AvailableNumberList指向代码中的正确对象。