下記の方法で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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) エクセルVBAで以下のようなコードを書いたらエラーになりました。何処が間違っているの教えて? 1 2023/02/10 18:30
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カッコいい、日本語のブルース...
-
ブルースの代表曲を10曲あげ...
-
「練鑑ブルース」の歌詞について
-
神話を感じられる音楽を真剣に...
-
世界一&日本一テンポの速い曲に...
-
ラルクのCMについて
-
昔から気になって耳から離れな...
-
Novelbrightの夢花火という曲の...
-
「初恋」という言葉に対するイ...
-
音楽について質問です!yoasobi...
-
音楽
-
ヨガスタジオLAVAで使用してい...
-
サビの歌詞が「I Need You」
-
良い曲は何故、いつまでも色褪...
-
R&Bって何?邦楽や洋楽のバラー...
-
昔のロックバンド、ボーイとグ...
-
天樂って誰の曲ですか? 和楽器...
-
小沢健二って何が凄いんですか...
-
会社のマドンナの周りからの扱い
-
55才なんですが
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カッコいい、日本語のブルース...
-
トゥル トゥルットゥルットゥル...
-
ヨガスタジオLAVAで使用してい...
-
音楽について質問です!yoasobi...
-
「練鑑ブルース」の歌詞について
-
良い曲は何故、いつまでも色褪...
-
私、YMO好きですけど、ボーカル...
-
音楽をテーマにレポートを書き...
-
90年代の曲の方がよかったって...
-
角松敏生凍結の理由
-
初恋が23歳って遅いほうでしょ...
-
「初恋」という言葉に対するイ...
-
学校でマドンナと男子に言われ...
-
昔から気になって耳から離れな...
-
ビートルズの作品がパクり!?...
-
サイケってどういう意味なので...
-
米津玄師さんのfogboundってな...
-
時間を知らせる音楽?は、いっ...
-
音楽
-
同窓会に参加して初恋の人と再...
おすすめ情報