VBA(チェックボックス制御)

-- 1. 開発タブの挿入でボタンやチェックボックスを作成
※ActiveXコントロールのものを使用する

-- 2. デザインモードONで作成したボタンやチェックボックスをダブルクリックするとエディタが開くので下記コードを記載

Public flag1

Private Sub CheckBox1_Click()

flag1 = CheckBox1.Value
MsgBox flag1

End Sub

Private Sub CommandButton1_Click()

'画面を更新しない
Application.ScreenUpdating = False
'確認メッセージを表示しない
Application.DisplayAlerts = False

Debug.Print (flag1)

'確認メッセージを表示する
Application.DisplayAlerts = True
'画面を更新する
Application.ScreenUpdating = True

MsgBox flag1

End Sub

-- 3. デザインモードOFFで実行