Excel2007を使用し、以下のようなチェックリストを作成しました。
「□」はActiveXコントロールのチェックボックスです。
2行目:□ りんご
3行目:□ もも
4行目:□ みかん
5行目:□ ばなな
6行目:とくにありません
7行目:りんごがすき
8行目:ももがすき
9行目:みかんがすき
10行目:ばなながすき
2行目にチェックが入っていれば
7行目:りんごがすき
を表示、
2行目と5行目にチェックが入っていれば
7行目:りんごがすき
10行目:ばなながすき
を表示、そして
2~5行目のチェックボックスにすべてチェックが入っていない場合は
6行目:とくにありません
だけを表示させたいです。
どのようにマクロをくんだらいいでしょうか?
ちなみに、1シートに表示されるチェックボックスはこれだけでなく、
11行目:□ いぬ
12行目:□ ねこ
13行目:□ とり
14行目:とくにありません
15行目:いぬがすき
16行目:ねこがすき
17行目:とりがすき
と、果物、動物それぞれで同じ原理で同様の動作をさせたいと思っています。
IfかCaseを組めばいいのかと思っているのですが
複雑な条件文をどのように記述すればいいかわかりません。
ご教授お願いいたします!
No.1ベストアンサー
- 回答日時:
>「□」はActiveXコントロールのチェックボックスです。
という事はそれぞれのチェックボックスごとに、イチイチマクロを作成してかなきゃならないって事を十分理解していますね。
手順:
CheckBox1から4まで準備する
シートモジュールにそれぞれ次のように準備する
Private Sub CheckBox1_Click()
Rows(7).Hidden = Not CheckBox1.Value
Rows(6).Hidden = CheckBox1.Value Or CheckBox2.Value Or CheckBox3.Value Or CheckBox4.Value
End Sub
Private Sub CheckBox2_Click()
Rows(8).Hidden = Not CheckBox2.Value
Rows(6).Hidden = CheckBox1.Value Or CheckBox2.Value Or CheckBox3.Value Or CheckBox4.Value
End Sub
Private Sub CheckBox3_Click()
Rows(9).Hidden = Not CheckBox3.Value
Rows(6).Hidden = CheckBox1.Value Or CheckBox2.Value Or CheckBox3.Value Or CheckBox4.Value
End Sub
Private Sub CheckBox4_Click()
Rows(10).Hidden = Not CheckBox4.Value
Rows(6).Hidden = CheckBox1.Value Or CheckBox2.Value Or CheckBox3.Value Or CheckBox4.Value
End Sub
Sub reset_check1to4()
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
CheckBox4 = False
End Sub
最初「まだどれもチェックされていない」とき、「とくになし」だけ表示し他を隠した状態を初期の状態にするため、reset_check1to4をまず実行する
11行以下のチェックボックス5,6,7についても、同様にして一つずつ準備する。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ExcelのIF関数について 4 2023/05/24 12:54
- Excel(エクセル) Excelの列から検索して該当する行を別シートに転記するVBA 2 2022/12/20 09:35
- Visual Basic(VBA) エクセルでフォームのチェックボックスを使用した日付表示切替を作りたい 3 2023/07/11 10:47
- Visual Basic(VBA) 【Excel VBA】条件に合った行の表示・非表示を行う方法 3 2023/03/18 12:31
- Excel(エクセル) Excel リンク先のエクセルファイルの削除 同時に行を削除したい 1 2022/11/29 16:20
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Excel(エクセル) 列を自動で追加したい 3 2022/07/11 12:58
- Excel(エクセル) Excelの複数ファイルの複数行を別ファイル1つのシートにVBA、マクロで集約する方法 5 2022/09/13 06:30
- Visual Basic(VBA) VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。 1 2023/03/16 18:07
- PHP PHP MySql ページング 2 2022/09/20 06:38
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
なぜ女はSEXのときアホみたいな...
-
人間のオスの性欲はなぜ「支配...
-
何のために性器はグロテスクな...
-
母親と息子の近親相姦ってどの...
-
我が家の敷地内でよく猫が死に...
-
お恥ずかしい質問なのですが、...
-
彼が私を身体の上に乗せたがり...
-
猫を轢いてしまったかもしれない。
-
あるセルに特定の文字列を打つ...
-
ペットの仔犬をいじめたくなります
-
彼氏との生活を愛犬が邪魔をし...
-
至急!!赤ちゃんが猫のうんこ...
-
人間以外の動物で、子孫繁栄で...
-
どうしてヘビやカエルは獲物を...
-
教えてください!猫一匹を電子...
-
至急です。 朝起きたらでかい蜘...
-
綺麗事が嫌いです。 障害者は国...
-
彼女にペットと自分どちらを選...
-
反出生主義を否定するのは、子...
-
彼氏が猫の真似をして「にゃー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
なぜ女はSEXのときアホみたいな...
-
あるセルに特定の文字列を打つ...
-
人間のオスの性欲はなぜ「支配...
-
母親と息子の近親相姦ってどの...
-
何のために性器はグロテスクな...
-
生コンM^3あたり一輪車何杯?
-
お恥ずかしい質問なのですが、...
-
谷川俊太郎さんの「朝のリレー...
-
我が家の敷地内でよく猫が死に...
-
今、ニュース見て思ったんです...
-
彼が私を身体の上に乗せたがり...
-
Excelで事前にセルに入力した言...
-
ペットの仔犬をいじめたくなります
-
ニートは死ぬべきか
-
至急!!赤ちゃんが猫のうんこ...
-
人間以外の動物で、子孫繁栄で...
-
脱イオン水、MilliQ、蒸留水 ...
-
猫を轢いてしまったかもしれない。
-
綺麗事が嫌いです。 障害者は国...
-
どうしてヘビやカエルは獲物を...
おすすめ情報