ここから本文です

エクセルについて教えてください。 A2を選択したら、A2,B5,C8に色が付く A3を選...

fmh********さん

2009/6/2622:22:10

エクセルについて教えてください。
A2を選択したら、A2,B5,C8に色が付く
A3を選択したら、A3,B6,C9に色が付く・・・
ようにしたいのですが、どうしたらよいでしょうか。
よろしくお願いします。

補足さっそくの回答ありがとうございます。
試してみたのですが、A2の選択をやめてA3を選択したら、
A2,B5,C8の色が元通りなくなる・・・というふうにはできないのでしょうか。
どうぞよろしくお願いします。

閲覧数:
255
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

ann********さん

編集あり2009/6/2710:40:47

シートタブを右クリックメニューにある[コードの表示]で開いたウィンドウに
以下を記述して、そのウィンドウを閉じます。

>A2を選択したら、A2,B5,C8に色が付く
>A3を選択したら、A3,B6,C9に色が付く・・・
ですので、別なセルでもA列のセルなら、それを選択したときに同じ
相対位置のセルに色がつく、ということで記述しました。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
With Target
.Interior.ColorIndex = 7
.Offset(3, 1).Interior.ColorIndex = 7
.Offset(6, 2).Interior.ColorIndex = 7
End With
End Sub

------------------------------------------------------------
<追記>2009.06.27__10:29

>A2の選択をやめてA3を選択したら、A2,B5,C8の色が元通りなくなる

A2を選択→A2,B5,C8に色が付きます。

A3を選択→A2,B5,C8に色が付いたままで、A3,B6,C9に色が付きます。

A2を選択→A2,B5,C8の色が消えます。

複数セットの色づけもあるはずでは、と、勝手に解釈し、このようにして
みました。<実は手抜き。(^^ゞ>

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
With Target
Select Case .Interior.ColorIndex
Case Is = xlNone
.Interior.ColorIndex = 7
.Offset(3, 1).Interior.ColorIndex = 7
.Offset(6, 2).Interior.ColorIndex = 7
Case Else
.Interior.ColorIndex = xlNone
.Offset(3, 1).Interior.ColorIndex = xlNone
.Offset(6, 2).Interior.ColorIndex = xlNone
End Select
End With
End Sub

シートタブを右クリックメニューにある[コードの表示]で開いたウィンドウに...

質問した人からのコメント

2009/6/28 01:22:24

降参 追加の質問にもすぐに答えていただき、本当に助かりました。
おかげさまで、イメージしていた表が作れました。
どうもありがとうございました。

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる