VBAユーザーフォームのチェックボックスの使い方と機能解説：初級編 後編

環境：Office365 Windows10

様々なサイトでVBAの解説はされていると思いますが、ところどころ端折っていたり、専門用語が書いてあったりで結局わからない。。という人の為の解説記事です。

ユーザーフォームのチェックボックスについて超丁寧に解説しますので、初心者の方はぜひ全部読んでみてください。

前回の続きになります。

本日はチェックボックスの

グループ化の方法

全件選択

について解説します。

こちらが本日のサンプルです。

グループ化

まず「全件選択」のチェックボックスはグループから除外して残りのA～E社を対象にグループ化していきます。

プロパティを確認します。

まず全件選択のチェックボックスが

残りのA～E社が順にCheckBox2、CheckBox3,,,,,

と続いていきます。

続いてプロパティの「GroupName」を確認します。

現在空白になっているこちらのGroupNameの欄に任意のグループ名を付けます。

今回は「会社名」と付けました。

同じように残りのB社～E社まで同じようにGroupNameの欄に「会社名」と入力していきます。

これでグループ化の完成です。

続いて全件選択の方法を解説します。

まずはプログラムを見てください。

プログラムを解説します。

CheckBox1_Click()

CheckBox1がクリックされた時にこの処理を実行します。

Dim ctl as Controls

Controls＝コントロール（チェックボックスやラジオボタンなどの部品のこと）

For Each ctl In Me.Controls

UserForm1に存在するコントロールを一つずつ繰り返しctlの中へ入れます。

※今回の場合はMe=UserForm1を指します

If TypeName(ctl) = “CheckBox” And ctl.Name <> “CheckBox1” Then

CheckBoxタイプだった場合と全件選択であるCheckBox1を除いて以下の処理をします。

If ctl.GroupName = “会社名” Then

コントロールのGroupNameが会社名だった場合に以下の処理をします。

ctl.Value = CheckBox1.Value

CheckBox1と同じ値を入力します。

要約すると

全てのコントロールを一つずつ繰り返しctlへ一度代入し、もし代入されたコントロールがチェックボックスであり、なおかつ全件選択でもなく、GroupNameが会社名だった場合にCheckBox1と同じ値を入力します。ということです。

これなら「Tror」「False」を分けて考える必要もなくチェックを入れたり外したり出来るわけです。

そして気づいてる人は気づいているかもしれませんが、上記の④と⑤をなぜわけて処理しているかというところです。今回の場合はグループが一つしかないのであまり意味がありませんが、同じフォーム内に「会社名」グループと「会社住所」グループのように複数のグループが存在した場合などは、グループごとに処理を分けて記述しなければいけません。

なのであえてグループ名を別で処理させているのです。

ではプログラムを実行していきます。