【ExcelVBA入門】ユーザフォームでチェックボックスを使う方法とは

こんにちは、フリーランスエンジニア兼ライターのワキザカ サンシロウです。

皆さんは、VBAでチェックボックスを作ったことがありますか？　簡単なアンケートなどを作る場合にチェックボックスが使えるととても便利です。

そこで今回は、

といった基礎的なことから、応用的な方法まで、徹底的に解説します！

チェックボックスとは

はじめに、チェックボックスの基礎について紹介します。チェックボックスとは、いくつかの選択肢から候補を選ぶための方法です。

複数選択して回答する画面を作るときに便利です。画面を作るときはよく使うので、使い方を覚えておくとちょっとしたアンケートをサクッと作れるようになります。

ちなみに、テキストボックスやユーザーフォームの基礎については以下で詳しく解説しています。気になる方は以下もぜひ見てみてくださいね！

【VBA入門】ユーザーフォームの使い方(テキスト表示、カレンダー)

更新日：2024年4月29日

【ExcelVBA入門】ユーザフォームでテキストボックスを使う方法とは

更新日：2024年4月29日

チェックボックスの使い方

次に、具体的なチェックボックスの使い方について説明します。

チェックボックスの配置・設定方法

最初に、チェックボックスの配置・設定方法について説明します。

1. ツールボックスからチェックボックスを選択

2. ユーザーフォームにドラッグしてサイズを決めて配置

3. プロパティを変更

※プロパティウィンドウが出ていない場合は、「表示タブ→プロパティウィンドウ」を選択するとでてきますただ、ここまでプロパティの設定値が多いと覚えるのが大変そうですよね。以下最低限覚えておくと幸せになれるプロパティを紹介します。

プロパティ1：オブジェクト名

オブジェクト名はチェックボックスのチェック状態をVBAで操作するときに使うため、わかりやすい名前に変更しておくのがおすすめです。

chkLang1、chkLang2、chkLang3のように先頭3文字でチェックボックスとわかるようにしつつ、「グループがわかる文字 + 番号」にしておくとVBAを書くときに書きやすいです。

プロパティ2：Caption

Captionでは、チェックボックスに表示する文字列を変更することができます。チェックボックスを追加したら最初にCaptionを変更するのがおすすめです！

プロパティ3：Font

Fontでは、フォントの見た目を変えることができます。フォントサイズ、フォントタイプ、フォントカラーなどフォントに関しての設定を変えたい場合に便利です。Font項目の右側にある「…」ボタンを押すと、設定画面が出てきます。

チェックボックスの値をVBAで利用する方法

チェックボックスのチェック状態をVBAから取得、変更する方法は次の通りです。

取得方法：

オブジェクト名.Value

変更方法：

オブジェクト名.Value = 値

チェックしている場合はTrue、していない場合はFalseが返ってきます。ただ、この方法だと1つずつしか操作することができないため、チェックボックスの場合は少し不便ですよね。以下の方法で、設定されている全てのチェックボックスの状態を取得することができます。

Dim i as Integer
Dim strMessage as String
For i = 1 To チェックボックスの数
　　　If Me.Controls("CheckBox" & i ).Value = True Then

　　　　strMessage  = strMessage & Me.Controls("CheckBox" & i ).Caption & vbCrLf

　　　End If
Next i

For文でチェックボックスの数分処理をループし、チェックされている場合のみCaptionをstrMessageに入れています。なお、この例ではチェックボックスのオブジェクト名が全て「CheckBox + 番号」となっていることを前提としています。

サンプルコード

最後に、サンプルコードを紹介します。画面にチェックボックスで言語の候補を用意して、「回答する」ボタンクリックで選択した言語がメッセージに表示されるサンプルを用意しました。

※チェックボックスのオブジェクト名は全て「CheckBox + 番号」になっています。

ユーザーフォーム：

VBAコード：

'「回答する」ボタンクリック時の処理
'
Private Sub btnRegist_Click()
  Dim i As Integer
  Dim strMessage As String
  For i = 1 To 9
    If Me.Controls("CheckBox" & i).Value = True Then

      strMessage = strMessage & Me.Controls("CheckBox" & i).Caption & vbCrLf

    End If
  Next i
  
  'チェックした言語をメッセージで表示
  MsgBox "得意な言語は以下のとおりです" & vbCrLf & _
         "--------------------------------" & vbCrLf & _
         strMessage & _
         "--------------------------------"
End Sub

実行結果：

まとめ

今回は、チェックボックスの使い方について徹底的に解説しました。チェックボックスが使えるようになると、ちょっとしたアンケートが簡単に作れるようになります。使い方も簡単なので、ぜひ使ってみてくださいね！