オプションボタン(OptionButton)の追加｜Excelユーザーフォーム

最終更新日：2013-02-18

第14回.オプションボタン(OptionButton)の追加

オプションボタンは、複数の項目から単一選択になります。

従って、コンボボックスやリストボックスの単一選択と同じ機能と言えます。

違いは、見た目の問題になります。

選択項目が変化しない、つまり今後も増減しない項目で、

かつ、選択数が少ない場合には、見た目にも分かりやすいコントロールだと思います。

ここでは、顧客が企業か個人かの区分を追加します。

オブジェクト名は、opt企業、opt個人

後は、Captionを指定すれば良いでしょう。

他のプロパティでは、チェックボックスと同様に、

Alignment

これが、文字を左右どちらに表示するかの指定になります。

チェックのON/OFF

オプションボタンは、１つのみ選択可能なので、１つのボタンをONにすると、

自動的に、他のボタンはOFFになります。

Me.opt企業.Value = True ・・・企業がON、個人がOFFになります。
Me.opt個人.Value = True ・・・企業がOFF、個人がONになります。

適宜、UserForm_Initialize等で設定します。

チェック状態の判定

Valueプロパティを判定します。

Me.opt企業.Value = True ・・・企業がONで、個人がOFFの状態です。
Me.opt個人.Value = True ・・・企業がOFFで、個人がONの状態です。

実際のコードでは、Select Caseを使って


  
    
      Select Case True

　　Case Me.opt企業.Value

      　　　　'企業がONです

　　Case Me.opt個人.Value

      　　　　'個人がONです

　　Case Else

      　　　　'何も選択されていません

End Select

このような書き方が解り易いと思います。

オプションボタンは単純なON/OFFだけなので、扱いは簡単です。

同じテーマ「Excelユーザーフォーム入門」の記事

コンボボックス(ComboBox)の追加

ユーザーフォームで良く使われるコントロールは、ラベル、テキストボックスこれは当然ですが、その次に良く使われるものは、コンボボックス、リストボックス、チェックボックス、オプションボタンになるでしょう。今回から、この３つのコントロールの使い方の解説をします。

リストボックス(ListBox)の追加

単一列（１列）の場合は、コンボボックスと同様なので、今回は、複数列について説明します。複数列の扱いは、コンボボックスも同様になります。作成するリストは、都道府県を選択するリストにしてみます。ラベルとリストボックスを追加します。

チェックボックス(CheckBox)の追加

チェックボックスは、ONかOFFかの２択の場合に良く使われます。今回は、顧客の休止状態のチェックボックスを追加してみましょう。オブジェクト名：chk休止とすることにします。設定するプロパティはCaptionに_休止_とだけ指定すればOKです。

オプションボタン(OptionButton)の追加
ここまでの整理

一旦ここまでの復習を兼ねてプログラムの整理をします。ついでにシートの当該行のダブルクリックでフォームが開くようにします。Worksheets(_顧客マスタ_) シートモジュール PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,

アクティブコントロールに色を付ける

フォーム内のどこにカーソルがあるか分かりづらい場合があります。そこで、アクティブなコントロールのバックカラーを変えたり、対応するラベルのフォントを変更したりして、アクティブなコントロールを解り易くします。以下はサンプルコードになります。

Enterキーで次のコントロールに移動する

Enterキーの押下で、（タブ順が）次のコントロールに移動してほしいものです。テキストボックスは、Enterキー押下で次のコントロールに進みます。（MultiLineの場合は、テキストないの改行となります。

２段階コンボボックス

２段階コンボボックスを作成します。１つのコンボボックスの選択内容により次のコンボボックスのリストを変更します。ワークシートのセルの入力規則で実施する場合は入力規則のリストを２段階の絞り込みで作成1 入力規則のリストを２段階の絞り込みで作成2一覧リストを使用して「入力規則」の「リスト」を作成し「リスト」の選択結果によりとなりの「リスト」の内容を自動で変化さ…

テキストボックス数値編集

数値専用のテキストボックスの作成です。まずは以下のように金額のテキストボックスを追加します。オブジェクト名はtxt金額とします。PrivateSubtxt金額_KeyDown(ByValKeyCodeAsMSForms.ReturnInteger,ByValShiftAsInteger) SelectCaseKeyCode CasevbKeyReturn,

テキストボックスの各種イベント

ユーザーフォームで最も良く使われる、テキストボックスのイベントの一覧と、キー入力と、コントロール間の移動時のイベント発生順について記載します。ユーザーの操作に応じて自動処理するためには、その操作により発生するイベントと、その発生順序を理解しておくことが必要です。

ユーザーフォームの各種イベント

ユーザーフォームに対する操作（アクション）で発生するイベントの一覧ですユーザーフォームそのものの制御をする場合はこのイベントを利用します。ユーザーフォームのイベント一覧イベント構文説明 Activate UserForm_Activate() Activateイベントはオブジェクトがアクティブなウィンドウになったときに発生します。