EXCEL VBA: Wie kann ich einen Radiobutton beim Drücken einer Befehlstaste auf eine Standardauswahl zurücksetzen?

Question

Ich habe einige Schwierigkeiten zu versuchen, zu bestimmen, wie ich ein Optionsfeld auf "OptionButton1" zurücksetzen kann, wenn ich auf "CommandButton1" klicke.

Hier ist meine Codierung für die Tasten (nach in "Sheet3" Code aufgeführt wird):

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 

und hier ist das Makro für die "CommandButton1" (im "Medical" Module):

So im ersten Code-Block, können Sie sehen, dass im Grunde der Job OptionButton1 ist buchstäblich nur Auto-Filter deaktivieren (so klicken Sie auf diesen Radio-Button ist im Grunde ein Reset).
Auch der CommandButton1 ist ein AutoFilter-Reset, aber es wird alle Daten zu meinen Standard-Sortiervoreinstellungen sortieren. Da CommandButton1 grundsätzlich das tut, was OptionButton1 tut, und es auch sortiert, wenn ich den CommandButton1 drücke, muss ich OptionButton1 auch automatisch auswählen, wenn andere Schaltflächen bereits ausgewählt sind.

Answer 1

Davis, Sie können OptionButton1.Value = 1 verwenden, um programmierbar einen Radioknopf oder den anderen auszuwählen. Wenn ich dich richtig verstanden habe, sollte dies für dich tun. Wenn ich dich missverstanden habe, lass es mich wissen.