Поменять Checkbox.value в цикле - VB

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

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

Необходимо в Excele поменять значение Value в Checkboxe, которых штук 20, в цикле. Что бы не прописывать в ручную каждую. Помогите.

Решение задачи: «Поменять Checkbox.value в цикле»

textual
Листинг программы
<font color="blue">Dim</font> obj <font color="blue">As</font> OLEObject

    <font color="blue">For</font> <font color="blue">Each</font> obj <font color="blue">In</font> Worksheets(<font color="teal">"Лист1"</font>).OLEObjects
        MsgBox obj.<font color="blue">Name</font>
        <font color="blue">If</font> obj.ProgId = <font color="teal">"Forms.CheckBox.1"</font> <font color="blue">Then</font>
            obj.<font color="blue">Object</font>.Value = <font color="darkblue"><b>1</b></font>
        <font color="blue">End</font> <font color="blue">If</font>
    <font color="blue">Next</font>

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


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

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

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