フレームでグループ化、オプションボタンの使い方と選択した値の取得方法

ユーザーフォーム講座動画編 11回
フレームでグループ化、オプションボタンの使い方と選択した値の取得方法

動画でExcel　フレームでグループ化、オプションボタンの使い方と選択した値の取得方法

【VBAユーザーフォーム】フレームでグループ化、オプションボタンの使い方と選択した値の取得方法。基礎編第11回

今回はフレームコントロールとオプションボタンをご紹介したいと思います。
コントロールにはたくさん種類があります。それをフォームにいろいろ配置していったらまとまりがなくなって、とても使いづらくなるなんてことがよくあります。
それをグループごとに中に収めて、区別することができる、フレームコントロールは、そういうコンテナ機能を備えたコントロールです。

マクロ動画　フレームでグループ化、オプションボタンの使い方と選択した値の取得方法

https://youtu.be/mad4SFLqAPc

フレームコントロールは先に作る

フレームコントロールを使用して、密接に関連するコンテンツを持つコントロールをグループ化すると視覚的にも、機能的にも便利です。
下図のサンプルのフォームにはフレームが一つ作成されていて、その中にテキストボックスが3 つあります。それからその外側にもテキストボックスが2つあります。

上の３つは先にフレームを作成し、その中にテキストボックスを設置したので、簡単でした。
あとから、下のテキストボックスもフレームで囲いたいという場合は、図のようにテキストボックスの上にフレームが上に乗ってしまいテキストボックスが見えません。どのようにすればいいのでしょうか？

フレームをテキストボックスの下側に移動させれば、テキストボックスが見えるようになります。
フレームを選択して右クリックから背面へ移動を選んであげます。

フレームが背面に移動したので、テキストボックスが１つ現れました。もう１回背面に移動させる操作をしましょう。

フレームの中に２つテキストボックスが表示されました。このように、後からフレームを作成すると、少々手間がかかりますので、フレームは始めに作成することをおすすめします。

フレームのプロパティ

フレームのプロパティにも、他のコントロールと同様のプロパティの他に、Cycle（サイクル）プロパティというのがあります。
フレーム内のコントロールを実行したあとの動作を設定するものです。
fmCycleAllFormsとfmCycleCurrentFormの２種類あります。デフォルトは1-fmCycleAllFormsです。
これはフォーム内の他のコントロールに循環移動します。

実行したところで、フォームのすべてのコントロールを順番に循環することがわかります。

2-fmCycleCurrentFormの場合は、現在のフレーム内を限定して循環移動します。

実行したところで、フォーカスが、現在のフレーム内だけで循環することがわかります。

サイクルプロパティは、フォームの状況に応じて、設定します。
Frameの外に移動する設定は、デフォルトのfmCycleAllForms
Frame内だけで移動する設定は、fmCycleCurrentFormにします。

オプションボタンとフレーム

オプションボタン ( OptionButton) コントロールは、グループの中の項目を 1 つだけ選択することができるコントロールです。

実行すると、フォーム上のオプションボタンから１つだけしか選択できません。

解決策として、2つのフレーム ( Frame ) コントロールを作成します。その中にオプションボタン ( OptionButton) コントロールを配置すると、グループごとに１つのオプションボタンを選択できるようになります。

実行すると、Frame1で1つ、Frame2で1つのオプションボタン ( OptionButton) コントロールを選択することができます。

選択されたオプションボタン ( OptionButton) コントロールの値を取得する

ボタンをクリックしたらオプションボタンの値を取得するようにします。

frame1とframe2それぞれについて、値を取得するためのコードを記述しました。
For Each ctrl In Me.Frame1.Controls以下のコードでは、ctrl.Value = True　のボタンを探します。
同様に For Each ctrl In Me.Frame2.Controls以下のコードでも、ctrl.Value = True　のボタンを探します。

          Private Sub CommandButton2_Click() 'コマンドボタンを押したときに実行
          Dim ctrl As Control
          Dim selectedOption1 As String, selectedOption2 As String
          'selectedOption1 がどれかを探す
          For Each ctrl In Me.Frame1.Controls
              If TypeName(ctrl) = "OptionButton" And ctrl.Value = True Then
                  selectedOption1 = ctrl.Caption
                  Exit For
              End If
          Next ctrl
          'selectedOption2 がどれかを探す         
          For Each ctrl In Me.Frame2.Controls
              If TypeName(ctrl) = "OptionButton" And ctrl.Value = True Then
                  selectedOption2 = ctrl.Caption
                  Exit For
              End If
          Next ctrl

コードの後半部分です。取得した結果をDebug.Print に書き出します。

 If selectedOption1 <> "" Then
     Debug.Print "Frame1: " & selectedOption1 
 Else
     Debug.Print "Frame1で選択されたオプションボタンはありません。"
 End If
 
 If selectedOption2 <> "" Then
     Debug.Print "Frame2: " & selectedOption2
 Else
     Debug.Print "Frame2で選択されたオプションボタンはありません。"
 End If
End Sub

実行して値を取得ボタンをクリックすると、結果がイミディエイトウィンドーに表示されます。