Control Array в Excel. Как создать?

[MEMBER]

Имеется 71 чекбокс, расположены они на листе, можно сделать control array, или нет?
Требуется по нажатию кнопки снимать галки во всех чекбоксах.

[alibek]

Никак, в VBA нет индексированных контролов.
Можно сделать Controls("CheckBox" & I).Value = ...

[MEMBER]

Они не на форме расположены. На листе. А Controls относится к форме.
Или я чего не понял?

[RayShade]

Ну есть же в Excel коллекция Sheet.OLEObjects вот в ней и содержатся все контролы на листе в том числе. Вот по ней пробегайся и смотри, если тип объекта это контрол-чекбокс, то и сбрасывай галку.

[MEMBER]

Не умею.

[RayShade]

Код: Выделить всё

for each obj in activesheet.oleobjects
if typeof obj.object is checkbox then obj.object.value = false
next obj


[MEMBER]

Спасибо. Ваш вариант не работает, но он натолкнул меня на мысль.
Сделал, в общем.
И, чтобы не плодить тем, не подскажете, как определить номер ячейки в которой находится чекбокс.

[RayShade]

Хм, интересно, а что именно в нем не работает? Может, конечно, дело в разных версиях офиса, но в моем ХР это точно работает.



А номер ячейки узнается как TopLeftCell.Column и TopLeftCell.Row

[MEMBER]

В obj.object возвращается не тип контрола, а его значение.
Спасибо.

[RayShade]

RTFM! Про то, что такое TypeOf.

В смысле что в Object возвращается объект, сожержащийся в OLEObject. Его то тип и анализируется.

[MEMBER]

*всхлипывая*
Бааатькааа, не трави дуушууу...
Скажиииии...

[RayShade]

Что сказаааать тооооо!!

[MEMBER]

Как заставить вышеприведённый код работать.

[RayShade]

Он, это, работает

Офис то у тебя какой?

[MEMBER]

97

[RayShade]

Вопрос снят. Насчет 97 ничего сказать не могу. Раве что апгрейд посоветовать.

[MEMBER]

Ясно. 2000 подойдёт?

[RayShade]

Думаю, что да. У меня ХР SP1 но скорее всего в нем эта фича идентична тому, что в 2000.

[GSerg]

MEMBER, дружище! У меня тоже 97! Рулез форева!

Если ты использовал контролы с панели "Формы", то они в коллекции Shapes, а если с панели "Элементы управления" - то коллекция Controls.

[Vitaly1]

Есть еще один способ решение данной проблемы, но к сожалению деллигирования событий сделать по индексу объекта будет невозможно, но зато через цикл можно будет легко назначать однотипные значения свойств элементам.

'создаем массив указателей, можно и не Variant, а тип элемента
dim mas(71) as variant

'устанавливаем указатели
set mas(1) = checkBox1
.
.
set mas(71) = checkBox71

'а вот пример обработки
for i=1 to 71
mas(i).value =false
next i

[MEMBER]

Спасибо.
Я уже сделал. Совсем по другому.