限制LitstBox控件显示指定行数的最新数据（3/3）

taller_20002023-11-03 9:06

实例需求：由于数据行数累加增加，控件加载的数据越来越多，每次用户都需要使用右侧滚动条拖动才能查看最新数据。

因此希望ListBox只加载最后10行数据（不含标题行），这样用户可以非常方便地选择数据，如下图所示。

前面两篇博客已经提供了两种实现方式。

限制LitstBox控件显示指定行数的最新数据（1/3）
限制LitstBox控件显示指定行数的最新数据（2/3）

对于第二种实现方式，用户可以选中ListBox控件的标题行，必需在事件代码种增加相应的异常处理，接下来给大家再解释一个解决方案。

在VBE中设计用户窗体时，在ListBox控件之上创建三个Label控件，模拟实现标题行，如下图所示。当然创建一个Label控件，通过空格控制标题字段的显示位置也是可以的。

示例代码如下。

Private Sub UserForm_Initialize()
    Dim arr(), lastRow As Long
    Dim j As Integer, i As Integer
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        ReDim arr(1 To IIf(lastRow > 10, 10, lastRow - 1), 2)
        If lastRow > 10 Then
            For i = 1 To 10
                For j = 1 To 3
                    arr(i, j - 1) = .Cells(lastRow - 10 + i, j).Text
                Next
            Next
        Else
            For i = 1 To lastRow - 1
                For j = 1 To 3
                    arr(i, j - 1) = .Cells(i + 1, j).Text
                Next
            Next
        End If
    End With
    With Me.ListBox1
        .ColumnHeads = False
        .ColumnCount = 3
        .ColumnWidths = "75;75;75"
        .List = arr()
    End With
End Sub

示例代码的主要逻辑与上一篇博客类似，这里不再赘述。

用户窗体中的ListBox如下图所示。