VBA～ユーザーフォームのトグルボタンのオン、オフ時の処理を設定しよう～Excel

ユーザーフォームのトグルボタンのオン、オフ時の処理の作成

トグルボタンをダブルクリックすると下のコードが表示されます。

Private Sub ToggleButton1_Click()

End Sub

ここに処理内容を書き込めばトグルボタンをクリックしたときの処理を設定できます。今回は下のコードにトグルボタンをONにするとセルA1を赤くしてOFFにするとセルA1を塗りつぶしなしにします。

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then

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

Else

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

End If

End Sub

VBAで下のコードを実行すると作成したユーザーフォームが表示されトグルボタンをONにするとセルA1を赤くしてOFFにするとセルA1を塗りつぶしなしにします。

Sub test1()

UserForm1.Show

End Sub