excel - 当 ListBox.RowSource 不返回任何结果时，允许列表框不显示任何结果

Question

我目前正在使用以下代码在表单中填充 ListBox:

'Populate In-Form Table
With ListBox_InFormTable
   .ColumnCount = 4
   .ColumnWidths = "100;100;100;50"
   .RowSource = ws.Range("MasterDataTable").SpecialCells(xlCellTypeVisible).Address
End With

但是，我也在积极过滤列表框中显示的内容以及表单中的其他字段。这很好用，除非我过滤掉所有结果。而不是收到一条错误消息:“未找到任何单元格。”我宁愿把表格表格留空。

任何帮助将不胜感激，我一直在努力解决这个问题。

谢谢!

Answer 1

你可以试试这样的...

Dim n As Long
With ListBox_InFormTable
   .ColumnCount = 4
   .ColumnWidths = "100;100;100;50"
   On Error Resume Next
   n = ws.Range("MasterDataTable").SpecialCells(xlCellTypeVisible).Rows.Count
   On Error GoTo 0
   If n > 0 Then
    .RowSource = ws.Range("MasterDataTable").SpecialCells(xlCellTypeVisible).Address
   End If
End With

如果您正在过滤 Excel 表格，您可以按如下方式计算过滤后的行...

Dim n As Long
With ListBox_InFormTable
   .ColumnCount = 4
   .ColumnWidths = "100;100;100;50"
   On Error Resume Next
   n = ActiveSheet.ListObjects("MasterDataTable").Range.Resize(, 1).SpecialCells(xlCellTypeVisible).Count
   On Error GoTo 0
   If n > 0 Then
    .RowSource = ws.Range("MasterDataTable").SpecialCells(xlCellTypeVisible).Address
   End If
End With
End Sub