VBA～ユーザーフォームのチェックボックスのチェック有、無時の処理を設定しよう～Excel

ユーザーフォームのチェックボックスにチェックを入れた時の処理の作成方法を解説します。

チェックボックスをダブルクリックすると下のコードが表示されます。

Private Sub CheckBox1_Click()

End Sub

ここに処理内容を書き込めばチェックボックスにチェックを入れたときの処理を設定できます。今回は下のコードにチェックボックスにチェックを入れるとセルA1を赤くしてチェックを外すとセルA1を塗りつぶしなしにします。

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then

Range("A1").Interior.Color = RGB(255, 0, 0)

Else

Range("A1").Interior.ColorIndex = xlNone

End If

End Sub

VBAで下のコードを実行すると作成したユーザーフォームが表示されチェックボックスにチェックを入れるとセルA1を赤くしてチェックを外すとセルA1を塗りつぶしなしにします。

Sub test1()

UserForm1.Show

End Sub