Nhờ các bác hướng dẫn cách sắp xếp tăng, giảm dần trong excel 2007 (1 người xem)

[pdloc2008]

Ví dụ:
- Trong cột C là lương nhân viên. khi nhập số liệu vào thì nhân viên nào lương cao nhất sẽ tự động xếp đầu tiên, không cần dùng Sort.
Cám ơn trước nhé!

 

[HNP]

Bạn dùng thử trigger này thử xem (chép code bỏ vào sheet mà bạn muốn nó chạy)

Private Sub Worksheet_Change(ByVal Target As Range)   
    Dim sSortRang As String
    Dim sVungBatSuKien As String
    sVungBatSuKien = "C2:C100"
    sSortRang = "A1:C" & Me.UsedRange.Rows.Count
    If Not Application.Intersect(Target, Me.Range(sVungBatSuKien)) Is Nothing Then
        Me.Range(sSortRang).Sort Key1:=Me.Columns(3), Order1:=xlDescending, Header:=xlYes
    End If
End Sub