オプションボタン(optionbutton)の名前変更と使い方

エクセル検索
HOMEUserForm印刷画面ファイル図形
日付・時刻データセル関数VBA関数

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

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

オプションボタン

オプションボタン

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

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

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

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

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

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

オプションボタン配置
オプションボタン配置

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

オプションボタンキャプション
オプションボタンキャプション

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

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

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

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

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

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

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

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

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

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

オプションボタン

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

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

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

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

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

VBAコード

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Range(“A1”).Value = “1”
ElseIf OptionButton2.Value = True Then
Range(“A1”).Value = “2”
End If
End Sub

解説
  1. コマンドボタン1がクリックされたら
  2. もしオプションボタン1が選択されていたら
  3. セルAD1に半角数字で「1」を入力する
  4. そうではなくてもしオプションボタン2が選択されていたら
  5. セルAD1に半角数字で「2」を入力する
  6. Ifステートメント終了
  7. マクロ記述終了

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

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

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

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

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

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

オプションボタン複数

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

波乗りアヒル

エラー回避の対処法は下記をご覧くださいませ

関連記事

どこかにビューーン
ちょっとの工夫で往復無料の時代が来た!!

新着ページ

よく見られているページ

大容量無料ファイル転送サービス【ACデータ】 無料イラスト【イラストAC】

紅葉スポット

2024年5月11日からマイルと楽天ポイントとの相互交換提携開始!

交換レート0.5:1なので半分になってしまいますが、使い方次第で実質3倍の価値まで引き上げられる方法です。