[VBA] 値・背景色・文字色で並べ替えをする

値・背景色・文字色で並べ替えをする

方法

Sort.SortFields.Add2メソッドの、SortOn引数で、値・背景色・文字色のどれで並び替えを行うか指定することができます。

引数指定値

サンプルコード

Sub Sample1()
 
  With Worksheets("Sheet1").Sort
     .SortFields.Clear
     'SortOn引数で、並び替え方法を値、背景色、文字色を指定する。
     '値
     .SortFields.Add2 Key:=Range("B1"), SortOn:=xlSortOnValues, Order:=xlDescending
     '背景色
     '.SortFields.Add2 Key:=Range("B1"), SortOn:=xlSortOnCellColor, Order:=xlDescending
     '文字色
     '.SortFields.Add2 Key:=Range("B1"), SortOn:=xlSortOnFonrColor, Order:=xlDescending
     .SetRange Range("A1:B4")
     .Header = xlNo
     .Apply
  End With
 
End Sub