VBAのイベントプロシージャを使って自動的に枠線の色を変えたい。

質問

VBAのイベントプロシージャを使って自動的に枠線の色を変えたい。

エクセル２００７。
VBA初心者です。

現在、書籍を購入して１からVBAを勉強中ですが、
どうしても以下のことを早く実現させたいと思ってますので質問させて下さい。

すべて黒色の枠線が引かれた表（A１：C２０）があるとします。
このうちC列はリスト（りんご、みかん、メロン）からの入力しかできません。
更にC列のみ条件付き書式が入っていて、メロンを選択した時だけ
そのセル内が黒色に塗りつぶされ、且つ文字が白色になる、いわゆる反転状態になります。

そこで、もし例えばC５とC６に「メロン」を入力したら
C５もC６も黒色に塗りつぶされることになり、C５とC６の間にあった枠線は元々黒色ですから
その線が全く見えなくなってしまいますよね？

私がVBAでやってみたいのは、この時（＝黒色セルが２行続けて並んでしまう時）、
自動的にその間にある線の色だけ白色にするというプロシージャです。
また、この条件が成立して一度線の色が白になっても、
白を作らせた「メロン」を削除した時、元の黒色線に戻るようにもさせたいのですが
これは、条件が消えれば自動的に戻るのでしょうか？

自力で調べた限り、Worksheet Changeを使って
If～thenで作るのが一番近いのかなと思っていますが
いかんせんまだまだ勉強不足であり、どうにも上手く実現できません。

これを実現するサンプルコードをできるだけ簡単に示していただけたら幸いです。
よろしくお願いします。

回答No.3

Wendy02 · ベストアンサー

入門レベルの技術では、そのすべての内容は少し無理ではないでしょうか？
出来るところから手を付けて、どのぐらい書けているのか教えてください。
掲示板に質問を書けば、しょせん、回答者のワザ比べになって、質問者さんの手からは離れてしまいます。どれがどうとか分からないはずです。

ただ、VBAで作るに当たって、自分のしたいことをきちんとまとめることが大事かと思います。
条件をまとめると
・C列の1～20行目までに入力規則があって、「りんご,みかん,メロン」とある。
・メロンと選択した時だけに、Interior = 黒, Font = 白となる。
　そうでない時は、元に戻す。
・貼り付けはしない。
----VBAで、ここまでは、出来ると思います。----
・二つが同じ場合は、その間のBorderの色を反転する
　そうでない場合は、元の色(にする。
・ただし、入力順序は関係ないとする。
こういうことだと思います。もしかしたら、この後に付け足したいという話になるかもしれませんが、まず、VBAを勉強しているなら、自分でぎりぎりまで考えてください。しょせん、私のコードなどが参考になるなんて大それたことを考えて書いているわけではありません。

'//
Private Sub Worksheet_Change(ByVal Target As Range)
　Const KEYWORD$ = "メロン"
　If Intersect(Target, Range("C1:C20")) Is Nothing Then Exit Sub
　With Target
　　If .Row = 1 Then
　　　ColorChange Target, KEYWORD
　　Else
　　　ColorChange Target.Offset(-1).Resize(3), KEYWORD
　　End If
　End With
End Sub

Private Function ColorChange(rng As Range, Keywd As String)
　Dim c As Range
　Const xlColorBlack = 1!
　Const xlColorWhite = 2!
　For Each c In rng
　　If c.Value Like Keywd And c.Offset(1).Value Like Keywd Then
　　　c.Resize(2).Borders(xlInsideHorizontal).ColorIndex = xlColorWhite
　　ElseIf c.Value Like Keywd Then
　　　c.Interior.ColorIndex = xlColorBlack
　　　c.Cells.Font.ColorIndex = xlColorWhite
　　Else
　　　c.Interior.ColorIndex = xlColorIndexNone
　　　c.Cells.Font.ColorIndex = xlAutomatic
　　　c.Cells.Borders.ColorIndex = xlAutomatic
　　End If
　Next
End Function

お礼

回答ありがとうございました。

お察しの通り、現在の自分の力量に見合わない質問です。
確かに回答者全依存の聞き方ですね。
わかってはいたのですが、ご指摘いただいてちょっとお恥ずかしいです。
それでもこうして一例を挙げていただいたことに感謝もしております。

おかげさまでいただいた全ての回答を参考に、目的の物を作ることができました。
入門の私には回答(コード)の中身を一つ一つ紐解いていく作業も勉強になりますよ。
ただ次回があるなら、おっしゃる通り尋ねる範囲といいますか、
本当に身になるようにしたければ、質問の内容を考えた方がもっとよいとも感じています。

ＶＢＡに限らず色々と参考になるものがありました。
回答ありがとうございます。

回答No.2

keithin

マクロを併用するなら条件付き書式は解除してしまっても構わないですし，逆に2007ですからごりごりとチカラワザで条件付き書式だけで組み立ててもそんなに難しくはない(単に発想だけの問題)の様子です。

練習用のサンプルマクロ：
あまり難しく考えず，やるべき事を少し丁寧に淡々と記述していくだけです。

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim h As Range
　Dim ha As Range
　Dim hx As Range
　On Error Resume Next

　Set hx = Application.Intersect(Target, Range("C1:C20"))
　If hx Is Nothing Then Exit Sub

　For Each ha In hx.Areas
　　For Each h In ha
　　　If h = "メロン" Then
　　　　h.Interior.ColorIndex = 1
　　　　h.Font.ColorIndex = 2

　　　　If h.Offset(-1) = "メロン" Then
　　　　　Range(h, h.Offset(-1)).Borders(xlInsideHorizontal).ColorIndex = 2
　　　　End If

　　　　If h.Offset(1) = "メロン" Then
　　　　　Range(h, h.Offset(1)).Borders(xlInsideHorizontal).ColorIndex = 2
　　　　End If

　　　Else
　　　　h.Interior.ColorIndex = xlNone
　　　　h.Font.ColorIndex = xlAutomatic
　　　　h.Borders.ColorIndex = xlAutomatic

　　　End If
　　Next
　Next
End Sub

練習用の条件付き書式
条件１　C1からC19まで　数式が　=AND(C1="メロン",C2="メロン")　で下の罫線を白に
条件２　C2からC20まで　数式が　=AND(C1="メロン",C2="メロン")　で上の罫線を白に
条件３　C1からC20まで　セルの値が　次の値に等しい　メロン　でセルの塗りつぶしを黒，文字色を白に。

お礼

回答ありがとうございました。

全ては条件付き書式で可能なことだったのですね。
実はそのことも知らず…、お恥ずかしい限りです。

それでもいただいたコードを元に、目的の物を完成させることができました。
現状ＶＢＡではこのようにおんぶにだっこですが、
早く自分で考えられるレベルに達したいものです。

素早い回答ありがとうございました。

回答No.1

mar00

それは条件付き書式で出来たりするのでは?

お礼

最初に、えっ…！？、と思ってしまいました。
本当にお恥ずかしいです。
出直してきますね。

回答ありがとうございました。