VBAコードをNO FILLで列を並べ替えるコード

Question

良い日Pros 私は一緒に走っているマクロをたくさん持っています。そのうちの最後の列は列Bを使用してNO FILLで並べ替えるべきで、背景色のないデータが来ますリストの先頭に移動します。 （データには、以下のコードに基づいて約10、000行と35列が含まれています。青または紫の色を最初に使用すると機能しますが、機能しません。 16777215、ない運、私は間違って何をしていないのです PSを：。？。。私はNO FILLのために、他のVBAコードを見つけることができなかったxlNoneまたはvbWhiteはどちらか動作しません はありがとう

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

自分の質問に答えるには、色の割り当てを中止するだけでしたので、sColor = 0をコメントアウトし、sortOnValue.color = xlNoneを変更しました。下の編集コードを参照してください。この上

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

これが唯一です。 「No Fill」セルを一番上に並べ替える方法はわからないので、「No Fill」セルを赤で色付けしてから色で並べ替えるのはなぜですか？必要に応じて色を復元することもできますし、カラーリストに基づいて特定の値を割り当てて並べ替えることもできます。