![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
EXCEL2000を使用してます。
アンケート作成をしており、設問毎にチェックボックスで複数選択できるようにしていますが、1つの設問にチェックボックスが8~10等多くあるため、設問毎にチェックボックスの一括オンオフができるようにしたいのです。
今は、次の記述で、ある設問のみ全てのチェックボックスにレが入りますが、はずす事ができません。
Sub チェック11_Click()
ActiveSheet.CheckBoxes(Array(1, 2, 3)).Value = True
End Sub
どうすれば、チェック11のボックスで、オンオフができるのでしょうか?
どうか教えて頂きますよう、よろしくお願い致します。
No.2ベストアンサー
- 回答日時:
あなたのシートで、activesheet.checkboxes(1)やらactivesheet.checkboxes(2)やらactivesheet.checkboxes(3)やらが、具体的にどのチェックボックスの事になっているのか、キチンと正しくあなたご自身がまず把握してから、作業をしてください。
まず練習として、まっさらのシートにフォームのチェックボックスを3個配置します
最初のチェックボックスにマクロの登録を行い、
Sub チェック1_Click()
activesheet.checkboxes(array(2,3)).value = activesheet.checkboxes(1).value
end sub
と登録します。
ご回答頂き、誠にありがとうございます。
言葉足らずで、申しの訳ありませんでした。
フォームコントロールチェックボックスです。
お陰様で、無事にアンケートフォームを作成することができました。
次回より、回答者側の立場も考えて、質問したいと思います。
初心者で、どのように質問するべきか、わかりませんでした。
また、次回もどうぞよろしくお願い致します。
本当にありがとうございました。
No.3
- 回答日時:
>No.1 この回答への補足
なるほど、そういうことでしたか。
No.2 keithinさんの回答を拝見して気がつきました。
keithinさんのコードが質問内容を正確に反映されていると思います。
勉強になりました。
ご回答頂き、誠にありがとうございます。
言葉足らずで、申しの訳ありませんでした。
フォームコントロールチェックボックスです。
お陰様で、無事にアンケートフォームを作成することができました。
次回より、回答者側の立場も考えて、質問したいと思います。
初心者で、どのように質問するべきか、わかりませんでした。
また、次回もどうぞよろしくお願い致します。
本当にありがとうございました。
No.1
- 回答日時:
フォームコントロールなら
ValueプロパティをFalseにすればいけると思います。
ActiveSheet.CheckBoxes(Array(1, 2, 3)).Value = False
シート上の全てのチェックボックスを対象にするなら
ActiveSheet.CheckBoxes.Value = False
アクティブXコントロールの場合は一括ではできないようです。
総当たりすることになります。
Dim myObj As OLEObject
For Each myObj In ActiveSheet.OLEObjects
If myObj.progID = "Forms.CheckBox.1" Then
myObj.Object.Value = False
End If
Next
この回答への補足
xls88さん、早速にご回答頂き、どうもありがとうございます。
VBAについて、初心者なので再度お伺いします。
記述は、次のようになるのでしょうか?
Sub チェック1_Click()
ActiveSheet.CheckBoxes(Array(2, 3)).Value = True
ActiveSheet.CheckBoxes(Array(2, 3)).Value = False
End Sub
これだと、うまくいきません。
チェックボックス1をクリックするたびに、レ点が指定したチェックボックス全てにオンオフになるように記述するにはどうすればいいでしょうか?
どうぞ、ご回答の程、よろしくお願い致します。
xls88さん
何度もご回答頂き、誠にありがとうございます。
ありがとうポイント10ポイントを付与させていただこうと思いましたが、今はこのポイントはないのでしょうか。。
解りやすくご回答頂きましたのに、何もお礼ができず、申し訳ありません。
また次回、どうぞよろしくお願い致します!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「述べる」と「論じる」
-
性格適性検査で意図が分からな...
-
Googleフォームのアンケートに...
-
集計した数字の誤りを何と言い...
-
自明な関数従属について
-
3.75時間が3時間45分ってことは...
-
数Iのこの問題を解説してほしい...
-
このような媒介変数の問題で、x...
-
小数第二位を四捨五入について。
-
2番がわかりません。たぶんある...
-
数学A internetのすべての文字...
-
x+2y+3z=xyzを満たす自然数x...
-
売上に対して直接かかった費用...
-
現代文について教えください。 ...
-
自動車販売で売上高22億って儲...
-
二級ボイラ-試験の24年度分...
-
はま寿司の監視カメラ
-
重回帰分析による売上予測について
-
三角比の問題
-
不等号のとき、大なり小なりに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
性格適性検査で意図が分からな...
-
「述べる」と「論じる」
-
Googleフォームのアンケートに...
-
値入ミックスについて
-
現代文は本文全部読みますか?...
-
アンケートの集計方法について...
-
中小企業診断士一次試験の平成2...
-
Pマーク取得のための社内テスト
-
TOEICのリスニング問題で、part...
-
入社試験一般常識問題の作り方
-
明日愛知学院大学の推薦を受け...
-
この伝達関数ってどのようにし...
-
平成22年技能検定試験について
-
高校受験まであと3ヶ月もないの...
-
TOEICのパート7の紛らわしい選...
-
SQL文について(ANDとORの論理演...
-
茨城 後期試験について 急ぎで...
-
複数のブックにある複数のシー...
-
アイゼンメンジャー(Eisenmeng...
-
【就活】エントリーシートの設...
おすすめ情報