Как при загрузки формы выставлять флажок в CheckBox по значению из ячейки

Пользователь

Сообщений: 47 Регистрация: 02.06.2025

16.08.2025 16:10:16

Здравствуйте подскажите пожалуйста. Как при загрузки формы выставлять флажок в CheckBox по значению из ячейки, например если в ячейке "EC6" стоит "Да", то поставить флажок при загрузки формы, если в ячейке "EC6" стоит "Нет", то убрать флажок при загрузки формы. Что нужно прописать при инициализации формы?

Код

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
  With Sheets("Нор_Док_МРК")
    .Range("EC6").Formula2R1C1 = "Да"
  End With
Else
  With Sheets("Нор_Док_МРК")
    .Range("EC6").Formula2R1C1 = "Нет"
  End With
End If
End Sub

Изменено: Valery37 - 16.08.2025 16:18:33

MikeVol

Пользователь

Сообщений: 784 Регистрация: 20.10.2020

16.08.2025 17:04:49

Код

Option Explicit

Private Sub UserForm_Initialize()

    With Sheets("Нор_Док_МРК")

        ' 1) Способ
        CheckBox2.Value = IIf(.Range("EC6").Value = "Да", True, False)

        '        ' 2) Способ
        '        ' Раскомментируйте следущую строку если будете использовать этот способ
        '        CheckBox2.Value = (.Range("EC6").Value = "Да")

        '        ' 3) Способ, он анологичен 1-му способу но там более соркащённый способ написан
        '        If .Range("EC6").Value = "Да" Then
        '            CheckBox2.Value = True
        '        ElseIf .Range("EC6").Value = "Нет" Then
        '            CheckBox2.Value = False
        '        End If

    End With

End Sub

Изменено: MikeVol - 16.08.2025 17:13:14 (Дополнил ответ)

Valery37 Пользователь Сообщений: 47 Регистрация: 02.06.2025	#3 16.08.2025 20:05:10 MikeVol, спасибо Вам большое!

Читают тему