Цикл for для checkbox'ов - VB

Узнай цену своей работы

Формулировка задачи:

Здрасти всем. Нужна помощь в след. вопросе: у меня в экселе 250 checkbox'ов и надо сделать цикл такого вида:
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>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5