1. Home » 
2. Excel講座の総目次 » 
3. Excel VBA入門：目次 » 
4. オプションボタンの使い方

オプションボタンの使い方:Excel VBA入門

ユーザーフォームにオプションボタンを配置する　　　topへ

1. VBEのメニューバーの[挿入]→ユーザーフォームを実行してユーザーフォームを作成します。
2. ツールボックスのチェックボックスをクリックし、作成したUserForm2の配置する箇所でクリックします。
   または、ドラッグすると任意の大きさで配置できます。
3. 操作2を繰り返し、4個のオプションボタンを配置しました。
   
4. CommandButtonも同様に1個配置しました。
   

Captionを設定する　　　topへ

• プロパティウィンドウを利用する
  • OptionButton1を選択して、プロパティウィンドウのCaptionに入力します。
    
• コードで設定する
  • 初期設定で、OptionButton1にチェックが入った状態にしています。
    

    Private Sub UserForm_Initialize() 　　OptionButton1.Caption = "20歳未満" 　　OptionButton2.Caption = "20歳以上40歳未満" 　　OptionButton3.Caption = "40歳以上60歳未満" 　　OptionButton4.Caption = "60歳以上" 　　OptionButton1.Value = True End Sub

• 下図のようになります。
  

オプションボタンの状態を取得する例　　　topへ

• コマンドボタンをクリックして、オプションボタンのいずれにチェックが入っているかをメッセージボックスで表示してみます。
• コード例
  • それぞれのOptionButtonのValueプロパティがTrueであったら、変数(myMSG)にそれぞれのCaptionを入れていきます。
    なお、改行コード(vbCrLf)を使って改行しています。

  • Private Sub CommandButton1_Click() 　　Dim myMSG As String 　　　　If OptionButton1.Value = True Then 　　　　　　myMSG = OptionButton1.Caption 　　　　End If 　　　　If OptionButton2.Value = True Then 　　　　　　myMSG = OptionButton2.Caption 　　　　End If 　　　　If OptionButton3.Value = True Then 　　　　　　myMSG = OptionButton3.Caption 　　　　End If 　　　　If OptionButton4.Value = True Then 　　　　　　myMSG = OptionButton4.Caption 　　　　End If 　　　　myMSG = myMSG & vbCrLf & "が選択されています" 　　　　MsgBox myMSG End Sub

  • 一個ずつ設定するのは面倒・・・といった場合は、以下のようにすることも可能です。
    

    Private Sub CommandButton1_Click() 　　Dim myMSG As String 　　Dim i As Integer 　　　　For i = 1 To 4 　　　　　　If Me.Controls("OptionButton" & i).Value = True Then 　　　　　　　　myMSG = Me.Controls("OptionButton" & i).Caption 　　　　　　End If 　　　　Next i 　　　　myMSG = myMSG & vbCrLf & "が選択されています" 　　　　MsgBox myMSG End Sub

  • 実行画面
    

オプションボタンの状態を取得する例2　　　topへ

• Valueプロパティで取得/設定できます。
  [構文]　object.Value [= Variant]
• 初期値としてオプションボタン1にチェックを入れておきます。
  • UserForm_Initializeのコード例です。
    
• コマンドボタン1がクリックされたらユーザーフォームから取得します。
  • コードの例です。
    
  • 実行画面の状況です。
    

オプションボタンのグループの設定　　　topへ

• 同じグループの中では1つのオプションボタンが選択できます。
  • GroupNameプロパティでグループを分ける。
    • コード例
      
    • 実行例
      
  • フレームやページなどで分ける
    • オプションボタン4〜6をフレームでグループにした例です。
      

オプションボタンのプロパティ　　　topへ

• プロパティ ウィンドウで設定できます。
  
• 以下では、当初に作成したUserForm2を利用して説明します。
  
• Accelerator プロパティ
  • コントロールのアクセス キー(1つ文字)を設定します。値の取得も可能です。
  • OptionButton1.Accelerator = "a"　とすると、[Alt]+[a]キーを押すとOptionButton1が選択され、チェックが入ります。
• Alignment プロパティ
  • キャプションの位置を設定します
  • 構文：object.Alignment [= fmAlignment]
    

    定数	値	内容
    fmAlignmentLeft	0	コントロールの左端にキャプションを配置します
    fmAlignmentRight	1	(既定値)コントロールの右端にキャプションを配置します

  • 例
    For i = 1 To 4
    　　　Me.Controls("OptionButton" & i).Alignment = fmAlignmentLeft
    Next i
    下図のようにオプションボタンの左にキャプションが配置されます。
    
• AutoSize プロパティ
  • オブジェクトのサイズを表示内容の大きさに合わせて、自動的に調整するか否かを設定します。
  • 構文:object.AutoSize [= Boolean]
    Trueにすると、コントロールのサイズを表示内容の大きさに合わせて、自動的に調整します。
    Falseが既定値です。
  • 例
    For i = 1 To 4
    　　　Me.Controls("OptionButton" & i).AutoSize = True
    Next i
    サイズがキャプションの幅に自動調整されます。
    
• BackColor プロパティ
  • オブジェクトの背景色を設定します。
    オブジェクトの背景色は、BackStyleプロパティが定数 fmBackStyleOpaque(背景を不透明)に設定されている場合に限り表示されます。
  • 例
    For i = 1 To 4
    　　　Me.Controls("OptionButton" & i).BackColor = RGB(153, 255, 153)
    Next i
    
• BackStyle プロパティ
  • オブジェクトの背景のスタイルを設定します。値の取得も可能です。
  • 構文：object.BackStyle [= fmBackStyle]
    

    定数	値	内容
    fmBackStyleTransparent	0	背景を透明にします
    fmBackStyleOpaque	1	(既定値)背景を不透明にします

• Enabled プロパティ
  • Falseにすると、淡色で表示され、マウス操作やキー操作 (アクセス キー、ホットキーを含む) でコントロールを操作することができなくなります。
    元に戻すには、Trueにします。
  • 例：OptionButton1.Enabled = False
    
• Visible プロパティ
  • オブジェクトの表示/非表示を設定します。
  • Falseにすると非表示になります。
  • 例：OptionButton1.Visible = False
    

スポンサードリンク

PageViewCounter
　
　Since2006/2/27