マクロを組み込んだエクセルを他のスタッフと共有して使っている時に、誤ってユーザーフォームに配置した「オプションボタン」を選択しないで次に進まれてしまい、意図しないエラーに遭遇したことありませんか？

このような押し忘れを防ぐ為には、選択漏れがあった場合にはメッセージを表示させて次に進めないようにすれば解決できますので、VBAコードをご紹介します。

IfステートメントとMsgBoxだけで解決

オプションボタンは2つ以上配置して、その中から1つを必ず選択する為のコントロールパーツです。

よく見かけるのは、性別などを選択する時に下記のように選べるようになっています。

オプションボタンの特徴は、上の図を参考にすると「男」を選択すると（True）もう一方の「女」は自動的に未選択状態（False）に設定されます。

これにより、グループ内にたくさんのオプションボタンがあっても1つしか選択できないようになっています。

オプションボタンの基本的な使い方については、内容が重複するので下記をご覧くださいませ。

オプションボタンのVBAコード

例えば上記のように支払方法を選択させるオプションボタンが8つ配置されていて、選択を忘れてしまった場合（全てのオプションボタンが選択されていない場合）の対処法として、メッセージを表示させて次に進めないようにする方法をご紹介します。

ここでは、選択されたオプションボタンの支払方法がセルA1に表記させるようにします。

と、このようになり「全てのオプションボタンが選択されていない場合のVBA対処法」とは、赤字で記載した2行があれば解決できるとても簡単な方法でした。

関連記事

ユーザーフォームに配置したオプションボタンって住所録の性別選択などで使用していると思いますが、セルの値が「男」「女」を自動的に見つけてオプションボタンの状態が自動取得できたら、調べる手間が省けたらいいなあと思ったことありませんか？

ここでは、セルの値を自動取得してオプションボタンの状態を選択状態の「True」、未選択状態の「False」が反映させてユーザーフォームを表示できるようにする方法をご紹介します。

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

この方法は実は複雑なVBAコードを駆使するのではなく、意外とシンプルなVBAコードを書くだけで出来てしまうのです。

ここでは、オプションボタン1が「男」、オプションボタン2が「女」で設定しています。

関連記事

オリジナル入力フォームが作ることができる「ユーザーフォーム」のパーツのひとつで、「男」「女」などの性別のように2つ以上の選択肢の中から1つだけ選ぶことができるようになっているコントロールパーツの事を「オプションボタン」といいます。

ここではオプションボタンの基本的な使い方についてご紹介します。

オプションボタン

オプションボタンの特徴は、上の図を参考にすると「男」を選択すると（True）もう一方の「女」は自動的に未選択状態（False）に設定されます。

これにより、グループ内にたくさんのオプションボタンがあっても1つしか選択できないようになっています。

では、上の画像の性別の部分を実際にVisual Basic Editor（VBE）を起動して、作ってみましょう。

起動方法から説明を始めると長くなってしまうのでここでは省略しますので、下記をご覧くださいませ。

オプションボタン(optionbutton)を配置する

オプションボタンを配置したいユーザーフォームに、ツールボックスのオプションボタンを2個配置します。（男女1個ずつ）

配置ができたら見栄え良く大きさと位置を整えますので名前を変更できるプロパティで変更します。

オプションボタンの名前を変更

OptionBtton1・OptionButton2という表示のままでは、使う人に何を選ぶのか伝わらないので表示を変更します。

OptionButton1をクリックすると画面左にOptionButton1のプロパティが表示されますので、7行目の項目Captionの部分が表示される名前です。

「OptionButton1」となっている名前を「男」に書き換えれば、表示名が変更できますので、同じように「OptionButton2」も「女」に書き換えましょう。

これでユーザーフォーム上のオプションボタンの準備は完了です。ただせっかくなので「性別」という枠を付けてあげると体裁が整うので、ついでに枠を付けましょう。

グループになっている枠名称変更

この枠は「フレーム」（Frame）といいます。

オプションボタンを選んだ時と同じようにツールボックスからフレームを選んでユーザーフォームに空いているスペースに配置し、名前を「Frame1」を「性別」に変更します。

次にすでに作成してある男女のオプションボタンをフレームの中に入れます。

オプションボタンがフレームの中に納まったら、再度大きさなどを好みの大きさに調整して、実際に配置したい場所に移動させます。

この時フレームを移動すれば一緒にオプションボタンもセットで動いてくれます。

これでユーザーフォームに性別を選択するオプションボタンが完成しました。

コマンドボタンで性別をセルに書き込む

オプションボタンやフレームだけでは実用的ではなく、性別を選択してコマンドボタンを押すことで、目的のセルに書き込みます。

ここでは、コマンドボタン1を押すことでセルA1に選択されたオプションボタンの値を書き込むようにします。

これでオプションボタンを選択した時に男女が番号になって記述されます。

ちなみに、オプションボタンの名前（キャプション）のままで記述する時は、

Range(“A1”).Value = OptionButton1.Caption

とすれば、そのまま記述されます。

3つ以上のオプションボタン

オプションボタンは2つ以上使うことができグループ化できます。

上の図は8つのオプションボタンを使用して必ず1つは選択するようにしていますが、チェック漏れも当然ありますので未選択時に警告を発するようにすることでエラーを防ぐことも重要ですよ！

関連記事