Программное изменение состояния CheckBox

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Программное изменение состояния CheckBox (Макросы/Sub)

Sashagor1982

Дата: Воскресенье, 07.11.2021, 12:54 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 287

Репутация: -6 ±

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

Excel 2007

Добрый день, необходимо программно поменять состояние CheckBox, в приложенном файле примере изменение происходит следующим образом

,
т.е. значение серое, для того что бы значение перешло в активный режим необходимо кликнуть на CheckBox

Значение с Value соответственно не меняется, подскажите каким образом поправить код?

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

Ответить

Pelena

Дата: Воскресенье, 07.11.2021, 13:31 | Сообщение № 2

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

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

Сообщений: 19182

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

Замечаний: ±

Excel 365 & Mac Excel

Непонятно, что надо сделать. Чтобы изначально чекбокс был активен? Или чтобы он был снят? Если он должен программно меняться, то в какой момент?

Ответ на вопрос темы:
[vba]

Код

UnArmy = True
UnArmy = False

[/vba]

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

Ответить

Sashagor1982

Дата: Воскресенье, 07.11.2021, 15:32 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 287

Репутация: -6 ±

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

Excel 2007

Pelena, Вот в этой части кода программа берет значение из умной таблицы и если стоит "+", то активирует CheckBox, но он почему то активируется серым
[vba]

Код

Call objectControlValues(objControlChecked, "CheckBox_UnArmy", "Юнармия")

[/vba]

[vba]

Код

Private Sub objectControlValues(ByRef objControlChecked As Control, name As String, columnNames As String)
On Error Resume Next
    Dim lineListTable As ListObject
        Set lineListTable = ThisWorkbook.Worksheets("List").ListObjects("tblOrder")
    If (objControlChecked.name = name) Then
        If objControlChecked.Value = "+" Then
            objControlChecked.Value = True
        Else
            objControlChecked.Value = Intersect(mainLine, lineListTable.ListColumns(columnNames).DataBodyRange)
        End If
    End If
On Error GoTo 0
End Sub

[/vba]