![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセルでセルをクリックすると色が変わるものが作りたいのですが、
A1:A50など連続した範囲ではなく、
A1,E1,I1...A5,E5,I5...をクリックすると「赤」に塗りつぶされる
B1,F1,J1...B5,F5,J5...をクリックすりと「青」に塗りつぶされる
A2,E2,I2...A6,E6,I6...をクリックすると「黄」に塗りつぶされる
そして、もう一度クリックすると「塗りつぶしなし」に戻る
というものを作りたいのです。
連続した範囲のものはなんとかわかったのですが、
上記の条件ですと、複雑でどうしていいかわからなくなってしまいました。
コードを教えていただけませんか?
宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
>連続した範囲のものはなんとかわかったのですが、
ではヒントを
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1,E1,I1")) Is Nothing Then
If Target.Interior.ColorIndex = xlNone Then
Target.Interior.ColorIndex = 3
Else
Target.Interior.ColorIndex = xlNone
End If
End If
End Sub
でA1,E1,I1をクリックしたとき(正確には選択されたとき。矢印で移動しても同じ)に動作します
早速のご回答、どうもありがとうございました。
指定するセルが300程あったので、地道な作業でしたが、
問題もなく実行できました。
とってもすばらしかったです。
自分で解決できるように、勉強していこうと思います。
大変感謝しています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マイページの出し方が分かりま...
-
PCのグーグルマップで現在地が...
-
アイコンに、四角い枠が出来て...
-
ワードで直径4cmの円を作成...
-
ヤフー。トップページに戻ると1...
-
ワードのハイパーリンク、Ctrl...
-
PC上からメールのアイコンが消えた
-
E-mailの署名について
-
pcの入力に付いてお伺いします。
-
ドイツの町が見れるライブカメラ
-
windows2000で x86かx64の確認...
-
BlueStacks3でマウスのクリック...
-
リンクに飛べる様にする際 「C...
-
エクセルでセルをクリックする...
-
エクセル文字列で縦書きカタカ...
-
2週間ほど前からtokyomotionと...
-
メールソフト「Thunderbird」で...
-
Google Chrome インターネット...
-
Windows Defender Scheuled Sca...
-
inauthor 何でしょうか?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マイページの出し方が分かりま...
-
ワードで直径4cmの円を作成...
-
PCのグーグルマップで現在地が...
-
ワードのハイパーリンク、Ctrl...
-
アイコンに、四角い枠が出来て...
-
リンクに飛べる様にする際 「C...
-
E-mailの署名について
-
ヤフー。トップページに戻ると1...
-
パソコンの画面上に黒い四角が...
-
amazon サポートセンターへ問い合
-
PC上からメールのアイコンが消えた
-
QRコード読み取り後、一発でメ...
-
ワードで作った文章を筆ぐるめ2...
-
windows2000で x86かx64の確認...
-
エクセルでセルをクリックする...
-
日本語入力がひっきりなしにフ...
-
あなたへのお知らせ
-
クリック?クイック?
-
教えてGoo って プロフィールか...
-
windows11フォトビューア
おすすめ情報