トグルボタン一部を一度にON OFFする方法 トグルボタンは、シート上にあります。色々試してみても

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

トグルボタンは、シート上にあります。色々試してみても
どうしてもわかりません。
トグルボタンが10個あります。実際には130個程あります。

コードはこのようにあるとします。

‘ToggleButton1〜ToggleButton10まであるとします。

Private Sub ToggleButton1_Click()

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

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

End Sub



全部で10個ある内のToggleButton5からToggleButton10
のみをトグルボタンToggleButton11で、ON OFFする方法、教えていただけませんか？

No.4 ベストアンサー 回答者： めぐみん_ 回答日時： 2019/12/24 09:35

No.3です。

with 文いらないですね。

Private Sub ToggleButton11_Click()
Dim i As Integer

For i = 5 To 10
Me.OLEObjects("ToggleButton" & i).Object.Value = ToggleButton11.Value
Next

End Sub

この回答へのお礼

これで、できました。ありがとうございます。

お礼日時：2019/12/24 13:43

No.3 回答者： めぐみん_ 回答日時： 2019/12/24 08:45

まず、シート上に配置できるコントロールは

・フォームコントロール
・ActiveX コントロール
の２種類あります。
トグルなので後者だと思いますので、

Private Sub ToggleButton11_Click()
Dim i As Integer

For i = 5 To 10
With Me.OLEObjects("ToggleButton" & i).Object
.Value = ToggleButton11.Value
End With
Next

End Sub

でしょうか。
先の質問ではユーザーフォームかと思ってましたので。

この回答へのお礼

ありがとうございます。本当に助かりました。また、もし何かの質問で見かけたら、よろしくお願いします。

お礼日時：2019/12/24 13:41

No.2 回答者： GooUserラック 回答日時： 2019/12/24 00:18

もしかしたらこんな事でしょうか？

Private Sub ToggleButton11_Click()

　ToggleButton5.Value = ToggleButton11.Value
　ToggleButton6.Value = ToggleButton11.Value
　ToggleButton7.Value = ToggleButton11.Value
　ToggleButton8.Value = ToggleButton11.Value
　ToggleButton9.Value = ToggleButton11.Value
　ToggleButton10.Value = ToggleButton11.Value

End Sub

No.1 回答者： くんこば 回答日時： 2019/12/23 22:52

各種コントロールはインデックスで指定できます。

全てのコントロールを操作する、みたいな検索ワードで検索してみてください。
for each文などで操作するサンプルが出てくるはずです。