Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Заполнить ComboBox значениями из первого столбца умной таблицы.
 
#1
01.11.2018 16:13:53
Добрый день, Уважаемые!

Буду краток. Пример во вложении.
Не могу придумать, как заполнить ComboBox значениями из первого столбца умной таблицы. Естественно если в таблице увеличивается количество строк, надо, что бы и в ComboBox так же увеличивалось количество строк.
И второй момент. После того, как в ComboBox выбрано одно из значений, это значение нужно использовать для поиска в той же умной таблице и при нахождении этого значения в таблице в 1 столбце, взять значение из второго столбца и поместить в текстовое поле.

Спасибо большое за понимание, содействие и не ругайте сильно.
 
 
 
#2
01.11.2018 16:28:54
Код
Dim a()
a = Range("Таблица1[Столбец1]").Value
    UserForm.ComboBox1.List = a
 
 
 
#3
01.11.2018 16:42:22
См. вариант. Но можно ещё проще: в КомбоБокс писать 2 столбца (столбцы А и В), и в ТекстБокс выводить значение второго.
 
 
 
#4
01.11.2018 16:50:40
V, или я что то не так делаю, или не работает
 
 
 
#5
01.11.2018 16:54:49
смотрите.
 
 
 
#6
01.11.2018 17:01:07
V, Судя по всему у меня не работает по той причине, что умная таблица у меня на другой вкладке (странице) с названием "СПИСКИ".
Так ли это?
Как указать, на какой вкладке (Странице) расположена умная таблица*
 
 
 
#7
01.11.2018 17:08:08
Allleksey, мой вариант пробовали?
 
 
 
#8
01.11.2018 18:19:50
Юрий М, Ваш вариант посмотрел. Работает отлично. Но вот в коде разобраться у меня не получилось :(
Не нашел где ссылка на умную таблицу...

Как было где то на форуме написано "я балуюсь с макросами около недели"... так вот я с ними балуюсь и того меньше. Опыт, можно сказать, нулевой. Я не волшебник, я только учусь (С)
 
 
 
#9
01.11.2018 18:21:31
Цитата
Allleksey написал:
Не нашел где ссылка на умную таблицу
А её и нет - я просто перебираю диапазон.
 
 
 
#10
01.11.2018 18:27:41
Юрий М,
А если на пользовательском поле 3 поля со списком. Каждое заполняется из своей умной таблицы? И в каждой таблице так же производится поиск? У меня в планах помещение около 15 полей со списком.

Цитата
V написал:
смотрите.

Заработало!!! Нашел причину ошибки. Спасибо! Заполнять поля со списком из умных таблиц я научился (точнее меня научили). Теперь надо научиться осуществлять поиск по умным таблицам.
Изменено: Allleksey - 01.11.2018 18:36:58
 
 
 
#11
01.11.2018 18:37:09
"Пользовательское поле" - форма? )) Можно и три. А можно и один КомбоБокс заполнять разными данными. Всё зависит от задачи.
Но 15 КомбоБоксов - это прикольно )
 
 
 
#12
01.11.2018 18:47:10
Цитата
Юрий М написал: "Пользовательское поле"
UserForm

Цитата
Юрий М написал: Но 15 КомбоБоксов - это прикольно )
Возможно есть и другой вариант запроса такого количества данных, но пока я его не придумал.

Цитата
V написал: смотрите.
Анннн нет, не заработало. Пишет
Цитата
Method 'Range' of object '_global' failed
На что он ругается?
Изменено: Allleksey - 01.11.2018 22:46:14
 
 
 
#13
01.07.2020 08:46:07
Цитата
Юрий М написал:
Allleksey , мой вариант пробовали?
Добрый день, Юрий!
помогите пожалуйста....! Аналогичный пример...
Нужно для соответствующего выбранного значения в поле ComboBox1 формы UserForm1P в поля TextBox2 TextBox3 добавлялись соответствующие значения из таблицы 2 на листе "Склад". Пробовал адаптировать Ваш пример из предыдущих постов, но не получается... что-то делаю не так, а что не могу понять... (вернее знаний не хватает!). Буду очень признателен если объясните в чем проблема.. Ну или кто-нибудь подскажет, кто разобрался в этой теме....)
Изменено: Mikeger - 01.07.2020 08:50:55
 
 
 
#14
01.07.2020 11:06:10
Файл Ваш глючный и много лишнего. Поэтому набросал небольшой  свой примерчик.  :)  
 
 
 
#15
01.07.2020 11:31:03
Спасибо, Logistic... все работает....! Просто пытался адаптировать вариант Юрия.... с переборкой диапазонов, т.к. не нашел ничего лучше (но разобраться не смог)... но ваш гораздо проще и понятней для начинающих балбесов, вроде меня...!
 
 
 
#16
09.09.2021 11:58:31
Цитата
Logistic написал:
Файл Ваш глючный и много лишнего. Поэтому набросал небольшой  свой примерчик.    
Если оставить одну запись то появляется ошибка !!!
 
 
 
#17
09.09.2021 16:30:36
Цитата
Lil Rock написал:
Если оставить одну запись то появляется ошибка
потому что там уже не массив получается. Надо обрабатывать:
Код
Private Sub UserForm_Initialize()
    Dim a
    With Sheets("Лист2")
        a = .Range("B4", .Cells(Rows.Count, "B").End(xlUp)).Value
        If Not IsArray(a) Then
            ReDim a(1 To 1)
            a(1) = .Range("B4").Value
        End If
    End With
    Me.ComboBox1.List = a
End Sub
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
Страницы: 1
Наверх