Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Заполнение Combobox данными из другого файла. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Заполнение Combobox данными из другого файла.
Egider Дата: Понедельник, 23.12.2019, 16:47 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Есть рабочий макрос заполнения комбобокса с другого листа одного файла.
Подскажите, как загрузить данные с листа другого файла, находящегося в той же папке.
[vba]
Код
Sub Корректор_данных()
    With UserForm1
        .ComboBox1.RowSource = "Лист2!A1:A15"
        .ComboBox2.RowSource = "Лист2!B1:B15"
           .Show
    End With
End Sub
[/vba]
СПАСИБО.


Пенсионер
 
Ответить
СообщениеЕсть рабочий макрос заполнения комбобокса с другого листа одного файла.
Подскажите, как загрузить данные с листа другого файла, находящегося в той же папке.
[vba]
Код
Sub Корректор_данных()
    With UserForm1
        .ComboBox1.RowSource = "Лист2!A1:A15"
        .ComboBox2.RowSource = "Лист2!B1:B15"
           .Show
    End With
End Sub
[/vba]
СПАСИБО.

Автор - Egider
Дата добавления - 23.12.2019 в 16:47
boa Дата: Понедельник, 23.12.2019, 17:23 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 559
Репутация: 167 ±
Замечаний: 0% ±

365
Egider,
Только файл должен быть открыт
[vba]
Код

Sub Корректор_данных()
    With UserForm1
        .ComboBox1.RowSource = "'[Book2.xlsb]Sheet1'!A1:A15"
        .ComboBox2.RowSource = "'[Book2.xlsb]Sheet1'!B1:B15"
        .Show
    End With
End Sub
[/vba]


 
Ответить
СообщениеEgider,
Только файл должен быть открыт
[vba]
Код

Sub Корректор_данных()
    With UserForm1
        .ComboBox1.RowSource = "'[Book2.xlsb]Sheet1'!A1:A15"
        .ComboBox2.RowSource = "'[Book2.xlsb]Sheet1'!B1:B15"
        .Show
    End With
End Sub
[/vba]

Автор - boa
Дата добавления - 23.12.2019 в 17:23
Egider Дата: Вторник, 24.12.2019, 14:01 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо тебе уважаемый boa за помощь. Оказалось все просто, как говориться: век живи, век учись. С наступающим Вас.


Пенсионер
 
Ответить
СообщениеСпасибо тебе уважаемый boa за помощь. Оказалось все просто, как говориться: век живи, век учись. С наступающим Вас.

Автор - Egider
Дата добавления - 24.12.2019 в 14:01
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!