下記の方法でExcel起動時にE1~E50にチェックボックスを
作成しています。
(F列にはチェックの結果を表示させています)
Sub Auto_open()
Dim i As Integer
Dim cbx As CheckBox
With Selection.Parent
For i = 1 To 50
Set cbx = .CheckBoxes.Add(Left:=Cells(i, 5).Left, _
Top:=Cells(i, 5).Top, _
Height:=Cells(i, 5).Height, _
Width:=Cells(i, 5).Width)
cbx.Text = ""
cbx.LinkedCell = "F" & i
cbx.Display3DShading = True
Next i
End With
Set cbx = Nothing
End Sub
チェックボックスにチェックされたら
チェックされた行のA~Dの色を変更したいのですが、
どのようにやるのか分からなく困っています。
(チェックボックスのクリックイベントを50個つくるわけにも
いかないですし・・・)
何か少しでもアイデア等ございましたら
ご教授お願いします。
No.1ベストアンサー
- 回答日時:
方法1:
Sub Macro1()
Dim cbx As CheckBox
Set cbx = ActiveSheet.CheckBoxes.Add( _
Top:=Range("E1").Top, _
Left:=Range("E1").Left, _
Width:=Range("E1").Width, _
Height:=Range("E1").Height)
cbx.Text = ""
cbx.Display3DShading = True
cbx.OnAction = "チェック1_Click"
Range("E1:E50").FillDown
End Sub
Sub チェック1_Click()
With ActiveSheet.Shapes(Application.Caller)
.TopLeftCell.Offset(0, -4).Resize(1, 4).Interior.ColorIndex = _
IIf(.ControlFormat.Value = 1, 4, xlNone)
End With
End Sub
とかなんとか。
方法2:
>F列にはチェックの結果を表示させています
これを拾って反応する条件付き書式をA:D列に施しておくのでも。
この回答への補足
下記 "チェック1_Click" にて確認があります。
Sub チェック1_Click()
With ActiveSheet.Shapes(Application.Caller)
.TopLeftCell.Offset(0, -4).Resize(1, 4).Interior.ColorIndex = _
IIf(.ControlFormat.Value = 1, 4, xlNone)
End With
End Sub
それぞれ細かい意味は把握できていませんが、
やっていることはチェックされたら1~4列目を緑に変更、
チェックなしは塗りつぶしなしに変更でよろしいでしょうか?
またそれぞれの細かい意味も参考までにご教授願いします。
お手数ですがよろしくお願いします。
keithin様
回答ありがとうございます。
いつもはVBを使用しており、Excelマクロは今回初めてなので
サンプルも記載して頂きありがとうございます。
"OnAction"でチェックボックスにチェックされた時の
イベントを追加するのですね。
なんとかやりたかった事が出来そうです。
有難う御座いました。
また不明な点があればご教授願いたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ヨガスタジオLAVAで使用してい...
-
トゥル トゥルットゥルットゥル...
-
カッコいい、日本語のブルース...
-
音楽をテーマにレポートを書き...
-
銀座を歌った歌を教えてください。
-
ビートルズの作品がパクり!?...
-
どうして音楽を聞くと元気にな...
-
「練鑑ブルース」の歌詞について
-
初恋が23歳って遅いほうでしょ...
-
音楽業界はオワコンですか?
-
「テル・ミー」を歌っている女...
-
ブルースの曲で何をコピーして...
-
学校でマドンナと男子に言われ...
-
マドンナの東京公演のDVDってあ...
-
同窓会に参加して初恋の人と再...
-
機械音のような音楽
-
大貫妙子さんの「突然の贈り物...
-
「透明感のある音楽」とは、ど...
-
U2の“Beautiful Day”のプロモ撮...
-
最近のJPOPがつまらない曲ばか...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
音楽をテーマにレポートを書き...
-
音楽業界はオワコンですか?
-
ヨガスタジオLAVAで使用してい...
-
「初恋」という言葉に対するイ...
-
トゥル トゥルットゥルットゥル...
-
「練鑑ブルース」の歌詞について
-
学校でマドンナと男子に言われ...
-
爆風スランプの曲で・・・
-
同意得たい系の質問ですww サマ...
-
90年代の曲の方がよかったって...
-
爆乳アイリッシュ
-
角松敏生凍結の理由
-
最近のJPOPがつまらない曲ばか...
-
ビートルズの作品がパクり!?...
-
カッコいい、日本語のブルース...
-
evergreen
-
初恋が23歳って遅いほうでしょ...
-
サビの歌詞が「I Need You」
-
大貫妙子さんの「突然の贈り物...
-
銀座を歌った歌を教えてください。
おすすめ情報