窗体上双击命令按钮,插入以下代码。
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Range("名称1").Select
ElseIf OptionButton2.Value = True Then
Range("名称2").Select
ElseIf OptionButton3.Value = True Then
Range("名称3").Select
End If
End Sub