Lọc dữ liệu nhiều lựa chọn (1 người xem)

[duong_nam_dao]

Em có một danh sách kèm theo. Em muốn lọc danh sách học sinh để khen thưởng.Khi em đánh số điểm vào ô c18 và ô c19 thì được kết quả lọc xuống ô a20 gồm những học sinh có điểm môn 1,môn 2,... lớn hơn hoặc bằng giá trị ô bên dưới.Ví dụ như lọc những học sinh có điểm văn >=7, toán >=8, sinh >=8, anh >= 6. Nhưng em muốn khi thay đổi lần thi thì kết quả lọc cũng được thay đổi vì các điểm thi mỗi lần khác nhau.Mong các bác giúp đỡ. Cám ơn các bác nhiều !

 

[ndu96081631]

Thử làm cho bạn bằng công thức nhé (cũng khá đơn giãn với Offset làm chủ lực)

 

[yeudoi]

Cái này bạn dùng Advanced filter cũng được nó đơn giản và nhẹ file

 

[duong_nam_dao]

Có thế mà em nghĩ mãi không ra. Cám ơn bác lần nữa

 

[ndu96081631]

Cái này bạn dùng Advanced filter cũng được nó đơn giản và nhẹ file

AF như thế nào? Tôi nghĩ không ra... Với điều kiện Range thay đổi thì AF quá thật là khó đấy!

 

[duong_nam_dao]

Bác yeudoi làm hộ em để em học hỏi thêm nhé

 

[TrungChinhs]

Nhờ Mod xoá giúp bài

Tôi muốn tạo một File mục lục ít nhất 3 cấp: cấp 1 là đơn vị huyện, cấp 2 là đơn vị xã... như mẫu trong file đính kèm

Yêu cầu:
1- khi nút (ToggleButton) cấp 1 chìm xuống thì danh mục cấp 2 hiện ra, khi nút cấp 1 nổi lên thì danh mục cấp 2 ẩn đi.
2- khi nút cấp 2 chìm xuống thì danh mục cấp 3 hiện ra, khi nút cấp 2 nổi lên thì danh mục cấp 3 ẩn đi.

Lưu ý: Danh mục cấp cuối cùng là các ô Cell để Hyperlink đến các file cần tìm.
Tuy nhiên các bạn có thể đưa ra các phương án khác miến là đáp ứng được yêu cầu quản lý file theo yêu cầu riêng của người dùng.

 

[duong_nam_dao]

Em làm theo file của bác ndu mãi mà không được. Em gửi file lên cho các bác xem. Không biết sai ở đâu, thôi nhờ bác làm hộ. Cám ơn bác rất nhiều !

 

[ThuNghi]

Em làm theo file của bác ndu mãi mà không được. Em gửi file lên cho các bác xem. Không biết sai ở đâu, thôi nhờ bác làm hộ. Cám ơn bác rất nhiều !

File nhỉn khủng quá. Bạn có thể cắt nhỏ, hỏi từng phần.
Đâu cần name Hoten6 làm gì.
Công thức ở AN4 là nói lên cái gì vậy.
=IF(AND(OFFSET($P4:$S4,,($D$363-1)*4)>=$H$364:$R$364),ROWS($1:1),"")
Thiếu cái gì đó
AND(OFFSET($P4:$S4,,($D$363-1)*4)>=$H$364:$R$364) và cái gì nữa.
Phải là
AND(OFFSET($P4:$S4,,($D$363-1)*4)>=$H$364:$R$364),...)
Đã đặt name thì sao không đặt hết mà đặt có 1/2 vậy.
$AG$5:$AJ$14: ...
$AI$5:$AI$14:....
Nếu tên là 1 chữ thì chỉ lấy họ or tên ...
Vài chuyện góp ý!

 

[duong_nam_dao]

Đó chỉ là 1 trang trong file của em. Em đã bỏ bớt các phần không cần thiết và ghi rõ ý định trong file mới. Mong các bác xem hộ em.

 

[SA_DQ]

Đúng vậy! Hãy xem thêm trong file kèm theo.

Cái này bạn dùng Advanced filter cũng được nó đơn giản và nhẹ file

Hướng dẫn sử dụng trước khi dùng:
* Đổi điểm chuẩn trước khi chọn lần kiểm tra (nếu cần)
* Nếu thêm Danh sách HS thì di chuyển 'Bộ Lọc' đến nơi khác thích hợp

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [b17]) Is Nothing Then
   Dim lRow As Long:                Dim VTr As Byte
   Dim Rng As Range
   
   lRow = [a65432].End(xlUp).Row
   Range([t4], Cells(lRow, "T")) = Range([b4], Cells(lRow, "B")).Value
   VTr = Len(Target) - InStr(Target, " ")
   Set Rng = Choose(Right(Target, VTr), [c4], [g4], [k4], [o4]).Resize(lRow - 3, 4)
   Range([u4], Cells(lRow, "X")).Value = Rng.Value
   
   Range("T4:X" & lRow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "H17:K18"), CopyToRange:=Range("G23:K23"), Unique:=False
 End If
End Sub

 

[yeudoi]

AF như thế nào? Tôi nghĩ không ra... Với điều kiện Range thay đổi thì AF quá thật là khó đấy!

Bạn xem thử nha xem thử cách này thế nào

 

[duong_nam_dao]

Các bác xem hộ em cái file Khen thuong moi ở mục 10 cái. Không biết vì sao em làm mà không được. Nhờ các bác ra tay giúp với

 

[boyxin]

Các bác xem hộ em cái file Khen thuong moi ở mục 10 cái. Không biết vì sao em làm mà không được. Nhờ các bác ra tay giúp với

Ý bạn thế này phải không?​

 

[duong_nam_dao]

Không biết tại sao em chạy file của bác nó cứ giật giật khung và chữ rồi mới cho kết quả. Có lẽ nó lọc chậm à? Có khắc phục được không? Nếu chạy nhanh hơn thì tốt vì file của em đã nặng rồi. Chờ tin bác

 

[boyxin]

Giảm rung, giật khi chạy công thức

Không biết tại sao em chạy file của bác nó cứ giật giật khung và chữ rồi mới cho kết quả. Có lẽ nó lọc chậm à? Có khắc phục được không? Nếu chạy nhanh hơn thì tốt vì file của em đã nặng rồi. Chờ tin bác

Vào Edit\Links nhấn nút Break Link -> Break Links -> Close

Nếu vẫn còn rung giật thì

1. Dùng VBA
2. Thay máy cấu hình cao hơn

 

[SA_DQ]

Xem thêm trong file đính kèm!

Xài macro

Macro, đây macro:

Option Explicit
Sub TongHop()
 Dim Lrow As Long:                     Dim Rng As Range
 Lrow = [B65432].End(xlUp).Row
 With Sheets("Report")
   .Range("A3:A" & Lrow) = Range("B3:B" & Lrow).Value
   Set Rng = Choose([ag1].Value, [p3], [t3], [x3], [ab3]).Resize(Lrow, 4)
   .Range("B3:E" & Lrow).Value = Rng.Value
   .Range("A3:E" & Lrow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
        "H1:K2"), CopyToRange:=.Range("G3:K3"), Unique:=False
   .Select
 End With
 
End Sub

duong_nam_dao chú ý hơn khi đưa file lên nha, cho dù là giả lập

 

[ndu96081631]

Đáng tiếc là Advanced Filter không chơi chung với "dịch vụ" Union, nên cuối cùng muốn AF thì đành phải qua nhiều công đoạn trung gian không được hay cho lắm
Nếu AF để trích điểm ra trước, rồi dùng For quét qua để lấy tên học sinh xem bộ chắc không có vấn đề (đở tốn vùng phụ) nhưng cũng không hay

 

[duong_nam_dao]

Đúng vậy. Em đã lọc điểm giai đoạn ra trước rồi mới lọc danh sách khen thưởng nhưng không được. Các bác nghiên cứu xem có cách nào hay hơn và nhanh hơn không ? Em thì kém món này không nói làm gì. Làm tất cả trong một trang có được không? Ưu và nhược thế nào, mong các bác góp ý. Xn chân thành cảm ơn các bác !

 

[boyxin]

... Làm tất cả trong một trang có được không? ...

Hoàn toàn có thể làm được

Nhưng theo mình

1. Để tiện lợi cho việc nhập dữ liệu thì nên để 1 sheet nhập liệu, kết quả lọc để sang sheet khác
2. Còn tiện lợi cho việc căn chỉnh trang in

Để tất cả trong 1 sheet

1. Nếu không dự phòng trước số dòng số liệu nhập để cách thì vướng vào phần công thức lọc
2. Nếu chèn dòng vào để nhập đủ thì lại phải căn chỉnh lại trang in phần lọc
3. Kiểm tra kết quả lọc cũng bất lợi (lần mãi mấy trăm dòng xuống dưới hoặc cột cuối phần nập liệu)
4. ...........

 

[duong_nam_dao]

Em chưa hài lòng lắm về các cách làm. Em đang tập nên các bác thông cảm. Không biết vì sao em thấy file chạy chậm hẳn. Em file của em để các bác hộ. Máy tính của em là Lenovo Y410, chắc ko chậm lắm. Các bác bổ xung hộ nhé

 

[ndu96081631]

Thường để thử xem nguyên nhân "chậm" là do đâu, tôi sẽ xóa bớt các sheet, xóa bớt Format, đến khi nào tìm ra được nguyên nhân thì thôi!
File của bạn, chỉ nội cái vụ màu mè cũng đủ "chóng mặt" rồi... Khi nào bạn hoàn tất công việc chính thì mới tính tới trang trí chứ

 

[yeudoi]

Mình có một số ý kiến với bạn thế này. Để chương trình chạy nhanh
1.Hãy xây dựng đúng yêu cầu của mình về chương trình đã sau đó mới đến rút gọn, trang điểm thêm cho đẹp
2. Hạn chế dùng bớt công thức, nhất là các công thức dò tìm. Tối ưu đối với công thức
3. Nên đưa hết các dữ liệu vào một sheet Data sau đó trích xuất ra báo cáo, tổng hợp
4. Nếu được xây dựng sheet Data ra một file dữ liệu sau đó tạo 1 file báo cáo chứa các chương trình chạy riêng
5. Nên sử dụng VBA nhiều hơn.
6. Hạn chế sử dụng condation format
Một số ý kiến đối với bạn. Chúc bạn thành công

 

[cuongship]

Lọc dữ liệu!

Chào các bác, em nhờ các các giải quyết giúp em vướng mắc mà em đang gặp phải
Khi cộng dữ liệu trích lọc theo nhiều điều kiện (theo file đính kèm)
Rất mong nhận được nhận được sự giúp đỡ
Trân trọng/ Cương

 

[ndu96081631]

Chào các bác, em nhờ các các giải quyết giúp em vướng mắc mà em đang gặp phải
Khi cộng dữ liệu trích lọc theo nhiều điều kiện (theo file đính kèm)
Rất mong nhận được nhận được sự giúp đỡ
Trân trọng/ Cương

Hình như cột C và D cho kết quả bằng nhau thì phải:
Đếm xem có bao nhiêu Container trực thuộc Cty cổ phần thì cũng giống như đếm xem có bao nhiêu cty thuộc dạng cổ phần dùng Container
Nếu bạn cho rằng kết quả sẽ khác hơn thì bạn hãy tính nhẩm bằng tay xem kết quả là bao nhiêu nhé?

 

[boyxin]

Không biết tại sao em chạy file của bác nó cứ giật giật khung và chữ rồi mới cho kết quả. Có lẽ nó lọc chậm à? Có khắc phục được không? Nếu chạy nhanh hơn thì tốt vì file của em đã nặng rồi. Chờ tin bác

Đã xử lý tốc độ. Hãy nhập dữ liệu và kiểm tra​