Excel 用户窗体中列表框的动态行源

Question

我有一个关于 ms excel 中用户表单中的列表框控件的问题。

如何将搜索限制为列表框中最近的 10 条记录，而不是所有记录？

此代码如何适用于列表框行源？

.lstDatabase.RowSource = "Database! A & iRow-10 & :I" & iRow

Answer 1

请尝试此代码。它假定"lstDatabase"是您的列表框名称：

Sub LoadLast10Rows()
Dim sh As Worksheet, arr10 As Variant, lastRow As Long
Set sh = ActiveSheet 'use here the sheet you need. Maybe Sheets("Database")
lastRow = sh.Range("A" & Rows.Count).End(xlUp).row
arr10 = sh.Range("A" & lastRow - 10 & ":A" & lastRow).Value
Me.lstDatabase.list = arr10
End Sub