关于公示网站建设的计划书,Wordpress 采集 gofair,怎么交换友情链接,街舞舞团公司做网站实例需求#xff1a;由于数据行数累加增加#xff0c;控件加载的数据越来越多#xff0c;每次用户都需要使用右侧滚动条拖动才能查看最新数据。 因此希望ListBox只加载最后10行数据#xff08;不含标题行#xff09;#xff0c;这样用户可以非常方便地选择数据#xff…实例需求由于数据行数累加增加控件加载的数据越来越多每次用户都需要使用右侧滚动条拖动才能查看最新数据。 因此希望ListBox只加载最后10行数据不含标题行这样用户可以非常方便地选择数据如下图所示。 前面两篇博客已经提供了两种实现方式。 限制LitstBox控件显示指定行数的最新数据1/3 限制LitstBox控件显示指定行数的最新数据2/3 对于第二种实现方式用户可以选中ListBox控件的标题行必需在事件代码种增加相应的异常处理接下来给大家再解释一个解决方案。
在VBE中设计用户窗体时在ListBox控件之上创建三个Label控件模拟实现标题行如下图所示。当然创建一个Label控件通过空格控制标题字段的显示位置也是可以的。 示例代码如下。
Private Sub UserForm_Initialize()Dim arr(), lastRow As LongDim j As Integer, i As IntegerWith ActiveSheetlastRow .Cells(.Rows.Count, 1).End(xlUp).RowReDim arr(1 To IIf(lastRow 10, 10, lastRow - 1), 2)If lastRow 10 ThenFor i 1 To 10For j 1 To 3arr(i, j - 1) .Cells(lastRow - 10 i, j).TextNextNextElseFor i 1 To lastRow - 1For j 1 To 3arr(i, j - 1) .Cells(i 1, j).TextNextNextEnd IfEnd WithWith Me.ListBox1.ColumnHeads False.ColumnCount 3.ColumnWidths 75;75;75.List arr()End With
End Sub示例代码的主要逻辑与上一篇博客类似这里不再赘述。
用户窗体中的ListBox如下图所示。
