Подскажите, пожалуйста: в свойстве RowSource CombmBox прописан диапазон A2:A7. Можно ли значение этого свойства менять динамически при добавлении новых данных в А8:А...(записей в CombmBox) в столбце A?
Подскажите, пожалуйста: в свойстве RowSource CombmBox прописан диапазон A2:A7. Можно ли значение этого свойства менять динамически при добавлении новых данных в А8:А...(записей в CombmBox) в столбце A?oleg60
Все просто 1. Rows.Count - кол-во строк на листе. Обозначим "r". Может быть или 1 048 576 (для Excel от 2007 и выше), или 65 536 (для Excel 2003 и ниже) 2. Sheets(1).Cells(Rows.Count, 1) - если мы нигде больше при обращении к ячейкам не пишем Sheets(1), то и здесь не нужно, поэтому просто Cells(Rows.Count, 1) - ячейка строки к и столбца 1 (столбец А) 3. Sheets(1).Cells(Rows.Count, 1).End(xlUp) - эквивалентно тому, что мы встали в ячейку из п.2 и нажали Контрл+СтрелкаВверх - переносимся в первую снизу заполненную ячейку столбца А 4. Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row - определяем номер строки ячейки, найденной в п.3. Обозначим "r1" 5. Range("A2:A" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row) - диапазон от ячейки А2 до ячейки Аr1 6. Range("A2:A" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row).Value - значения из диапазона п.5 7. ComboBox1.List = Range("A2:A" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row).Value - комбобоксу с именем ComboBox1 назначаем список из п.6
Как сделать его рабочим для конкретного файла Excel, для конкретного комбобокса в UserForm?
Вы уже сможете разобраться самостоятельно. Если нет, то - Прочитайте Правила форума - Создайте свою тему согласно п.5q Правил форума - Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума
Все просто 1. Rows.Count - кол-во строк на листе. Обозначим "r". Может быть или 1 048 576 (для Excel от 2007 и выше), или 65 536 (для Excel 2003 и ниже) 2. Sheets(1).Cells(Rows.Count, 1) - если мы нигде больше при обращении к ячейкам не пишем Sheets(1), то и здесь не нужно, поэтому просто Cells(Rows.Count, 1) - ячейка строки к и столбца 1 (столбец А) 3. Sheets(1).Cells(Rows.Count, 1).End(xlUp) - эквивалентно тому, что мы встали в ячейку из п.2 и нажали Контрл+СтрелкаВверх - переносимся в первую снизу заполненную ячейку столбца А 4. Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row - определяем номер строки ячейки, найденной в п.3. Обозначим "r1" 5. Range("A2:A" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row) - диапазон от ячейки А2 до ячейки Аr1 6. Range("A2:A" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row).Value - значения из диапазона п.5 7. ComboBox1.List = Range("A2:A" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row).Value - комбобоксу с именем ComboBox1 назначаем список из п.6
Как сделать его рабочим для конкретного файла Excel, для конкретного комбобокса в UserForm?
Вы уже сможете разобраться самостоятельно. Если нет, то - Прочитайте Правила форума - Создайте свою тему согласно п.5q Правил форума - Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума_Boroda_