Video : Membuat highlight baris sesuai cell yang aktif pada range tertentu
Tutorial Level 6
Berikut adalah Kode Program-nya:
With Me
If (ActiveCell.Row >= 4) And (ActiveCell.Row <= 20) And (ActiveCell.Column >= 3) And (ActiveCell.Column <= 5) Then
With .Range(.Cells(4, 3), .Cells(20, 5)).Interior
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.599993896298105
End With
Range(Cells(ActiveCell.Row, 3), Cells(ActiveCell.Row, 5)).Interior.ColorIndex = 6
Else
With .Range(.Cells(4, 3), .Cells(20, 5)).Interior
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0.599993896298105
End With
End If
End With