MENU

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

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

質問

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

f:id:The-Alchemist:20220131193314p:plain

手順

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

f:id:The-Alchemist:20220131194555p:plain

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

 を作成する。

f:id:The-Alchemist:20220131194447p:plain

   ※入力画面

f:id:The-Alchemist:20220131204726p:plain

アプリの画面

f:id:The-Alchemist:20220131180950p:plain



左が設定画面です。

 

 

 

 

 

 

 

 

 

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

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

 

 

 

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

 

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

 

 

 

 

 

 

 

 

 

 

コード

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

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