EXCEL VBA：如何在按下命令按钮时将单选按钮重置为默认选择？

我在尝试确定如何在单击“CommandButton1”时将单选按钮重置为“OptionButton1”时遇到一些困难

以下是我对按钮的编码（以下在“Sheet3”代码中列出）：

下面是“CommandButton1”（在“医疗”模块中）的宏：

因此，在第一个代码块中，您可以看到OptionButton1的工作实际上只是关闭任何自动过滤器（因此单击此单选按钮基本上是重置）。
此外，CommandButton1也是一个自动过滤器重置，但它将根据我的默认排序首选项对所有数据进行排序。因为CommandButton1基本上和OptionButton1一样，而且它也会排序，当我按下CommandButton1时，如果已经选择了任何其他按钮，我需要它也会自动选择OptionButton1， 您可以使用

OptionButton1.Value=1

以编程方式选择一个单选按钮或另一个单选按钮。如果我正确理解了你的问题，这应该能帮到你。如果我误解了你，请告诉我。

戴维斯， 您可以使用

OptionButton1.Value=1

以编程方式选择一个单选按钮或另一个单选按钮。如果我正确理解了你的问题，这应该能帮到你。如果我误解了你，请告诉我

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

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