セルに値を入力すると、自動で値に一致するセルとその行に、色をつける

VBA初心者でも、すぐエクセルの自動化ができます。

質問

セルに値を入力すると、自動で値に一致するセルとその行に、色をつける

手順

①◇数式・関数の入力を作成する。

②【ツール】セルの内容が変更されたとき、コードを自動実行する

　を作成する。

　　　※入力画面

アプリの画面

左が設定画面です。

・アプリにセルのアドレスを設定すると、シート上のセルの値が処理する条件になります。

今回は、セルの値の「みかん」で検索します。

・該当データのある行の見出しに、色を付けることができます。

・処理前に、塗りつぶしの色をクリアできます。

コード

Sub 自動実行_1() '色変更
Dim セル範囲 As String, セル As Range, 右下セル As String
Sheets("sheet1").Select
セル範囲 = "a2:f21" 
Range(セル範囲).Interior.Color = xlNone
'◆条件分岐
Dim 条件値 As String
条件値 = Range("h4").Value
For Each セル In Range(セル範囲).Cells
 If セル.Value = 条件値 Then
   セル.Select
   Call 自動実行_1_メイン処理(セル範囲, セル)
 End If
Next
End Sub

Sub 自動実行_1_メイン処理(セル範囲 As String, セル As Range)
Selection.Offset(0, 0).Interior.Color = RGB(255, 255, 0)
Range("a" & セル.Row).Interior.Color = RGB(255, 255, 0)
End Sub

アプリはこちらから↓↓↓↓