Заполнение текстом поле со списком без диапазона!

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

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

Заполнение текстом поле со списком без диапазона! (Макросы/Sub)

Sobirjon

Дата: Суббота, 18.05.2019, 09:06 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 151

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

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

2016

Доброго времени суток, Дамы и Господа!
1) Создан 2 выпадающих списка из элемента ActivX (Поле со списком)
2) В первом элементе надо занести список не из диапазона а руками в самом коде, (это будет имена диапазонов для второго элемента)
3) Получить зависимый список из первого элемента

Актуальность вопроса сохраняется если будут ответы на:
1) Возможно ли занести текст в элементе "поле со списком" вручную в самом коде (значений не брать из диапазонов)
2) как превратить содержимое ячейки A5 в именованный диапазон для второго элемента

Надеюсь сумел сформировать понятный вопрос

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

Сообщение отредактировал Sobirjon - Суббота, 18.05.2019, 13:23

Ответить

китин

Дата: Суббота, 18.05.2019, 10:46 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

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

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

Excel 2007;2010;2016

Sobirjon, а как насчет Правил форума? или вы их до сих пор не читали?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Sobirjon

Дата: Суббота, 18.05.2019, 10:57 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 151

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

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

2016

китин,
Прошу прощения, я думал прикрепился :bag:

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

Ответить

Sobirjon

Дата: Понедельник, 20.05.2019, 08:42 | Сообщение № 4

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

Ранг: Форумчанин

Сообщений: 151

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

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

2016

На первый вопрос нашел ответ. Тем кто ищет выкладываю
[vba]

Код

Private Sub ComboBox1_DropButtonClick()

    ComboBox1.Clear
    ComboBox1.AddItem "Хром Пластик"
    ComboBox1.AddItem "Белый Пластик"
    ComboBox1.AddItem "Шампань шлифованный Пластик"
    ComboBox1.AddItem "Чёрный Пластик"
    ComboBox1.AddItem "Хром Алюминий"
    ComboBox1.AddItem "Белый Алюминий"
    ComboBox1.AddItem "Шампань шлифованная Алюминий"
    ComboBox1.AddItem "Чёрный Алюминий"

End Sub

[/vba]
А я пошел искать ответ на второй вопрос

Ответить

Sobirjon

Дата: Понедельник, 20.05.2019, 08:46 | Сообщение № 5

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

Ранг: Форумчанин

Сообщений: 151

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

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

2016

не долго радовался. Не заполняется :crazy:

Ответить

_Boroda_

Дата: Понедельник, 20.05.2019, 10:19 | Сообщение № 6

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Попробуйте так (если я правильно понял вопрос)
[vba]

Код

Private Sub ComboBox1_Change()
    With ComboBox2
        .Clear
        If ComboBox1.Value = "Сушка_Верхняя_База" Then
            .List = Array("450мм, Siena, хром, AFF (Акция) СтА", _
            "600мм, Siena, хром, AFF (Акция) СтА", _
            "111", "222", "...")
        ElseIf ComboBox1.Value = "Сушка_Нижняя_База" Then
            .AddItem "Сушка выдвижная Vibo в модуль на 600мм"
            .AddItem "56226 Сушилка в нижнюю базу 600 мм CARMA, с доводчиком, хром"
            '...
        Else
            Exit Sub
        End If
        .Select
    End With
End Sub

Private Sub ComboBox1_DropButtonClick()
    With ComboBox1
        If .Value = "" Then
            .Clear
            .AddItem "Сушка_Верхняя_База"
            .AddItem "Сушка_Нижняя_База"
        End If
    End With
End Sub

[/vba]

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

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

Ответить

Sobirjon

Дата: Четверг, 23.05.2019, 04:52 | Сообщение № 7

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

Ранг: Форумчанин

Сообщений: 151

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

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

2016

_Boroda_, Спасибо за отклик. Почти правильно.
Если не совсем понятен вопрос, попробую с конкретным примером. Дале дам пояснения почему почти....
Вопрос был:
1) ComboBox1 имеет в своем "контейнере" записи которые мы вписываем в самом коде (макросе) при раскрытые списка должны выпасть списки:
• Сушка_Верхняя_База (Это имя диапазона

Код

=Лист2!A2:C16

в файле примере уже создан)
• Сушка_Нижняя_База (Это имя диапазона

Код

=Лист2!A18:C22

в файле примере уже создан)
2) ComboBox2 получает имя диапазона из ComboBox1 и формирует список относящийся выбранному имени диапазона в ComboBox1.
Например, когда в ComboBox1 выбрали из списка Сушка_Верхняя_База, тогда список из диапазона

Код

=Лист2!A2:A16

,
если ComboBox1 = Сушка_Нижняя_База. тогда список

Код

=Лист2!A18:A22

Ответ на почему "почти":
1) Когда открыл файл, на ComboBox1 при раскрытие списка, не удалось выбрать "Сушка_Верхняя_База".
там только заполненное значение "Сушка_Нижняя_База". Изучая код понял что макрос срабатывает только тогда,
когда он пустой. Чтобы выбрать "Сушка_Верхняя_База" надо очистить ComboBox1 это не всегда удобно
2)

Цитата Sobirjon, 18.05.2019 в 09:06, в сообщении № 1 ()

(это будет имена диапазонов для второго элемента)

Цитата Sobirjon, 18.05.2019 в 09:06, в сообщении № 1 ()

3) Получить зависимый список из первого элемента

ComboBox2 имеет значения в своем контейнере заполненный в коде список, а список должен сформироваться и именованного диапазона зависимый из ComboBox1

Код

=Лист2!A2:C16

в файле примере уже создан)
• Сушка_Нижняя_База (Это имя диапазона

Код

=Лист2!A18:C22

Код

=Лист2!A2:A16

,
если ComboBox1 = Сушка_Нижняя_База. тогда список

Код

=Лист2!A18:A22

Цитата Sobirjon, 18.05.2019 в 09:06, в сообщении № 1 ()

(это будет имена диапазонов для второго элемента)

Цитата Sobirjon, 18.05.2019 в 09:06, в сообщении № 1 ()

3) Получить зависимый список из первого элемента

ComboBox2 имеет значения в своем контейнере заполненный в коде список, а список должен сформироваться и именованного диапазона зависимый из ComboBox1Sobirjon

Ответить

Сообщение_Boroda_, Спасибо за отклик. Почти правильно.
Если не совсем понятен вопрос, попробую с конкретным примером. Дале дам пояснения почему почти....
Вопрос был:
1) ComboBox1 имеет в своем "контейнере" записи которые мы вписываем в самом коде (макросе) при раскрытые списка должны выпасть списки:
• Сушка_Верхняя_База (Это имя диапазона

Код

=Лист2!A2:C16

в файле примере уже создан)
• Сушка_Нижняя_База (Это имя диапазона

Код

=Лист2!A18:C22

Код

=Лист2!A2:A16

,
если ComboBox1 = Сушка_Нижняя_База. тогда список

Код

=Лист2!A18:A22

Цитата Sobirjon, 18.05.2019 в 09:06, в сообщении № 1 ()

(это будет имена диапазонов для второго элемента)

Цитата Sobirjon, 18.05.2019 в 09:06, в сообщении № 1 ()

3) Получить зависимый список из первого элемента

Автор - Sobirjon
Дата добавления - 23.05.2019 в 04:52

_Boroda_

Дата: Четверг, 23.05.2019, 10:35 | Сообщение № 8

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Ох, как запутано у вас все

Так? Там еще в модуле книги немного есть

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

Ответить

Sobirjon

Дата: Суббота, 25.05.2019, 08:28 | Сообщение № 9

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

Ранг: Форумчанин

Сообщений: 151

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

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

2016

_Boroda_, Не хочет почему-то работать (( при первом запуске выдал какую-то ошибку, к сожалению не успел запомнить, при втором запуске уже ошибка не возникает а так же макрос тупо не реагирует на нажатие :no: