0

エクセル・マクロで条件付き書式の設定を行いたいです。
知恵袋で使えそうな回答を見つけたのですが、やりたいことを実行する為には応用が必要なようです。
お知恵をお貸しください。よろしくお願いします。 ＜設定したい内容＞
①A10:A30の間で「あ」と入力された場合（例えば、A12に「あ」と入力」）、B12:H12のセルをcolor=56で塗りつぶす
②C10:C30の間で「あ」と入力された場合（例えば、C20に「あ」と入力」）、D20:H20のセルをcolor=56で塗りつぶす
②E10:E30の間で「あ」と入力された場合（例えば、E15に「あ」と入力」）、F15:H15のセルをcolor=56で塗りつぶす

上のような同一の書式設定を複数列で実行させたいのです。
以下はアレンジすれば使えるかもしれないと思った知恵袋の質問と回答です。
（初心者な為、見当違いかもしれません）

＜2008年8月の知恵袋回答＞
◆質問：Ａ列の値によって、その行のＣ列のセルの塗りつぶしの色を変えたい
◆回答：
・複数のセルの値の入力に対応しています。
・指定した文字列が入力されていたセルで、指定した文字列以外が入力された場合、ないしはdeleteされた場合、色が消えるようになっています。
・セル範囲の指定はSet Rng1およびSet Rng2のところを変えるだけでOKです。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng1 As Range
Dim Rng2 As Range
Dim c As Range
Dim myColor As Long

Set Rng1 = Range("A:A") '判定の対象となる列
Set Rng2 = Range("C:C") '色を変える列

If Intersect(Target, Rng1) Is Nothing Then Exit Sub

For Each c In Intersect(Target, Rng1)
With c
Select Case .Value
Case "あ"
myColor = 5
Case "い"
myColor = 6
Case "う"
myColor = 3
Case "え"
myColor = 10
Case "お"
myColor = 8
Case "か"
myColor = 4
Case "き"
myColor = 7
Case Else
myColor = xlColorIndexNone
End Select
Intersect(c.EntireRow, Rng2).Interior.ColorIndex = myColor
End With
Next
End Sub
１２

質問者が選んだベストソリューション

Yahoo!知恵袋 5644日前