【VBA】複数のチェックボックスの条件を判定して処理を変えるマクロサンプル

こんにちは、今回はExcel VBAマクロのチェックボックスについての記事です。

複数のチェックボックスで判定したい！

シートにある複数のチェックボックスのON・OFFの状態を取得して、それに合わせて処理を変更するマクロを作りたいと思いました。

チェックボックスのチェックが一つでも、チェックボックスのチェックが2つ、3つでもそれに合わせた処理（メッセージボックスを表示）するというサンプルマクロを作成します。

3つのチェックボックスのチェックで処理を変えるサンプルマクロ

早速サンプルマクロを載せます。（処理の詳細は次章にて補足説明いれます。）

3つのチェックボックスがあり、各ボックスがチェックされているかされていないか判定します。チェックが1つでも、2つでも3つでも判定できるようにしました。

Sub checkBox_OnOff()

  ' 変数定義
  Dim cbValue1 As Integer ' チェック1の値取得用
  Dim cbValue2 As Integer ' チェック2の値取得用
  Dim cbValue3 As Integer ' チェック3の値取得用

  ' ①チェックボックス値取得
  cbValue1 = Worksheets("Sheet1").CheckBoxes("チェック 1").Value
  cbValue2 = Worksheets("Sheet1").CheckBoxes("チェック 2").Value
  cbValue3 = Worksheets("Sheet1").CheckBoxes("チェック 3").Value

  ' ②取得した値の処理
  ' チェックボックス1
  If cbValue1 = 1 Then
    cbValue1 = 100
  Else
    cbValue1 = 0
  End If

  ' チェックボックス2
  If cbValue2 = 1 Then
    cbValue2 = 10
  Else
    cbValue2 = 0
  End If

  ' チェックボックス3
  If cbValue3 = 1 Then
    cbValue3 = 1
  Else
    cbValue3 = 0
  End If

  ' 判定値の計算
  num = cbValue1 + cbValue2 + cbValue3

  ' ③判定値によって処理を変更
  Select Case num
  Case 100
    MsgBox ("チェック1ON")
  Case 110
    MsgBox ("チェック1ON,チェック2ON")
  Case 111
    MsgBox ("チェック1ON,チェック2ON,チェック3ON")
  Case 101
    MsgBox ("チェック1ON,チェック3ON")
  Case 10
    MsgBox ("チェック2ON")
  Case 11
    MsgBox ("チェック2ON,チェック3ON")
  Case 1
    MsgBox ("チェック3ON")
  Case Else
    MsgBox ("チェックなし")
  End Select

End Sub

次章にて、それぞれの処理の詳細を記載していきます。