Цикл for для checkbox'ов - VB
Формулировка задачи:
Здрасти всем. Нужна помощь в след. вопросе: у меня в экселе 250 checkbox'ов и надо сделать цикл такого вида:
for i=1 to 250
checkbox i . visible=false
next i
Проблема заключается в том, что система не понимает, что такое checkbox i.
Помогите плиззз.
for i=1 to 250
checkbox i . visible=false
next i
Проблема заключается в том, что система не понимает, что такое checkbox i.
Помогите плиззз.
Решение задачи: «Цикл for для checkbox'ов»
textual
Листинг программы
<font color="blue">Sub</font> HideUnhideEmbeddedCheckboxes(<font color="blue">ByVal</font> pstrProgID <font color="blue">As</font> <font color="blue">String</font>) <font color="blue">Dim</font> oOLEObjs <font color="blue">As</font> Excel.OLEObjects <font color="blue">Dim</font> o <font color="blue">As</font> Excel.OLEObject <font color="blue">Set</font> oOLEObjs = ActiveSheet.OLEObjects <font color="blue">For</font> <font color="blue">Each</font> o <font color="blue">In</font> oOLEObjs <font color="blue">If</font> o.progID = pstrProgID <font color="blue">Then</font> o.Visible = <font color="blue">Not</font> o.Visible <font color="blue">End</font> <font color="blue">If</font> <font color="blue">Next</font> o <font color="blue">End</font> <font color="blue">Sub</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д