Ada pertanyaan? Masuk ke Forum atau klik di sini..!

requestHalo, Pembaca Klinik Excel.. Bantu kami tetap online yuk..

Jika artikel-artikel kami dirasa memberikan manfaat, mohon bantu kami agar website ini tetap online ya.. Caranya gampang, cukup klik iklan yang tampil aja kok.. Terima kasih sebelumnya dan do'a kan agar kami dapat terus menulis artikel yang bermanfaat..

 

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