1. Home » 
2. Excel講座の総目次 » 
3. Excel VBA入門：目次 » 
4. チェックボックスの使い方

チェックボックスの使い方:Excel VBA入門

ユーザーフォームにチェックボックスを配置する　　　topへ

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

Captionを設定する　　　topへ

• プロパティウィンドウを利用する
  • CheckBox1を選択して、プロパティウィンドウのCaptionに入力します。
    
• コードで設定する

  • Private Sub UserForm_Initialize() 　　CheckBox1.Caption = "りんご" 　　CheckBox2.Caption = "みかん" 　　CheckBox3.Caption = "バナナ" End Sub

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

チェックボックスの状態を取得する例　　　topへ

• コマンドボタンをクリックして、チェックボックスのいずれにチェックが入っているかをメッセージボックスで表示してみます。
• コード例
  • それぞれのCheckBoxのValueプロパティがTrueであったら、変数(myMSG)にそれぞれのCaptionを入れていきます。
    なお、改行コード(vbCrLf)を後ろに付け加えています。
  • 変数myFlgでCheckBoxにチェックがあるときはTrueにして、チェックの有無を判定しています。

  • Private Sub CommandButton1_Click() 　　Dim myMSG As String 　　Dim myFlg As Boolean 　　　　myFlg = False 　　　　If CheckBox1.Value = True Then 　　　　　　myMSG = myMSG & CheckBox1.Caption & vbCrLf 　　　　　　myFlg = True 　　　　End If 　　　　If CheckBox2.Value = True Then 　　　　　　myMSG = myMSG & CheckBox2.Caption & vbCrLf 　　　　　　myFlg = True 　　　　End If 　　　　If CheckBox3.Value = True Then 　　　　　　myMSG = myMSG & CheckBox3.Caption & vbCrLf 　　　　　　myFlg = True 　　　　End If 　　　　If myFlg = True Then 　　　　　　myMSG = myMSG & "にチェックが入っています" 　　　　Else 　　　　　　myMSG = "いずれにもチェックが入っていません" 　　　　End If 　　MsgBox myMSG 　　CheckBox1.Value = False 　　CheckBox2.Value = False 　　CheckBox3.Value = False End Sub

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

    Private Sub CommandButton1_Click() 　　Dim myMSG As String 　　Dim myFlg As Boolean, i As Integer 　　　　myFlg = False 　　　　For i = 1 To 3 　　　　　　If Me.Controls("CheckBox" & i ).Value = True Then 　　　　　　　　myMSG = myMSG & Me.Controls("CheckBox" & i ).Caption & vbCrLf 　　　　　　　　myFlg = True 　　　　　　End If 　　　　Next i 　　　　If myFlg = True Then 　　　　　　myMSG = myMSG & "にチェックが入っています" 　　　　Else 　　　　　　myMSG = "いずれにもチェックが入っていません" 　　　　End If 　　　　MsgBox myMSG 　　　　For i = 1 To 3 　　　　　　Me.Controls("CheckBox" & i ).Value = False 　　　　Next i End Sub

  • 実行画面
    

チェックボックスの状態を取得して、シートへ入力する例　　　topへ

• Valueプロパティで取得/設定できます。
  [構文]　object.Value [= Variant]
  • コードの例です。
    
  • 実行画面です
    

チェックボックスのプロパティ　　　topへ

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

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

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

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

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

スポンサードリンク

PageViewCounter
　
　Since2006/2/27