VBA Bedingte Formatierung mit veränderbaren Bedingungen

Question

Ich versuche, bedingte Formatierung in 18 Zellen in der dritten Spalte ("C") festzulegen. Ich habe jeweils 6 Zellen in der ersten Spalte ("A") und nicht zusammengefasste (normale) Zellen in der zweiten Spalte ("B") zusammengeführt. Ich versuche, für jede nächste Zelle in Zeile der Spalte "C" zu überprüfen, ob in der ersten Zeile der Spalte "A" ein "Ja" ist oder ob in Spalte "A" ein "Nein" und in B "Spalte. Der Trick ist, ich möchte nur die erste Reihe von "A" Spalte, siebte, dreizehnte und neunzehnte überprüfen (also mit dem Schritt = 6) und überprüfen Sie jede Zeile in "B" Spalte. Ich versuche, so etwas wie diese:

Sub try() 
    Dim i As Integer 
    Dim j As Integer 
    i = 1 

    For j = 1 To 12 
     With Range("C1:C18") 
      .FormatConditions.Delete 
      .FormatConditions.Add Type:=xlExpression, Formula1:="=OR(Cells(i, 1) = ""Yes""; AND(Cells(i, 1) = ""No""; Cells(j, 2) = ""Pass""))" 

     End With 
     If j Mod 6 = 0 Then 
      i = i + 6 

    Next j 
End Sub 

Aber es funktioniert nicht so, ich sah Beispiele mit spezifischen Zellen wie „A1“ oder „A3“ aber ich mag eine Zahl mit jeder Schleife zu erhöhen (so habe ich versucht, es mit Zellen (Zeile, Spalte)).

Answer 1

Sie können es auf dem gesamten Bereich in einer Anweisung tun durch relative Adressen, so was zu C1 relativ zu A1 und B1 automatisch in den nachfolgenden Zeilen des Bereichs folgen gilt.

Der einzige Trick ist, den Wert in Spalte A, abgerufen werden, da dieser Wert in Zellen, die nur verfügbar ist A1, A7 usw. Diese OFFSET(A1,-MOD(ROW(C1)-1,6),0) durch den Ausdruck erreicht wird.

Sub doIt() 
    With Sheet1.Range("C1:C30").FormatConditions 
    .Delete 
    .Add(xlExpression, , _ 
     "=OR(OFFSET(A1,-MOD(ROW(C1)-1,6),0)=""yes"",AND(OFFSET(A1,-MOD(ROW(A1)-1,6),0)=""no"",B1=""pass""))") _ 
     .Interior.ColorIndex = 6 
    End With 
End Sub 

Sie können es auch über die GUI mit der gleichen Formel tun; Wählen Sie Zelle C1 und dann den gesamten Bereich C1:C30, und klicken Sie auf

Conditional Fomatting -> New rule -> Use a formula... und geben Sie die gleiche Formel ein.

BTW, der Ausdruck kann weiter vereinfacht werden, wenn Sie nicht überprüfen möchten, "no", was bedeutet, wenn Spalte A sichergestellt ist, entweder "Ja" oder "Nein" zu sein.