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

Вход

Регистрация

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

 

= Мир MS Excel/Вывод документов согласно выбранным атрибутам. ComboBox - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод документов согласно выбранным атрибутам. ComboBox (Макросы/Sub)
Вывод документов согласно выбранным атрибутам. ComboBox
kikim Дата: Четверг, 24.07.2014, 11:09 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте Уважаемые Эксперты. Решил облегчить немного работу с формирование документов, концепция и наброски есть, но в силу слабых знаний VBA реализовать задуманное не получается. Суть такова: есть список документов с атрибутами (1 лист) и список атрибутов (2 лист). Файл-пример прикреплен. Нужно реализовать вывод документов согласно выбранным атрибутам. Пока получилось сделать только 1 ComboBox в одной форме. Вот как должно выглядеть

Вот код для 1 ComboBox'a
[vba]
Код
Private Sub UserForm_Initialize()
                  Dim Organizacia As String
                  Dim a As Byte

                  For a = 2 To 4 Step 1
                      Organizacia = Cells(a, 1)
                      NapravlenieSert.AddItem Organizacia
                  Next a
                  End Sub
[/vba]
К сообщению приложен файл: 5574069.xlsm (21.0 Kb) · 7141380.jpg (23.6 Kb)


Сообщение отредактировал kikim - Четверг, 24.07.2014, 12:09
 
Ответить
СообщениеЗдравствуйте Уважаемые Эксперты. Решил облегчить немного работу с формирование документов, концепция и наброски есть, но в силу слабых знаний VBA реализовать задуманное не получается. Суть такова: есть список документов с атрибутами (1 лист) и список атрибутов (2 лист). Файл-пример прикреплен. Нужно реализовать вывод документов согласно выбранным атрибутам. Пока получилось сделать только 1 ComboBox в одной форме. Вот как должно выглядеть

Вот код для 1 ComboBox'a
[vba]
Код
Private Sub UserForm_Initialize()
                  Dim Organizacia As String
                  Dim a As Byte

                  For a = 2 To 4 Step 1
                      Organizacia = Cells(a, 1)
                      NapravlenieSert.AddItem Organizacia
                  Next a
                  End Sub
[/vba]

Автор - kikim
Дата добавления - 24.07.2014 в 11:09
Pelena Дата: Четверг, 24.07.2014, 14:21 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19199
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
У Вас в файле список на первом листе пустой, нечего фильтровать. И результат в каком виде должен быть, тоже покажите


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
У Вас в файле список на первом листе пустой, нечего фильтровать. И результат в каком виде должен быть, тоже покажите

Автор - Pelena
Дата добавления - 24.07.2014 в 14:21
kikim Дата: Четверг, 24.07.2014, 16:22 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
С боксами проблему решил, осталась проблема фильтрации и вывода.....
К сообщению приложен файл: 4424763.xlsm (31.9 Kb)


Сообщение отредактировал kikim - Четверг, 24.07.2014, 16:36
 
Ответить
СообщениеС боксами проблему решил, осталась проблема фильтрации и вывода.....

Автор - kikim
Дата добавления - 24.07.2014 в 16:22
Pelena Дата: Пятница, 25.07.2014, 11:23 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19199
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Посмотрите такой вариант.
ВАЖНО: названия атрибутов должны точно совпадать с шапкой таблицы на листе Список документов

UPD. Второй вариант с последовательным выводом атрибутов
К сообщению приложен файл: 0730436.xlsm (41.9 Kb) · 5429271.xlsm (44.6 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПосмотрите такой вариант.
ВАЖНО: названия атрибутов должны точно совпадать с шапкой таблицы на листе Список документов

UPD. Второй вариант с последовательным выводом атрибутов

Автор - Pelena
Дата добавления - 25.07.2014 в 11:23
kikim Дата: Пятница, 25.07.2014, 14:46 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Спасибо за Ваш вариант, очень помогли!
 
Ответить
СообщениеPelena, Спасибо за Ваш вариант, очень помогли!

Автор - kikim
Дата добавления - 25.07.2014 в 14:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод документов согласно выбранным атрибутам. ComboBox (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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