EXCEL VBA: как сбросить переключатель по умолчанию, нажав кнопку Command?

У меня возникают некоторые трудности, пытаясь определить, как я могу сбросить переключатель на «OptionButton1», когда я нажимаю «CommandButton1».

Вот мой код для кнопок (следующий приведен в коде «Sheet3»):

Private Sub CommandButton1_Click() ' MED Tab - Sort Button ' Returns view back to default, then sort data On Error Resume Next Call Medical.MED_Sort End Sub Private Sub OptionButton1_Click() ' MED Tab - On Error Resume Next ActiveSheet.AutoFilterMode = False End Sub Private Sub OptionButton2_Click() ' MED Tab - Show Verified Only On Error Resume Next ActiveSheet.AutoFilterMode = False Call Medical.VRFD_ONLY Call Module1.FirstVisibleCell End Sub Private Sub OptionButton3_Click() ' MED Tab - Show NO Scores On Error Resume Next ActiveSheet.AutoFilterMode = False Call Medical.No_Scores Call Module1.FirstVisibleCell End Sub Private Sub OptionButton4_Click() ' MED Tab - Show With Scores On Error Resume Next ActiveSheet.AutoFilterMode = False Call Medical.With_Scores Call Module1.FirstVisibleCell End Sub 

и вот макрос для «CommandButton1» (в «Медицинском» модуле):

 Sub MED_Sort() ' ' MED_Sort Macro ' ' ActiveSheet.AutoFilterMode = False Columns("A:I").Select ActiveWorkbook.Worksheets("Med").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Med").Sort.SortFields.Add Key:=Range("H:H"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Med").Sort.SortFields.Add Key:=Range("F:F"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Med").Sort.SortFields.Add Key:=Range("D:D"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Med").Sort.SortFields.Add Key:=Range("B:B"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Med").Sort .SetRange Range("A:I") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub 

Итак, в первом блоке кода вы можете видеть, что в основном задача OptionButton1 заключается в том, чтобы просто отключить любые автоматические фильтры (так что щелчок по этой кнопке в основном является сбросом).
Кроме того, CommandButton1 также является сбросом AutoFilter, но он сортирует все данные по умолчанию для настроек сортировки по умолчанию. Поскольку CommandButton1 в основном делает то, что делает OptionButton1, плюс он также сортирует, когда я нажимаю CommandButton1, мне нужно также автоматически выбирать OptionButton1 в случае, если другие кнопки уже выбраны.

Дэвис. Вы можете использовать OptionButton1.Value = 1 для программирования одного переключателя или другого. Если я правильно понял вопрос, это должно сделать это за вас. Если я вас неправильно понял, сообщите мне.

Давайте будем гением компьютера.