トグルボタン一部を一度にON OFFする方法 このように、トグルボタンが20個あります。 コードはこ

トグルボタン一部を一度にON OFFする方法

このように、トグルボタンが20個あります。
コードはこのようにあるとします。

Private Sub ToggleButton1_Click()

If ToggleButton1.Value <> True Then
Range("A1").Interior.ColorIndex = 15

Else
Range("A1").Interior.ColorIndex = 0
End If

End Sub

全部で20個ある内のToggleButton1からToggleButton10
のみをトグルボタンToggleButton21で、ON OFFする方法は、ありますか？よろしくお願いします。

質問者からの補足コメント

• 補足ですが、トグルボタンは、全てsheet上にあります。

    補足日時：2019/12/23 07:06

No.2 回答者： 高木さんWIN 回答日時： 2019/12/22 14:32

ちょっと手抜き。

Private Sub ToggleButton6_Click() '6 を押すと
Dim i As Integer

For i = 1 To 5 '1~5までをOn Off

With Me.Controls("ToggleButton" & i)
.Value = Not .Value
End With

Next
End Sub

ご参考になれば。

No.1 回答者： よろずやkinchan 回答日時： 2019/12/22 14:28

＞このように、トグルボタンが20個あります。

どこにあるのですか？
ワークシート？
ユーザーフォーム？