Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вставить список в комбобокс
 
#1
25.02.2019 13:09:05
Мяв!
Нужно в комбо (OLEObject) вставить список "1,2,3" без использования диапазона листа (и макросов).
Я сильно туплю, или это сделать нельзя?
 
 
 
#2
25.02.2019 14:41:49
RAN, List отсутствует в списке свойст, а следовательно нельзя. Андрей, видимо разработчики посчитали, что или это на листе а тогда ListRange , или в коде, тогда List.
По вопросам из тем форума, личку не читаю.
 
 
 
#3
25.02.2019 14:48:18
Миш, спасибо. Сам склонялся к такому.
А именованный диапазон (опять-же без листа), который - бы ListFillRange съел, сделать можно?
У меня не выходит.

PS ежели кто знает точно, что нельзя, черкните, плз, дабы я успокоился.
Изменено: RAN - 25.02.2019 14:50:08
 
 
 
#4
25.02.2019 14:53:35
Андрей, так в самом свойстве ответ ListFillRange . Был бы ListFillArray - другое дело.
Не хочется лист системный делать?
По вопросам из тем форума, личку не читаю.
 
 
 
#5
25.02.2019 17:22:19
Код
Sub SetComboBox2List()
  Dim o
  Set o = ActiveSheet.Shapes("ComboBox2")
  o.DrawingObject.Object.List = Array("R", "A", "N")
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
25.02.2019 17:27:42
Ігор Гончаренко,
Цитата
RAN написал:
без использования диапазона листа (и макросов).
;)
По вопросам из тем форума, личку не читаю.
 
 
 
#7
25.02.2019 17:29:18
Ігор Гончаренко, незачет  :)
 
 
 
#8
25.02.2019 17:31:06
получилось - и я торможу не слабо)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#9
25.02.2019 18:11:48
Хотя тоже любопытно
в дереве последняя часть отсутствует!?
Shapes("ComboBox2").DrawingObject.Object.List
Так что ЗАЧЕТ!

К экзаменам допущен.  :D
Изменено: RAN - 25.02.2019 18:27:50
 
 
 
#10
25.02.2019 18:44:52
Цитата
RAN написал:
Так что ЗАЧЕТ!
Тёзка пропустил, а в чём зачёт? После сохранения, закрытия и открытия там нет ничего... Каждый раз в Immediate набирать
Код
ActiveSheet.shapes("ComboBox2").DrawingObject.Object.List = Array("R", "A", "N")
:qstn:
Изменено: Андрей VG - 25.02.2019 18:46:15
 
 
 
#11
25.02.2019 18:54:03
Цитата
Андрей VG написал:
а в чём зачёт?
то, что нужно
Код
.List = Array("R", "A", "N")

это понятно
А вот где это воткнуть, с учетом
Цитата
RAN написал:
в дереве последняя часть отсутствует!?
Делаем
Код
Set o = ActiveSheet.Shapes("ComboBox2")

долго и упорно ищем там List, и..., не находим.
 
 
 
#12
25.02.2019 19:00:10
Надо просто через vbs или PiwerShell запускать и им назначать список :-).
По вопросам из тем форума, личку не читаю.
 
 
 
#13
25.02.2019 19:08:50
Цитата
RAN написал:
долго и упорно ищем там List
Может не там ищем? А если так спросить?
Код
?typename(ActiveSheet.shapes("ComboBox2").DrawingObject.Object)

или
Код
?typename(ActiveSheet.shapes("ComboBox2").OLEFormat.Object.Object)

Тогда находится чей это хвост List
 
 
 
#14
25.02.2019 19:28:02
Цитата
Андрей VG написал:
А если так спросить?
Для того, чтобы правильно спросить, сколько % ответа нужно знать?
БМВ, Миша, кончай изголяться!  :D

PS Судя по всему, основной вопрос закрыт. Всем Мурси.
Вилком по макросу.  8)
Изменено: RAN - 25.02.2019 19:35:35
 
 
 
#15
25.02.2019 19:33:21
Цитата
RAN написал:
изголяться!
а чего, и список есть и макроса нет - как и просил :-)
По вопросам из тем форума, личку не читаю.
 
 
 
Страницы: 1
Наверх