スライドショースライドショー

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

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

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

そこで今回は、

  • チェックボックスとは
  • チェックボックスの使い方
  • プロパティの使い方
  • チェックしたチェックボックスをメッセージに表示する方法

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

チェックボックスとは

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

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

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

【VBA入門】ユーザーフォームの使い方(テキスト表示、カレンダー)
更新日 : 2019年4月22日
【ExcelVBA入門】ユーザフォームでテキストボックスを使う方法とは
更新日 : 2019年5月8日

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

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

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

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

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

実行結果:

まとめ

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

LINEで送る
Pocket

無料でSEからWebエンジニアへ転職しませんか?



侍エンジニア塾では、完全未経験の方から現在SEだけどプログラミングはやっていないという経験者まで、幅広い方々の人生を好転させるプログラミング指導を行ってきました。SEの方とお話していくなかで、

  • システムエンジニアという職業だけどコードが書けない
  • 事務作業が多くスキルがないため将来が不安
  • スクールに通うと完全未経験者と同じスタートになるからレベルが合わない
という、すでに知識があるSEならではのお悩みがあることに気づきました。そんな方におすすめなのが、弊社の「転職コース 」です。

弊社では、マンツーマンでレッスンを行いますので、現在お持ちの知識レベルからカリキュラムを作成いたします。さらにこちらの転職コースは無料で受講を始められて転職成功でそのまま卒業できるというとてもお得なコースとなっています。

既に知識のあるSEといっても転職は年齢が若いほど受かりやすいため、まずは無料体験レッスンで今の現状や理想の働き方について一緒に考えていきましょう。

まずは無料体験レッスンを予約する

書いた人

Sanshiro Wakizaka

Sanshiro Wakizaka

フリーランスエンジニア兼ライターのワキザカ サンシロウです。
ExcelVBAの自動化ツール開発、WEB開発をメインにエンジニア業務をこなしつつ、サムライエンジニアにてライター業務をしております。

プログラミングをこれからやってみたい方に向けて、ためになる記事を全力で書いていきますので宜しくお願い致します!

おすすめコンテンツ

あなたにぴったりなプログラミング学習プランを無料で診断!

プログラミング学習の効率を劇的に上げる学習メソッドを解説