Xếp một trường theo một trật tự màu quy định trước

Ví dụ chúng ta có 1 CSDL (cơ sở dữ liệu) của 1 cơ quan, mà trong đó [NgaySinh] đã được bôi màu;
Nhiệm vụ đề ra ta phải xếp CSDL này theo trật tự của 1 bảng màu cho trước
(Xin xem trong file đính kèm)
Sau khi chúng ta chạy macro sau, sẽ cho kết quả mĩ mãn.
Hạn chế của macro này là những ô đươc tô màu bằng Conditional Formatting là không đặng!

PHP Code:

Option Explicit

Sub SortForColor()
 Dim Wz As Long, lRow As Long
 ReDim MMau(12, 2) As Integer
 Dim bBC As Byte, bJ As Byte

 For Wz = 1 To 12
    MMau(Wz, 1) = Cells(Wz + 1, 8).Interior.ColorIndex
    MMau(Wz, 2) = Wz
 Next Wz
 Columns("F:F").Select
 Selection.Insert shift:=xlToRight
 Selection.Interior.ColorIndex = xlNone
 Range("F1").FormulaR1C1 = "Temp"
 lRow = [E65432].End(xlUp).Row
 For Wz = 2 To lRow
    For bJ = 1 To 12
        With Range("E" & Wz)
            If .Interior.ColorIndex = MMau(bJ, 1) Then
                .Offset(, 1) = MMau(bJ, 2):     Exit For
            End If
        End With
    Next bJ
 Next
 Columns("B:G").Select
 Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("B2") _
    , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
    False, Orientation:=xlTopToBottom
 Columns("F:F").Delete shift:=xlToRight
 [F2].Select
 End Sub  

 Tập tin đính kèm

•  GPE.COM.rar (16.6 KB, 1992 views)