VBA - Koşullu Biçimlendirme Çoklu Hücre ve Döngü Aralıkları

Question

İş için bir Master Schedule oluşturuyorum ve bilgiyi görüntülemeye çalışıyorum, bu yüzden kullanıcı için çok sezgisel.

Bu yüzden Hücre K4'te bir tarih girildiğinde Hücreleri J4: L4 vurgulayabiliriz. Ardından, 4 ile 2500 arasındaki satırlar ve Sütunlar M: 0, P: R, S: U, vs için döngü yapmak istiyoruz. Aşağıdaki Makale yazdım ama sadece ilk Satır'ı vurgulamak. Birisi bana doğru yönde işaret edebilir mi? Eğer döngü ile bisiklet ederken

Sub Highlight() 
    ' 
    ' Highlight Macro 
    ' 
    ' Keyboard Shortcut: Ctrl+Shift+R 
    ' 
    Dim kRange As Range, k As Integer, aaaFormat As FormatCondition 
     If ActiveSheet.Name <> Sheet1.Name Then Exit Sub 
    For k = 4 To 2500 
     Set kRange = Range("=$J4:$L4") 
     If kRange.FormatConditions.Count <> 0 Then 
      kRange.FormatConditions.Delete 
     Else 
      Set aaaFormat = kRange.FormatConditions.Add(xlExpression, xlFormula, "=$K4<>0") 
      aaaFormat.Interior.Color = 15773696 
     End If 
    Next k 
    End Sub 

Answer 1

, CF kural geçerli olacaktır aralığı yanı sıra sonucunu belirleyen formülü ayarlamanız gerekir. Zaten satır göreli, sütun mutlak yaptık beri

'this, 
Set kRange = Range("$J4:$L4") 
'becomes, 
Set kRange = Range("$J"& k & ":$L"& k) 
'and this, 
Set aaaFormat = kRange.FormatConditions.Add(xlExpression, xlFormula, "=$K4<>0") 
'becomes, 
Set aaaFormat = kRange.FormatConditions.Add(xlExpression, xlFormula, "=$K" & k & "<>0") 

Ancak, sadece tüm aralığına CF yazabilir.

Sub Highlight() 
    ' Highlight Macro 
    ' Keyboard Shortcut: Ctrl+Shift+R 

    With Sheet1.Range("J4:L2500") 
     .FormatConditions.Delete 
     With .FormatConditions.Add(Type:=xlExpression, Formula1:="=$K4<>0") 
      .Interior.Color = 15773696 
     End With 
    End With 
End Sub