VBA code thay thế cho pivot-table lấy top 10, bottom 10 (2 người xem)

eagle12 đã viết:

Em hay dùng chức năng của pivot để lấy số liệu tóm tắt, nhưng với data nguồn có nhiều dòng, cột ~ 300K dòng thì các báo cáo pviot làm tăng dung lượng file lên đáng kể (do em để nhiều pivot khác nhau)

Xin nhờ anh chị giúp 1 code có thể lấy giá trị lọc thay cho bảng pivot bên phải, với các điều kiện tại ô màu vàng
Nguồn giá trị bảng pivot từ A6:AI

Cám ơn mọi người rất nhiều

View attachment 310550ạn hi bạn,

Nhấp chuột vào đây để mở rộng...

eagle12 đã viết:

bạn lọc top theo nhà giao dịch à ? nội dung này có thể coi trên fiintrade hoặc web chứng khoán khác

Nhấp chuột vào đây để mở rộng...

eagle12 đã viết:

Em hay dùng chức năng của pivot để lấy số liệu tóm tắt, nhưng với data nguồn có nhiều dòng, cột ~ 300K dòng thì các báo cáo pviot làm tăng dung lượng file lên đáng kể (do em để nhiều pivot khác nhau)

Xin nhờ anh chị giúp 1 code có thể lấy giá trị lọc thay cho bảng pivot bên phải, với các điều kiện tại ô màu vàng
Nguồn giá trị bảng pivot từ A6:AI

Cám ơn mọi người rất nhiều

View attachment 310550

Nhấp chuột vào đây để mở rộng...

Sub GetTop10Records()
    Dim strSQL As String
    Dim Rec As Object, cnn As Object, dWB As Workbook
 
    Set dWB = ThisWorkbook
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dWB.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes"""
   
    strSQL = "SELECT TOP 10 Mã, Stock, SL FROM [Data$A6:AI12994] Where Loai = ""TD"" And [Buy/Sell today] = ""Today"" ORDER BY SL DESC;"
    'strSQL = "SELECT TOP 10 Mã, Stock, SL FROM [Data$A6:AI12994] Where Loai = ""TD"" And [Buy/Sell today] = ""Today"" ORDER BY SL ASC;"
 
    Set Rec = cnn.Execute(strSQL)
    Sheet2.Range("AM9").Resize(100, 3).ClearContents
    Sheet2.Range("AM9").CopyFromRecordset Rec
 
    cnn.Close
    Set cnn = Nothing
    Set Rec = Nothing
 
End Sub

thanthanhan đã viết:

Tại ô AM9 thử công thức sau:
=TAKE(SORT(CHOOSECOLS(FILTER(A7:X300000,(A7:A300000=AN5)*(X7:X300000=AN6)),4,3,9),3,-1),AN4)

Nhấp chuột vào đây để mở rộng...

Maika8008 đã viết:

2 dòng lệnh SQL cho top 10 lớn nhất và top 10 nhỏ nhất

Nhấp chuột vào đây để mở rộng...

ketoan113 đã viết:

Bài đã được tự động gộp: 9/12/25

View attachment 310552

bạn có thê tham khảo
thân chào.

Nhấp chuột vào đây để mở rộng...

eagle12 đã viết:

Em cám ơn anh nhiều

Hàm kết hợp em đưa vào ra KQ đúng như mong muốn, đẹp luôn anh ah

View attachment 310557

Bài đã được tự động gộp: 9/12/25

Em copy vào file và chạy thử, sub báo chỗ dòng này anh ah

View attachment 310558View attachment 310559

Bài đã được tự động gộp: 9/12/25

Cái này là vẽ kiểu biểu đồ excel ra 2 cột xanh đỏ hả anh
Em cũng có dùng excel thống kê, và cho KQ theo dõi, nhưng cái chèn thêm sắp xếp thứ tự xanh đỏ kia thì không biết

Em đang theo dõi thêm kiểu này trên excel
View attachment 310560

Nhấp chuột vào đây để mở rộng...

eagle12 đã viết:

Em cám ơn anh nhiều

Hàm kết hợp em đưa vào ra KQ đúng như mong muốn, đẹp luôn anh ah

View attachment 310557

Bài đã được tự động gộp: 9/12/25

Em copy vào file và chạy thử, sub báo chỗ dòng này anh ah

View attachment 310558View attachment 310559

Bài đã được tự động gộp: 9/12/25

Cái này là vẽ kiểu biểu đồ excel ra 2 cột xanh đỏ hả anh
Em cũng có dùng excel thống kê, và cho KQ theo dõi, nhưng cái chèn thêm sắp xếp thứ tự xanh đỏ kia thì không biết

Em đang theo dõi thêm kiểu này trên excel
View attachment 310560

Nhấp chuột vào đây để mở rộng...

ketoan113 đã viết:

mình lấy dữ liệu web có sẵn không có thông kê như bạn
bạn là nhà đầu tư hay làm cho công ty vậy ?

Nhấp chuột vào đây để mở rộng...

Maika8008 đã viết:

Do sai tên cột chữ Loại á. Gõ chữ Loại trong VBA không được nên tôi sửa thành Loai

Nhấp chuột vào đây để mở rộng...

thanthanhan đã viết:

Tại ô AM9 thử công thức sau:
=TAKE(SORT(CHOOSECOLS(FILTER(A7:X300000,(A7:A300000=AN5)*(X7:X300000=AN6)),4,3,9),3,-1),AN4)

Nhấp chuột vào đây để mở rộng...

eagle12 đã viết:

Cám ơn anh nhiều, em đặt 4 hàm kết hợp như anh dạy thay cho 4 pivot
Ghép lại nhìn báo cáo gọn hẳn anh ah
View attachment 310576

Nhấp chuột vào đây để mở rộng...

=VSTACK(
  {"Mã","Stock","SL"},
  TAKE(
    SORT(
      CHOOSECOLS(
        FILTER(A7:X300000,(A7:A300000=AN5)*(X7:X300000=AN6)),
      4,3,9),
    3,-1),
  AN4)
)

thanthanhan đã viết:

Tại ô AM9 thử công thức sau:
=TAKE(SORT(CHOOSECOLS(FILTER(A7:X300000,(A7:A300000=AN5)*(X7:X300000=AN6)),4,3,9),3,-1),AN4)

Nhấp chuột vào đây để mở rộng...

eagle12 đã viết:

Anh ơi, trong TH nếu em cột đk chọn nó có nhiều ngày, nhiều giá trị cho 1 mã thì có thể dùng hàm filter kết hợp với các hàm khác để cho KQ như pivot được không anh

Nhờ anh xem qua giúp em với ạ

Cám ơn a nhiều

View attachment 310647

Nhấp chuột vào đây để mở rộng...

thanthanhan đã viết:

Bạn gửi kèm file lên lên nhé, mọi người sẽ hỗ trợ bạn. Nếu chỉ gửi hình, mọi người sẽ không xử lý giúp bạn được.

Nhấp chuột vào đây để mở rộng...

ptm0412 đã viết:

Dùng lại công thức bài 4 thêm GroupBy:

Mã: Sao chép.

AM9 =LET(a,CHOOSECOLS(FILTER(A7:X300000,(A7:A300000=AN5)*(X7:X300000=AN6)),4,3,9),b,CHOOSECOLS(a,1,2),c,CHOOSECOLS(a,3),TAKE(SORT(GROUPBY(b,c,SUM,3),3,-1),AN4))

Nhấp chuột vào đây để mở rộng...

eagle12 đã viết:

Cám ơn anh nhiều,
Em đưa công thức vào, nếu lấy đk = NN thì thấy hàm lấy cả thêm Total vào, lấy được top 9 theo từng mã (do tổng đk NN là số dương)

Còn nếu loại = TD, hàm cho KQ lấy được top 10 tổng theo từng mã (do tổng đk TD là số âm)

View attachment 310650
View attachment 310651

Nhấp chuột vào đây để mở rộng...

thanthanhan đã viết:

Chỗ Groupby bạn tắt total đi GROUPBY(b,c,SUM,3,0)
Hoặc muốn nằm dưới cùng thì có thể dùng công thức sau:
=LET(a,CHOOSECOLS(FILTER(A7:X300000,(A7:A300000=BA27)*(X7:X300000=BA26)),4,3,9),b,CHOOSECOLS(a,1,2),c,CHOOSECOLS(a,3),d,TAKE(SORT(GROUPBY(b,c,SUM,3,0),3,-1),BA25),e,HSTACK("","Total",SUM(TAKE(d,,-1))),VSTACK(d,e))

Cám ơn anh Mỹ đã hướng dẫn thêm Groupby.

Nhấp chuột vào đây để mở rộng...

ptm0412 đã viết:

Muốn bỏ dòng tổng thì sửa GROUPBY(b,c,SUM,3) thành GROUPBY(b,c,SUM,0,0)

Nhấp chuột vào đây để mở rộng...

thanthanhan đã viết:

Chỗ Groupby bạn tắt total đi GROUPBY(b,c,SUM,3,0)
Hoặc muốn nằm dưới cùng thì có thể dùng công thức sau:
=LET(a,CHOOSECOLS(FILTER(A7:X300000,(A7:A300000=BA27)*(X7:X300000=BA26)),4,3,9),b,CHOOSECOLS(a,1,2),c,CHOOSECOLS(a,3),d,TAKE(SORT(GROUPBY(b,c,SUM,3,0),3,-1),BA25),e,HSTACK("","Total",SUM(TAKE(d,,-1))),VSTACK(d,e))

Cám ơn anh Mỹ đã hướng dẫn thêm Groupby.

Nhấp chuột vào đây để mở rộng...

thanthanhan đã viết:

Bạn kiểm tra xem đúng chưa.

Nhấp chuột vào đây để mở rộng...