セル値を自動取得してオプションボタンの状態を表示させるVBA方法

Private Sub CommandButton1_Click()
If Range(“A1”).Value = “男” Then
UserForm1.OptionButton1.Value = True
Else
UserForm1.OptionButton1.Value = False
End If
If Range(“A1”).Value = “女” Then
UserForm1.OptionButton2.Value = True
Else
UserForm1.OptionButton2.Value = False
End If
End Sub

1. コマンドボタン1がクリックされたら
2. もしセルA1の値が「男」だったら
3. ユーザーフォーム1のオプションボタン1を選択状態にする
4. そうでなかったら（未選択状態ならば）
5. ユーザーフォーム1のオプションボタン1を未選択状態にする
6. Ifステートメント終了
7. もしセルA1の値が「女」だったら
8. ユーザーフォーム1のオプションボタン2を選択状態にする
9. そうでなかったら（未選択状態ならば）
10. ユーザーフォーム1のオプションボタン2を未選択状態にする
11. Ifステートメント終了
12. マクロ記録終了