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
アプリはこちらから↓↓↓↓