vba-wie um zu überprüfen, ob eine Zelle keine Formatierung oder Farbe

Vor kurzem hatte ich eine Frage bezüglich, wie das kopieren einer Zelle, Wert in alle Zellen unterhalb und zu stoppen, basierend auf, wenn Spalte A habe auf eine leere Zelle. post

Excel Tabelle an der ich arbeite, hat viele Teiler Zeilen mit Farbe gefüllt über die gesamte Zeile zu trennen-Kategorien, wie Sie einen Bildlauf nach unten das Blatt. Ich möchte in der Lage sein zu überspringen, diese Trennung von Zeilen in Spalte A, wenn das makro überprüft, ob eine leere Zelle in Spalte A. ich möchte einfach zuweisen StopRow auf die erste Zelle, die keine Formatierung/keine Farbe/kein Wert.

Hier ist, was ich habe, Dank Ripster heute früher, aber ich habe versagt Einbeziehung der richtigen wenn-dann-Aussage mit dem, was er kam mit.

 Sub Example()
    Dim MasterValue As String
    Dim StopRow As Long
    Dim i As Long

    'Get the master value
    MasterValue = Range("C5").Value

    'Get the first blank cell in column A
    StopRow = Range("A1").End(xlDown).Row

    'Start at row 6 and continue to the "Stop Row"
    For i = 6 To StopRow
        'Set every cell from row 6 in column 3 to the "Master Value"
        Cells(i, 3).Value = MasterValue
    Next
End Sub

Bitte helfen.
vba-wie um zu überprüfen, ob eine Zelle keine Formatierung oder Farbe

Dank

InformationsquelleAutor cheapkid1 | 2013-07-25
  1. 2

    Dieser dauerte eine Weile, aber ich fand eine Lösung für Ihr problem 😉

    Wenn makro geht-Zelle mit verschiedenen Farben, - überprüfung und tun nichts, weiter "ich" genommen wird. Diese sollte das tun, was u wollen. Es ist möglich, hinzufügen von mehr Farbe 😉

    Link auf Farben - http://dmcritchie.mvps.org/excel/colors.htm

    Sub Example()

For i = 6 To 1200
    If Cells(i, 3).Interior.ColorIndex = 1 Then 'here is color black

    Else
        If IsEmpty(Cells(i, 1)) = True Then 'if cells in column "A" is empty then stop
            Exit For

        Else
        Cells(i, 3).Value = Range("C5").Value
        End If

   End If

Next i

    End Sub

    • Anstelle der Verwendung von x, ich brauche etwas, das Stoppt an der letzten Zelle in Spalte A, so wenn A die Zellen 1 bis 13, die Werte haben, und in Zeile 14 ist eine Farbe Teiler Zeile und Zellen 15 thru-25 mit mehr Werten, das heißt, ich würde wollen, dass das makro beendet kopieren der master-Wert in Spalte C in der Zeile, die Eine hat keinen Wert und keine Hintergrundfarbe(beide Bedingungen) oder Zeile 26. Mit nur Kommissionierung eine Zahl für x, dass heißt ich werde ein update des x jedes mal, wenn die excel-Tabelle ändert...irgendwelche Gedanken?
    • Okay, es ist irgendwie schwer für mich zu verstehen, was Sie geschrieben haben, so lassen Sie uns versuchen zu analysieren, es Schritt für Schritt. Sie sagte, das Sie kopieren möchten master Wert alle dem Weg nach unten in der Spalte C mit einigen Bedingungen: 1. wenn es farbiger hintergrund, kopieren überspringt 2. wenn kein Wert in Spalte A in der gleichen Zeile, kopieren beendet Habe ich Sie richtig verstanden? Wenn ja, das sollte einfach sein 😉
    • Ja, das ist richtig.
    • Versuchen aktualisierten code jetzt 😉 ach... und natürlich können Sie erweitern die Funktionalität der Anwendung.ScreenUpdating = true / false um es schneller zu machen 😉
    • Ich habe versucht, den neuen code noch nicht auf die graue Zeile, anstatt überspringen Sie die graue Zeile und weiter...
    • Natürlich tut Sie das, ich weiß nicht, welche Farbe Sie haben in Ihrem Blatt. Das ist, warum ich gab Ihnen den link zu web mit Farb-Indizes, so dass Sie können wählen Sie Ihre! Machen einige Anstrengungen, und ändern Sie Farbe - u got Kommentar im code 'hier wird die Farbe schwarz!!
    • Ich entschuldige mich, wenn ich habe versucht, für die graue Farbe, die muss ich haben abgeholt die falsche Farbe. Also nach deinem letzten Kommentar, ich habe die Trennung Zeile Farbe auf schwarz und es funktionierte. Danke für all Eure Hilfe und die aufschlussreichen Informationen. Sehr geschätzt, sorry für meine Verwirrung.
    • Cool, es funktioniert, viel Spaß 😉

    InformationsquelleAutor lowak
  2. 1

    Ihre Bedingungen für StopRow nicht klar. Möchten Sie StopRow wenn die Zelle eine bedingte Formatierung Regel, oder einfach, wenn es ein anderes format hat, als der Standard ? Eine Zelle kann eine Regel haben, aber es kann nicht angewendet werden. Trotzdem, die Funktion vorgestellt hier ist etwas, das man finden könnte, verwenden Sie.

    Kopieren Sie die ActiveCondition Funktion irgendwo in einem Modul und ändern Sie die for-Schleife etwa so:

    For i = 6 To StopRow
    If ActiveCondition(Cells(i,3))=0 Then StopRow=i : Exit For
    Cells(i, 3).Value = MasterValue
Next

    Wenn Sie möchten, zu prüfen, ändern der schriftart, Farbe, nicht von der bedingten Formatierung dann müssten Sie eine zusätzliche Zeile:

     For i = 6 To StopRow
        If ActiveCondition(Cells(i,3))=0 Then StopRow=i : Exit For
        If Cells(1,3).Font.ColorIndex=0 Then StopRow=i : Exit For 
        Cells(i, 3).Value = MasterValue
    Next

    Gibt es elegantere Wege, dies zu tun, aber diese Lösung ist die einfachste in Ihrem code zu implementieren.

    Hoffe, das hilft.

    • Die StopRow soll nur gehen Ende der Spalte, wo die Letzte Zelle, die einen Wert, aber jetzt, wie Sie es im Bild sehen kann, wenn es um eine Zelle mit der Farbe, die es hält, anstatt weiterhin auf dem tatsächlichen letzten Zelle(ohne Hintergrundfarbe) Nicht besorgt über die Schrift-Farbe in dieser Zeit. Ich habe versucht, Ihre Lösung, die ich geschaut habe, bei den Aktiven Zustand dokumentieren, und ich dachte, es gibt eine viel einfachere Möglichkeit, als das große Funktionsbausteine wie, dass, ich erinnere mich nicht, wie. Ich denke, es war nur ein FormatCondition = false oder etwas entlang jenen Linien?? Nicht sicher
    • FormatConditions ist ein Collection-Objekt, so würde es das .Count-Eigenschaft. Sie könnten es verwenden, um beenden Sie das Programm, wenn die Zellen(x,y).FormatConditions.Count=0 denke ich. Habe ich noch nicht getestet. Aber inzwischen habe ich Vertrauen zu Ihnen habe ausreichend Antworten zu wissen, wohin Sie gehen von hier aus.
    InformationsquelleAutor Pane
Schreibe einen Kommentar