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

Вход

Регистрация

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

 

= Мир MS Excel/Список в Combobox с изменяющимися условиями - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Список в Combobox с изменяющимися условиями (Макросы/Sub)
Список в Combobox с изменяющимися условиями
AVI Дата: Вторник, 17.07.2018, 05:27 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 7 ±
Замечаний: 0% ±

Excel 2016
Добрый день!

На главной форме на странице "Заказ у поставщика по договору" есть сomboBox "Поставщик" (cbx_OrderSuppl). В это поле попадает поставщик, у которого есть указанный в сomboBox "Медикаменты" (cbx_MainNameMedic) медикамент. Указанный поставщик берется из таблицы "Договоры_tb" на странице "Медикаменты" из столбца "Поставщик". Я знаю как найти медкамент, который был выбран ранее и отобразить одного поставщика без каких-либо дополнительных условий. А как сделать так, что бы в случае, если этот медикамент есть у нескольких поставщиков, то в сomboBox'е "Поставщик" (cbx_OrderSuppl) появлялась возможность выбора из этих поставщиков, при условии, что у них в столбце "остаток" цифра больше нуля?

В http://www.excelworld.ru/forum/10-38516-1 теме Уважаемый Борода уже делал такое, но с помощью формул и макроса, но я не понимаю как сделанное перенести в userfom'у.

Очень надеюсь, что понятно объяснил
К сообщению приложен файл: __1_.xlsb(91.2 Kb)
 
Ответить
СообщениеДобрый день!

На главной форме на странице "Заказ у поставщика по договору" есть сomboBox "Поставщик" (cbx_OrderSuppl). В это поле попадает поставщик, у которого есть указанный в сomboBox "Медикаменты" (cbx_MainNameMedic) медикамент. Указанный поставщик берется из таблицы "Договоры_tb" на странице "Медикаменты" из столбца "Поставщик". Я знаю как найти медкамент, который был выбран ранее и отобразить одного поставщика без каких-либо дополнительных условий. А как сделать так, что бы в случае, если этот медикамент есть у нескольких поставщиков, то в сomboBox'е "Поставщик" (cbx_OrderSuppl) появлялась возможность выбора из этих поставщиков, при условии, что у них в столбце "остаток" цифра больше нуля?

В http://www.excelworld.ru/forum/10-38516-1 теме Уважаемый Борода уже делал такое, но с помощью формул и макроса, но я не понимаю как сделанное перенести в userfom'у.

Очень надеюсь, что понятно объяснил

Автор - AVI
Дата добавления - 17.07.2018 в 05:27
_Boroda_ Дата: Вторник, 17.07.2018, 09:59 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13254
Репутация: 5458 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?

[vba]
Код
Private Sub cbx_MainNameMedic_Change()
    Dim ar, i
cbx_OrderSuppl.Clear
    If cbx_MainNameMedic.Value = "" Then Exit Sub
    ar = Range("Договоры_tb")
    For i = 1 To UBound(ar)
        If ar(i, 1) = cbx_MainNameMedic.Value Then
            If ar(i, 9) > 0 Then
                cbx_OrderSuppl.AddItem ar(i, 2)
            End If
        End If
    Next i
End Sub
[/vba]

*Дробавлено
Забыл очистку. Дописал. Файл перевложил
К сообщению приложен файл: _1_1.xlsb(93.6 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?

[vba]
Код
Private Sub cbx_MainNameMedic_Change()
    Dim ar, i
cbx_OrderSuppl.Clear
    If cbx_MainNameMedic.Value = "" Then Exit Sub
    ar = Range("Договоры_tb")
    For i = 1 To UBound(ar)
        If ar(i, 1) = cbx_MainNameMedic.Value Then
            If ar(i, 9) > 0 Then
                cbx_OrderSuppl.AddItem ar(i, 2)
            End If
        End If
    Next i
End Sub
[/vba]

*Дробавлено
Забыл очистку. Дописал. Файл перевложил

Автор - _Boroda_
Дата добавления - 17.07.2018 в 09:59
AVI Дата: Вторник, 17.07.2018, 10:06 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 7 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, Блин, как ВЫ это делаете...
 
Ответить
Сообщение_Boroda_, Блин, как ВЫ это делаете...

Автор - AVI
Дата добавления - 17.07.2018 в 10:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Список в Combobox с изменяющимися условиями (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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