エクセルでマクロを使わずに複数のチェックボックスに一括チェックするコマンドボタンを作れますか？

Question

エクセルで商品管理のシートを作成しています。

10店舗ほど支店があるので、取扱店舗をチェックボックスで
選択できるようにしていますが、全店取扱の商品がかなり有るので
一括で10個のチェックボックスにチェック出来る様にしたいのです。

最初はコマンドボタンのLINKEDCELLにチェックボックスで参照している
セルが連動するように数式を入れていたのですが、このやり方だと
ボタンを使わずにチェックボックスを使うと参照セルの数式が
「TRUE/FALSE」に上書きされてしまい、以後ボタンと連動しなくなってしまいます。

出来ればコマンドボタンのLINKEDCELLプロパティを複数セルに指定したいのですが、可能でしょうか？
※「A1:G1」等と設定してみたのですが、連動するのは「A1」のみでした…

VBAを使用すれば良いのでしょうが、まったく知識が無いので時間的に厳しい状況です。

どなたかお分かりの方がいらっしゃればご助言お願いいたします。

Wendy02 · Accepted Answer

こんにちは。
#2 です。二人が回答して、それぞれ別の教え方をしているようでは、混乱してしまいますが、私は、あくまでも　CommnadButton(コマンドボタン）で書かせていただきます。

>どこの記述を変えれば狙ったチェックボックスのグループを
>反転できるのかが判らず八方塞です。

「一括で10個」　という意味が、任意のグループというのは、今、分かりました。

Array(2, 4, 5, 6, 7, 8) ←ここに、連動させる番号を「,（コンマ）」区切りで、入れてあげます。存在しない番号はいれないでくださいね。エラーになってしまいますから。

この中自体は、順番でなくてもよいです。なお、番号は、コントロールツールの青い三角のアイコンをオンにして、マウスを当てれば、チェックボックスの名称を変更していなければ、出てくるはずです。

'-------------------------------------------------------

Private Sub CommandButton1_Click()
Dim i As Variant
Dim bln As Boolean
Dim nums As Variant
nums = Array(2, 4, 5, 6, 7, 8)　'チェックボックスの番号を入れる

bln = Me.OLEObjects("CheckBox" & nums(0)).Object.Value '最初のチェックボックスにしたがって反転にさせます。True <-> False

For Each i In nums
　　Me.OLEObjects("CheckBox" & i).Object.Value = Not bln
Next i
End Sub

なお、今から、マクロを勉強しても、このレベルになるのは、半年先ぐらいになってしまいますから、もうお任せしたほうが早いと思います。（^^;

noname#140971 · Answer

１、グループ別にトグルボタンを用意する。
２、または　VBA　で以下のようなコードを書く。

Option Explicit

Private Sub ComboBox1_Change()
　　Dim G　　　 As Integer
　　Dim obj　　 As Object
　　Dim ObjName As String
　　　 
　　G = Val(Me.ComboBox1.Value)
　　For Each obj In Me.OLEObjects
　　　　ObjName = obj.Name
　　　　If Left(ObjName, 8) = "CheckBox" Then
　　　　　　obj.Object.Value = CBool(Mid(ObjName, 9, 1) = G)
　　　　End If
　　Next obj
End Sub

Private Sub CommandButton1_Click()
　　Me.ComboBox1.AddItem "1:a"
　　Me.ComboBox1.AddItem "2:b"
　　Me.ComboBox1.AddItem "3:c"
End Sub

コマンドボタンでグループを選択します。
ComboBox1_Change() のコードは、対応するチェックボックスのみをONにするコードです。
コンボボックスの先頭の数字とチェックボックスの対応は次のようにしたらいいです。

CheckBox101
CheckBox102
CheckBox103
CheckBox201
CheckBox202
CheckBox203

これでグループ毎にオン、オフできます。

Wendy02 · Answer

こんにちは。

結論から言うと、

「マクロを使わずに複数のチェックボックスに一括チェックするコマンドボタン」というのは、不可能ですね。

それで、マクロですが、コマンドボタンに取り付けてありますが、機能は、トグルになっています。LinkedCell は、すべて外してください。


Private Sub CommandButton1_Click()
Dim i As Integer
Dim bln As Boolean

bln = Me.CheckBox1.Value '一番目のチェックボックスにしたがって反転にさせます。

For i = 1 To 10
　　Me.OLEObjects("CheckBox" & i).Object.Value = Not bln
Next i
End Sub

noname#140971 · Answer

一度も　Excel　は操作したことがない門外漢ですが・・・。

ToggleButton1.LinkedCell=A1
CheckBox1.LinkedCell=A1
CheckBox2.LinkedCell=A1
CheckBox3.LinkedCell=A1

という仕掛けであれば、トグルボタンのオン、オフで複数のチェックボックスの値の操作が可。
コマンドボタンでは難しいのでは・・・。

エクセルでマクロを使わずに複数のチェックボックスに一括チェックするコマンドボタンを作れますか？

こんにちは。

１、グループ別にトグルボタンを用意する。

この回答への補足

こんにちは。

この回答への補足

一度も Excel は操作したことがない門外漢ですが・・・。

この回答への補足

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

一度も　Excel　は操作したことがない門外漢ですが・・・。