Excel VBA - заполнить ComboBox с помощью динамического .ListFillRange - PullRequest
Новая
       12

Excel VBA - заполнить ComboBox с помощью динамического .ListFillRange

0 голосов
/ 19 октября 2018

У меня было много проблем при попытке заполнить комбинированный список на рабочем листе (не в пользовательской форме) динамическим диапазоном из другой рабочей книги.Я наконец-то получил его для заполнения, скопировав и вставив диапазон из другой рабочей книги в эту рабочую таблицу с последующим использованием .ListFillRange, однако я не могу понять, как кодировать этот .ListFillRange, чтобы он был динамическим.Вторая часть моего вопроса - возможно ли заполнить поле со списком, начиная с первой строки списка?Мне не нужна или не нужна пустая строка ввода пользователя вверху.

Вот что у меня есть: 

ActiveSheet.Shapes("ComboBox1").Select
With Selection
    .ListFillRange = "ReprintOld!$U$2:$U$20"
End With

Но я хочу что-то вроде этого: 

ActiveSheet.Shapes("ComboBox1").Select
With Selection
    .ListFillRange = "ReprintOld!$U$2:End(xlDown)"
End With

1 Ответ

0 голосов
/ 19 октября 2018 
ActiveSheet.Shapes("ComboBox1").Select
With Selection
    .ListFillRange = "ReprintOld!$U$2:$U$" & sheets("ReprintOld").range("U2").End(xlDown).Row
End With
...