Excel VBA チェックボックスの一括オン、オ

質問

1.2.のように2つマクロを作成し、それぞれチェックボックスのオン、オフが一括でできるようになったのですが、1つにまとめることはできますでしょうか？
1回クリックすると、一括オン、もう一度クリックすると一括オフを繰り返すようにしたいです。

1.チェックオフ
Dim myobj As OLEObject
For Each myobj In ActiveSheet.OLEObjects
If TypeName(myobj.Object) = "CheckBox" Then _
myobj.Object.Value = False
Next

2.チェックオン
Dim myobj As OLEObject
For Each myobj In ActiveSheet.OLEObjects
If TypeName(myobj.Object) = "CheckBox" Then _
myobj.Object.Value = True
Next

回答No.2

mt2008 · ベストアンサー

Public変数か、何処かの適当なセルに一括変更状態（True/False)を入れておき、次回の一括変更はその逆を設定します。

Dim myobj As OLEObject
Dim ck As Boolean

ck = Not Range("Z1")

For Each myobj In ActiveSheet.OLEObjects
　　If TypeName(myobj.Object) = "CheckBox" Then myobj.Object.Value = ck
Next
Range("Z1") = ck

回答No.1

nicotinism

チェックトグル
Dim myobj As OLEObject
For Each myobj In ActiveSheet.OLEObjects
If TypeName(myobj.Object) = "CheckBox" Then _
myobj.Object.Value = not myobj.Object.Value
Next
かな。