Данные для выпадающих списков в LisctBox из разных столбцов - Мир MS Excel

Регистрация

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

= Мир MS Excel/Данные для выпадающих списков в LisctBox из разных столбцов - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Данные для выпадающих списков в LisctBox из разных столбцов (Макросы/Sub)

Данные для выпадающих списков в LisctBox из разных столбцов

Дата: Пятница, 28.10.2022, 15:37 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

2013

Добрый день! Файл за основу взял отсюда: http://www.excelworld.ru/forum/10-24869-1#190013. Скажу сразу в макросах не соображаю, изменял под себя по примерам. Но дальше не пойму. Мне необходимо чтобы в ячейке D4 появились данные из вкладки "База данных" столбец D. А также хотелось бы еще один выпадающий список в ячейке F3 с данными из вкладки РД столбец C. Заранее спасибо.

К сообщению приложен файл: ___.xlsm (58.3 Kb)

Ответить

Дата: Пятница, 28.10.2022, 17:18 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 372

Репутация: 79 ±

Замечаний: 0% ±

MSO LTSC 2021 EN

alex1809, Доброго времени суток. Если я правильно вас понял

Цитата alex1809, 28.10.2022 в 15:37, в сообщении № 1 (

)

ячейке D4 появились данные из вкладки "База данных" столбец D. А также хотелось бы еще один выпадающий список в ячейке F3 с данными из вкладки РД столбец C

То ниже рабочий вариант.

К сообщению приложен файл: 28.10.2022.xlsm (72.0 Kb)

Ученик.
Одесса - Украина

Ответить

Дата: Пятница, 28.10.2022, 17:30 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

2013

MikeVol, немножко не так, в ячейке D3 список так и остается, надо добавить в D4. Итого три списка на листе.

Ответить

Дата: Пятница, 28.10.2022, 18:01 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 372

Репутация: 79 ±

Замечаний: 0% ±

MSO LTSC 2021 EN

alex1809, Так?

К сообщению приложен файл: 28.10.2022_v2.xlsm (81.0 Kb)

Ученик.
Одесса - Украина

Ответить

Дата: Пятница, 28.10.2022, 18:19 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

2013

MikeVol, а можно подправить поиск. Как в примере, по любому сочетанию(положению) букв, а не по первым цифрам(буквам).

Ответить

Дата: Суббота, 29.10.2022, 11:36 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 19392

Репутация: 4537 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата alex1809, 28.10.2022 в 18:19, в сообщении № 5 (

)

по любому сочетанию(положению) букв, а не по первым цифрам(буквам)

замените везде строчку [vba]

Код

If txt = Mid(x(i, 1), 1, lt) Then s = s & x(i, 1) & "~"

[/vba] на [vba]

Код

If InStr(x(i, 1), txt) > 0 Then s = s & x(i, 1) & "~"

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Суббота, 29.10.2022, 11:59 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 372

Репутация: 79 ±

Замечаний: 0% ±

MSO LTSC 2021 EN

alex1809, Доброго.

К сообщению приложен файл: 29.10.2022.xlsm (83.4 Kb)

Ученик.
Одесса - Украина

Ответить

Дата: Суббота, 29.10.2022, 12:02 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

2013

Pelena, MikeVol, спасибо большое все получилось!

Ответить

Данные для выпадающих списков в LisctBox из разных столбцов (Макросы/Sub)

Страница 1 из 1
1

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