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

Answer 2

我有一个关于如何将代码连接到列表框的 RowSource 属性的问题？:

子加载Last10Rows() Dim sh 作为工作表，arr10 作为变体，lastRow 作为长 Set sh = ActiveSheet '在此处使用您需要的工作表。或许 工作表（“数据库”） lastRow = sh.Range("A" & Rows.Count).End(xlUp).row arr10 = sh.Range("A" & lastRow - 10 & ":A" & lastRow).Value Me.lstDatabase.list = arr10 结束子

谢谢