Sắp xếp dữ liệu sau khi tính tổng. (1 người xem)

[AaronKoo]

Hi All
Mình có 1 file excel để tổng hợp số lượng của từng bộ phận.
- Sheet 1 (Summary): dùng để hiện thị tổng số lượng sản phẩm của từng bộ phận.
- Các sheet L1,L2,L3...: thể hiện số lượng sản phẩm của các bộ phận theo ngày.


Hiện tại mình muốn Summary thể hiện số lượng tổng, và sắp xếp 1 CÁCH TỰ ĐỘNG (ko phải chọn Data Filter Sort) nhé.
Cụ thể hơn, khi mình chỉnh số lượng ở các sheet L1,L2,L3.. thì Sheet Summary tự động cập nhật và tự động Sắp xếp luôn.

Mọi ngưòi có cách làm nào chỉ mình với nhé.
Cảm ơn.

 

[Ba Tê]

Hi All
Mình có 1 file excel để tổng hợp số lượng của từng bộ phận.
- Sheet 1 (Summary): dùng để hiện thị tổng số lượng sản phẩm của từng bộ phận.
- Các sheet L1,L2,L3...: thể hiện số lượng sản phẩm của các bộ phận theo ngày.


Hiện tại mình muốn Summary thể hiện số lượng tổng, và sắp xếp 1 CÁCH TỰ ĐỘNG (ko phải chọn Data Filter Sort) nhé.
Cụ thể hơn, khi mình chỉnh số lượng ở các sheet L1,L2,L3.. thì Sheet Summary tự động cập nhật và tự động Sắp xếp luôn.

Mọi ngưòi có cách làm nào chỉ mình với nhé.
Cảm ơn.

Tự động sắp xếp cái gì biết chết liền.
Chép cái này vào cửa sổ VBE của sheet Summary:
[GPECODE=vb]Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim Ws As Worksheet, Arr(1 To 100, 1 To 3), K As Long, Tong As Double
For Each Ws In ThisWorkbook.Worksheets
If Left(Ws.Name, 1) = "L" Then
K = K + 1
Arr(K, 1) = Ws.Name
Tong = Application.WorksheetFunction.Sum(Ws.[B2:B100])
Arr(K, 3) = Tong
End If
Next Ws
[B3100].ClearContents
[B3].Resize(K, 3) = Arr
[B3].Resize(K, 3).Sort Key1:=[D3]
Application.ScreenUpdating = True
End Sub[/GPECODE]
Mỗi lần mở sheet Summary là có dữ liệu, Sort theo cột D từ nhỏ đến lớn.