セルの値によりオプションボタンの状態を取得させる方法

ユーザーフォームに配置したオプションボタンって住所録の性別選択に使っていませんか？

顧客登録などする時にわざわざ「男」とか「女」って手入力しないで、クリックするだけで選択できるのでとても便利で正確なので利用していますよね。

そして、コマンドボタンを押せば指定したセルに入力データが転記されるようにして使っていると思いますが、その逆で、セルの値が「男」だったらオプションボタンに自動的に選択されている状態（True）にできれば、データ修正を行う時に便利になりますよね。

オプションボタンの状態をセルから自動取得

オプションボタンの状態を取得させるVBAコードがよくわからなくて、当初は諦めていましたが、住所登録や修正をするたびに性別選択を忘れてしまって空欄になってしまったので、取り組むことにしましたが、シンプルに考えるとそれほど難しいVBAコードでなくてもできるんですよ。

まずは、オプションボタン１が「男」、オプションボタン２が「女」で設定していますので、コマンドボタンを押すと指定されたセルへ転記します。

今度は、記載されたセルの値（A1）が「男」だった、オプションボタン１を選択状態「True」で、選択されていなければ未選択状態「False」にします。

同じようにオプションボタン２は「女」だったらという具合に男と同じようにします。

そうすると、以下のようにVBAコードを書くだけでこの部分は完成です。

仮に2つじゃなくて3つ以上あれば、「1～5」行目を繰り返してVBAコードを書くだけなので、難しくはないと思います。