Hướng dẫn xử lý cách lọc và sắp xếp dữ liệu theo hàng có điều kiện

[thori]

Dear cả nhà,
Mình có 1 file excel mẫu về phân tích doanh thu theo từng vùng. Khi click chọn vùng, thì file sẽ hiện ra số tổng doanh thu của vùng được chọn.
Nhưng mình chưa nghĩ ra cách để lọc lại dữ liệu chi tiết doanh thu của vùng được chọn.
Chẳng hạn, trong file ví dụ mình đang chọn vùng North và South, tổng doanh thu là $8.077, bây giờ mình muốn biết chi tiết doanh thu này bao gồm những khoản nào.
Công thức cần xử lý nằm trong vùng từ A8:F22.

Cả nhà giúp mình với.

Trân trọng cảm ơn./.

 

[lameco411]

Dear cả nhà,
Mình có 1 file excel mẫu về phân tích doanh thu theo từng vùng. Khi click chọn vùng, thì file sẽ hiện ra số tổng doanh thu của vùng được chọn.
Nhưng mình chưa nghĩ ra cách để lọc lại dữ liệu chi tiết doanh thu của vùng được chọn.
Chẳng hạn, trong file ví dụ mình đang chọn vùng North và South, tổng doanh thu là $8.077, bây giờ mình muốn biết chi tiết doanh thu này bao gồm những khoản nào.
Công thức cần xử lý nằm trong vùng từ A8:F22.

Cả nhà giúp mình với.

Trân trọng cảm ơn./.

Cái này bạn đưa vào module:

Sub LocDuLieu(Target As Range)
Dim rng As Range
Dim lr As Long
    lr = Range("A" & Rows.Count).End(3).Row
    Range("A8:F" & lr).Clear
    Set rng = Range("L7:Q22")
    rng.AutoFilter 1, Target.Value
    rng.SpecialCells(xlCellTypeVisible).Copy Destination:=Range("A8")
    rng.AutoFilter
End Sub

Cái này bạn đưa vào code trong sheet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Range("H8:H11"), Range(Target.Address)) Is Nothing Then

Call LocDuLieu(Target)

End If

End Sub

còn công thức cộng bạn tự làm nhé