Поочерёдный выбор элементов activeX в цикле

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поочерёдный выбор элементов activeX в цикле (Макросы/Sub)

Alexander_Galizin

Дата: Четверг, 10.09.2015, 13:00 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2013

Добрый день.
У меня имеются 30 полей со списком Combobox1, Combobox2......Combobox30
Мне необходимо присвоить значение Combobox1.text="-----" и так для всех кнопок на листе. Я могу сделать это для каждой в отдельности в макросе:

[vba]

Код

sub Макрос1()
Combobox1.text="-----"
Combobox2.text="-----"
.
.
.
Combobox30.text="-----"
end sub

[/vba]

Помогите пожалуйста это сделать в како-нибудь цикле, лучше for next, который перебирал бы все эти Combobox
[moder]Вы мое терпение испытываете, да? Зачем Вы еще одну тему создали? п. 5f Правил форума.
А с названием теперь все хорошо. И ветка форума правильно выбрана. Осталось еще разобраться с обрамлением кода макроса спецтегами http://www.excelworld.ru/forum/5-2708-1 и приложением файла.
А ту тему я закрываю.

Сообщение отредактировал _Boroda_ - Четверг, 10.09.2015, 13:14

Ответить

Udik

Дата: Четверг, 10.09.2015, 15:33 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

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

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

Excel 2016 х 64

Доступно только для пользователей
[moder]Вот когда автор оформит свой вопрос по правилам, тогда и будем отвечать. А пока не безобразничайте.

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Ответить

Alexander_Galizin

Дата: Понедельник, 14.09.2015, 16:13 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2013

Udik, Добрый день.
Файл в котором надо сделать опрос контролек в цикле.

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

Ответить

Udik

Дата: Понедельник, 14.09.2015, 20:05 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

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

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

Excel 2016 х 64

Ну так например
[vba]

Код

Public Sub test()
Dim i As Byte
Const maxCom As Byte = 6

For i = 1 To maxCom
Worksheets("basa").OLEObjects("ComboBox" & i).Object.Value = i
Next i

End Sub

[/vba]

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

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Ответить

SLAVICK

Дата: Вторник, 15.09.2015, 08:58 | Сообщение № 5

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

Ранг: Старожил

Сообщений: 2290

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

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

2019

Alexander_Galizin, Вы замечание модератора исправлять собираетесь?
Код написан, но правила нарушать нельзя

Udik, автор темы так и не исправил 1-е сообщение. ... ЗЫ если их будет неизвестное количество?

Иногда все проще чем кажется с первого взгляда.

Ответить

Pelena

Дата: Вторник, 15.09.2015, 09:33 | Сообщение № 6

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

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

Сообщений: 19197

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

Замечаний: ±

Excel 365 & Mac Excel

Теги проставила сама в обмен на замечание.
Остальные нарушения ТС устранил, так что можно отвечать

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

SLAVICK

Дата: Вторник, 15.09.2015, 09:41 | Сообщение № 7

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

Ранг: Старожил

Сообщений: 2290

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

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

2019

Ну тогда вот

:
1-й вариант через Shapes:
[vba]

Код

Sub TEST()
Dim s As Shape, c As ComboBox, sh As Worksheet, i&
Set sh = ActiveSheet
i = 2
For Each s In sh.Shapes
     On Error GoTo next_
     If Not s.Name Like "ComboBox*" Then GoTo next_
     Set c = s.DrawingObject.Object
     i = i + 1: Cells(i, 10) = c.Name:  c.Text = Cells(i, 11)
next_:
Next
End Sub

[/vba]
2-й вариант почти как у Udik

:
[vba]

Код

Sub TEST_2()
Dim s As OLEObject, sh As Worksheet, i&
Set sh = ActiveSheet
i = 2
For Each s In sh.OLEObjects
i = i + 1: Cells(i, 13) = s.Name: s.Object.Text = Cells(i, 14)
Next
End Sub

[/vba]
PS Исправил сообщение