【エクセルVBA】目的の文字がある行全部の背景を赤色にするVBA

こんばんわ。シバマメです。

条件付き書式設定をつかって、

指定の文字のセルの背景を自動で赤色にしたりとか、

よく使われるテクニックですね。

でも、対象になるのは、そのセル1個だけです。

そのセルが含まれるセルの行全部の色を、自動で変えたいと思ったことはありませんか？

VBAを使うと簡単にできます！

Sub Target_RedLine()

    Dim Maxrow As Long
    
    Dim Maxcol As Long
    
    Dim i As Long
    
    Dim a As Long
    
    Dim x As Variant
    
        x = "廃盤" ' 反応させる文字列
    
    Dim col As Long
    
        col = 3 ' 反応させる列


    Maxrow = Cells(Rows.Count, 1).End(xlUp).Row '最終行取得
    Maxcol = Cells(1, Columns.Count).End(xlToLeft).Column  '最終列取得
    
        For i = 1 To Maxrow
        
            If Cells(i, col).Value = x Then
            
                For a = 1 To Maxcol
            
                    Cells(i, a).Interior.Color = RGB(244, 182, 240)
            
                Next a
                
            End If
            
        Next i


End Sub

Sub Target_RedLine()

Dim Maxrow As Long

Dim Maxcol As Long

Dim i As Long

Dim a As Long

Dim x As Variant

x = "廃盤" ' 反応させる文字列

Dim col As Long

col = 3 ' 反応させる列

Maxrow = Cells(Rows.Count, 1).End(xlUp).Row '最終行取得

Maxcol = Cells(1, Columns.Count).End(xlToLeft).Column '最終列取得

For i = 1 To Maxrow

If Cells(i, col).Value = x Then

For a = 1 To Maxcol

Cells(i, a).Interior.Color = RGB(244, 182, 240)

Next a

End If

Next i

End Sub

手順

1. 個人用マクロブックに下記のコードをコピーペースト
2. F5キーか、▶ボタンでマクロを実行
3. コードの中の、
x = “廃盤” ‘ 反応させる文字列
　　の””で囲まれた文字を反応させたい文字に書き換えましょう。
4. コードの中の
　　 col = 3 ‘ 反応させる列
　　の数字を指定の列に書き換えましょう。
　　 A列の場合は１、B列の場合は２…

↓よろしければクリックお願いします🌼
にほんブログ村