Option Explicit

Private Sub Worksheet_Selecti(ByVal Target As Range)
  kkk Target
End Sub


Sub kkk(rT As Range)
Dim rC As Range
Me.Cells.FormatConditions.Delete
For Each rC In rT
  With Cells(rC.Row, 1).Resize(, 7)
    .FormatConditions.Add Type:=xlExpression, Formula1:="=TRUE"
    .FormatConditions(1).Interior.ColorIndex = 37
  End With
  With Cells(rC.Row, 8).Resize(, 7)
    .FormatConditions.Add Type:=xlExpression, Formula1:="=TRUE"
    .FormatConditions(1).Interior.ColorIndex = 38
  End With
  With Cells(rC.Row, 15).Resize(, 6)
    .FormatConditions.Add Type:=xlExpression, Formula1:="=TRUE"
    .FormatConditions(1).Interior.ColorIndex = 37
  End With
  With Cells(rC.Row, 21).Resize(, 6)
    .FormatConditions.Add Type:=xlExpression, Formula1:="=TRUE"
    .FormatConditions(1).Interior.ColorIndex = 38
  End With
  With Cells(rC.Row, 27).Resize(, 4)
    .FormatConditions.Add Type:=xlExpression, Formula1:="=TRUE"
    .FormatConditions(1).Interior.ColorIndex = 37
  End With
  With Cells(rC.Row, 31).Resize(, 6)
    .FormatConditions.Add Type:=xlExpression, Formula1:="=TRUE"
    .FormatConditions(1).Interior.ColorIndex = 38
  End With
Next
End Sub


A열 전체선택시 응답없음...

- dc official App