Dynami c источник строк для списка в форме пользователя 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