Установите значение кнопки опции в true на основе значения ячейки

Question

У меня есть лист Excel "TestSheet" и пользовательская форма frmTestForm, с кнопкой опции с именем OptionButton1.Я добавил кнопку вручную из редактора, так что я считаю, что это кнопка опции Form Controls.Я хочу включить (то есть показать как выбранное) кнопку выбора, основанную на значении ячейки C2 на листе «TestSheet».

        Sub Test_Form()
            Worksheets("TestSheet").Activate
            Dim OptionButton1 As OptionButton
            Dim myopt As OptionButton

            Set myopt = OptionButton1

            With frmTest_Form
                If Range("C2").Value = 5 Then
                    OptionButton1.Value = True   'Errors here
                End If
            End With
       frmTest_Form.Show
       End Sub

Сообщение об ошибке: «Переменная объекта или С блокировкой не установлено»,что, я полагаю, указывает на то, что кнопка опции не определена должным образом, но я не знаю, как это исправить.Заранее спасибо за помощь.

Я отредактировал код, чтобы отразить оба комментария.У меня все еще есть вменяемое сообщение об ошибке «Переменная объекта или Без блокировки» в строке OptionButton1.Value = True.Еще раз спасибо за вашу помощь.

Answer 1

Работай!Код изменился следующим образом:

        Sub Test_Form()
             Dim OptionButton1 As Variant

             Set OptionButton1 = frmTest_Form.OptionButton1
             If Range("C2").Value = 5 Then
                 OptionButton1.Value = True
             End If

             frmTest_Form.Show
        End Sub

Спасибо за помощь!