VBA-Code zum Sortieren Spalte von NO FILL

Question

Guten Tag Pros Ich habe eine Reihe von Makros, die ich zusammen laufen, die letzte von ihnen sollte Spalte B nach NO FILL zu sortieren, so dass Daten, die keine Hintergrundfarbe haben, kommen an den Anfang der Liste. (Die Daten enthalten ungefähr 10 000 Zeilen und 35 Spalten, basierend auf dem unten stehenden Code, wenn ich die blaue oder violette Farbe zuerst verwendet habe, funktioniert sie, aber sie funktioniert nicht für NO FILL. Ich habe 0 verwendet und auch verwendet . 16777215, aber kein Glück Was mache ich falsch PS:. ich keinen anderen VBA-Code für die nO FILL finden konnte xlNone oder vbWhite funktioniert auch nicht Danke

Sub ColByNofill() 

    'Sub Just(sht As Worksheet) 
    Dim rngSort As Range 
    Dim rngTable As Range 
    Dim sColor As Long 
    Dim sht As Worksheet 

    Set sht = Worksheets(1) 

    sColor = 0 'No Fill 

    'sColor = 16777215 ' white color 
    'sColor = 10498160 'purple 

    'sColor = 15790082 ' blue color 

    RowCount = sht.Range("B1").End(xlDown).Row 
    Set rngSort = sht.Range("B1:A" & RowCount) 
    Set rngTable = sht.Range("B1:" & sht.Cells(RowCount, sht.UsedRange.Columns.Count).Address(RowAbsolute:=False, ColumnAbsolute:=False)) 

    sht.Sort.SortFields.Clear 
    sht.Sort.SortFields.Add(rngSort, _ 
     xlSortOnCellColor, xlAscending, , _ 
     xlSortNormal).SortOnValue.Color = sColor 

    With sht.Sort 
     .SetRange rngTable 
     .Header = xlYes 
     .MatchCase = False 
     .Orientation = xlTopToBottom 
     .SortMethod = xlPinYin 
     .Apply 
    End With 

End Sub 

Answer 1

Um meine eigene Frage zu beantworten, musste ich nur die Farbe zuweisen, also habe ich sColor = 0 auskommentiert und sortOnValue.color = xlNone geändert, siehe den bearbeiteten Code unten.

Sub ColByNoFill 
Dim rngSort As Range 
Dim rngTable As Range 
Dim sColor As Long 

'sColor = 0 

RowCount = sht.Range("A1").End(xlDown).Row 
Set rngSort = sht.Range("A1:A" & RowCount) 
Set rngTable = sht.Range("A1:" & sht.Cells(RowCount, sht.UsedRange.Columns.Count).Address(RowAbsolute:=False, ColumnAbsolute:=False)) 

sht.Sort.SortFields.Clear 
sht.Sort.SortFields.Add(rngSort, _ 
    xlSortOnCellColor, xlAscending, , _ 
    xlSortNormal).SortOnValue.Color = xlNone 

With sht.Sort 
    .SetRange rngTable 
    .Header = xlYes 
    .MatchCase = False 
    .Orientation = xlTopToBottom 
    .SortMethod = xlPinYin 
    .Apply 
End With 
End Sub 

Answer 2

Dies ist nur eine.. Vorschlag, da ich nicht wirklich weiß, wie man die "No Fill" -Zellen auf der Oberseite sortiert, aber warum färben Sie die "No Fill" -Zellen nicht zum Beispiel mit rot, und sortieren Sie dann nach Farbe? Sie können die Farbe bei Bedarf wiederherstellen oder bestimmte Werte basierend auf der Farbliste zuweisen und dann sortieren