Lọc dữ liệu duy nhất, đếm số lần xuất hiện và tính tổng của dữ liệu được lọc (1 người xem)

[baquang1984]

Em nhờ thầy, cô, các anh, chị và các bạn trên diễn đàn viết giúp Code VBA lọc dữ liệu, với yêu cầu của chương trình như sau:
- Em có Sheets"DATA" là sheets chứa dữ liệu lọc và lọc theo số CMND1, Sheets"TONGHOP" là Sheets kết quả của dữ liệu lọc sang theo thứ tự các cột như file đính kèm.
- Khi lọc dữ liệu sang Sheets"TONGHOP" thì các cột từ CQL đến cột Noi_cap2 là dữ liệu duy nhất, còn 3 cột
+ Cột Thua_dat đếm xem có bao nhiêu thửa ở số CMND1 (VD Số CMND1 080397392, CQL là ông Lộc Văn Biển ..... có 1 Thửa)
+ Cột To_BD đếm xem có bao nhiêu tờ bản đồ ở Số CMND1 (VD Số CMND1 080397392, CQL là ông Lộc Văn Biển ..... có 1 Tờ bản đồ)
+ Cột Dien_Tich tính tổng diện tích của các thửa tìm được ở Số CMND1 (VD Số CMND1 080397392, CQL là ông Lộc Văn Biển ..... Diện tích 174,8)
Trên đây là mô tả về điều kiện của chương trình lọc, hoặc kết quả đã được thể hiện trong file đính kèm.
Mong được mọi người giúp đỡ

 

[baquang1984]

Theo kinh nghiệm của tôi, thì để tiết kiệm Quota tôi cần trả lời có trọng tâm vấn đề, nghĩa là:

- Trước tiên tải File, đọc tiêu đề cột, nội dung trong File và so sánh với nội dung yêu cầu của chủ Topic.

- Góp ý những vấn để cần sửa đổi, bổ sung hoặc thay đổi cấu trúc.

- Khi chủ Topic đã sửa đổi, bổ sung theo yêu cầu và kèm theo vài chục dòng dữ liệu thì lúc đó tôi mới tính đến chuyện giúp (chỉ trả lời 1 đến 2 lần là cao lắm rồi), chứ có nhiều bạn hỏi bâng quơ không cụ thể thì có trường hợp phải trả lời nhiều lần mất rất nhiều thời gian và tốn rất nhiều Quota không đáng có. Chính vì vậy mà thời gian gần đây tôi thường góp ý cho các bài viết như đã nêu trên.

Đối với nội dung bạn ấy hỏi, thì giải pháp như sau:

- Sử dụng Advanced Filter để trích lọc tên chủ hoặc số CMND.

- Sử dụng VBA để chuyển đổi dữ liệu cột số thửa cũ đồng thời chạy PivotTable (theo ý kiến của bạn) là có kết quả tổng số thửa của từng chủ sử dụng.

Đối với chương trình và bảng biểu em đưa lên diễn đàn hỏi là để phục vụ cho công việc của em tránh tình trạng là em phải làm lại tùy theo từng chương trình do vậy anh thông cảm, đối với anh nó có thể không phù hợp nhưng của em thì em sử dụng cho mục đích của mình anh ạ. Em rất cả ơn anh be09 và mọi người trên diễn đàn giúp đỡ và đóng góp ý kiến ạ
EM cảm ơn mọi người nhiều!

 

[sealand]

Em cảm ơn anh sealand dùng Pivot Table thì cũng được tuy nhiên một việc quan trong là Pivot Table không đếm được các Cell có dự liệu kiểu 157+158+159 như em mô tả ở bài #10. Do vây em muốn nhờ các thầy, cô, các anh, chị và các bạn giúp đỡ xử lý chương trình bằng VBA.
Em cảm ơn mọi người nhiều!

Trong file bạn gửi làm gì có dữ liệu dạng đó nhỉ?
Bạn không đề cập rõ ràng thì Code cũng chết như thường. Đây là điều kiện bắt buộc chứ lúc thì 157+158+159 lúc thì 157;158;159 thì sao mà tính?

 

[baquang1984]

Trong file bạn gửi làm gì có dữ liệu dạng đó nhỉ?
Bạn không đề cập rõ ràng thì Code cũng chết như thường. Đây là điều kiện bắt buộc chứ lúc thì 157+158+159 lúc thì 157;158;159 thì sao mà tính?

Vâng em cảm ơn anh sealand! dữ liệu của em được quy định trong Sheets"DATA" là (157+158+159) công nối giữa các thửa là dấu "+" mong được sự giúp đỡ của anh sealand và mọi người trên diễn đàn

 

[Ba Tê]

Đối với chương trình và bảng biểu em đưa lên diễn đàn hỏi là để phục vụ cho công việc của em tránh tình trạng là em phải làm lại tùy theo từng chương trình do vậy anh thông cảm, đối với anh nó có thể không phù hợp nhưng của em thì em sử dụng cho mục đích của mình anh ạ. Em rất cả ơn anh be09 và mọi người trên diễn đàn giúp đỡ và đóng góp ý kiến ạ
EM cảm ơn mọi người nhiều!

Đúng như các bạn trên đã nói. Bây giờ phải "gọt chân xỏ giày" chứ không phải "đo chân đóng giày" rồi.

 

[baquang1984]

Đúng như các bạn trên đã nói. Bây giờ phải "gọt chân xỏ giày" chứ không phải "đo chân đóng giày" rồi.

Em cảm ơn anh Ba Tê không thể nói gì hơn, chương trình thật là tuyệt với. Em có thể làm phiền anh thêm một chút nữa có được không ạ.
- Giờ em muốn lọc theo điều kiện từng thôn và theo từng mã có được không ạ, em thêm cột Ma ở Sheets"DATA", số của từng mã là (1, 2, 3) anh có thể sửa code cho em thêm chút có được không ạ, biết là không nói ngay từ đầu nên mong anh thông cảm giúp em được không ạ
+ Điều kiện lọc theo thôn là lấy theo thôn muốn lọc ở cột Diachi_ChuSD Sheets"DATA"
+ Điều kiện lọc theo mã là lấy theo cột Ma (Cột số 43) Sheets"DATA" theo các mã 1, 2, 3 (Ý nghĩa của các mã là: Mã 1 Đất nông nghiệp có thời hạn sử dụng là 20 năm, Mã 2 Đất trồng cây lâu năm có thời hạn sử dụng 50 năm, Mã 3 Đất ở nông thôn có thời hạn sử dụng lâu dai)
Em cảm ơn anh và các thành viên của diễn đàn đã giúp đỡ và đóng góp ý kiến!

 

[Quang_Hải]

Em cảm ơn anh Ba Tê không thể nói gì hơn, chương trình thật là tuyệt với. Em có thể làm phiền anh thêm một chút nữa có được không ạ.
- Giờ em muốn lọc theo điều kiện từng thôn và theo từng mã có được không ạ, em thêm cột Ma ở Sheets"DATA", số của từng mã là (1, 2, 3) anh có thể sửa code cho em thêm chút có được không ạ, biết là không nói ngay từ đầu nên mong anh thông cảm giúp em được không ạ
+ Điều kiện lọc theo thôn là lấy theo thôn muốn lọc ở cột Diachi_ChuSD Sheets"DATA"
+ Điều kiện lọc theo mã là lấy theo cột Ma (Cột số 43) Sheets"DATA" theo các mã 1, 2, 3 (Ý nghĩa của các mã là: Mã 1 Đất nông nghiệp có thời hạn sử dụng là 20 năm, Mã 2 Đất trồng cây lâu năm có thời hạn sử dụng 50 năm, Mã 3 Đất ở nông thôn có thời hạn sử dụng lâu dai)
Em cảm ơn anh và các thành viên của diễn đàn đã giúp đỡ và đóng góp ý kiến!

Nói rồi mà không chịu tin. Mấy vụ này anh BaTê hay lắm.

Em cảm ơn anh Ba Tê không thể nói gì hơn, "chỉ có thể kêu anh sửa lại code thôi "

 

[baquang1984]

Nói rồi mà không chịu tin. Mấy vụ này anh BaTê hay lắm.

Em cảm ơn QuangHai1969 không biết anh Ba Tê làm về màng gì, không biết anh có làm về công tác quản lý đất đai không nhỉ ???

 

[Quang_Hải]

Em cảm ơn QuangHai1969 không biết anh Ba Tê làm về màng gì, không biết anh có làm về công tác quản lý đất đai không nhỉ ???

Nghề chính của anh Ba là giáo viên dạy võ. Nghề kế chính hình như là cò đất đai gì đó. Thôi zọt lẹ.

 

[Ba Tê]

Em cảm ơn QuangHai1969 không biết anh Ba Tê làm về màng gì, không biết anh có làm về công tác quản lý đất đai không nhỉ ???

Mảng VBA thì mới học lóm trên GPE, còn làm mảng gì khác thì....
Híc! Cũng liên quan trực tiếp với đất đai, lúc nào cũng đụng đất đai, mình mẩy lúc nào cũng đất đai....mà không có một "cục đất chọi chim"

 

[baquang1984]

Mảng VBA thì mới học lóm trên GPE, còn làm mảng gì khác thì....
Híc! Cũng liên quan trực tiếp với đất đai, lúc nào cũng đụng đất đai, mình mẩy lúc nào cũng đất đai....mà không có một "cục đất

Bởi vì em làm về mang đất đai nên cảm thấy phức tạp quá anh Ba Tê ạ. Công tác thủ tục hành chính thì nhiêu khê, thay đổi liên tục. Anh giúp em với điều kiện lọc như em mô tả ở bài #25 được không ạ.
Cảm ơn anh nhiều!

 

[baquang1984]

Nghề chính của anh Ba là giáo viên dạy võ. Nghề kế chính hình như là cò đất đai gì đó. Thôi zọt lẹ.

Em thấy anh Ba có giống người dạy võ đâu anh. Nếu mà có may mắn được cafe với các anh thì hay quà. Cái này chắc phải nhờ vào duyên vậy

 

[Quang_Hải]

Nếu mà có may mắn được cafe với các anh thì hay quà. Cái này chắc phải nhờ vào duyên vậy

May mắn con khỉ khô gì chứ, duyên số quái gì. Muốn thì chạy xuống An Giang, hoặc lên Bình Dương, TP HCM thì có người tiếp liền.

Em thấy anh Ba có giống người dạy võ đâu anh

Nhìn thấy vậy đó, chứ ai đụng tới anh Ba biết liền

 

[baquang1984]

May mắn con khỉ khô gì chứ, duyên số quái gì. Muốn thì chạy xuống An Giang, hoặc lên Bình Dương, TP HCM thì có người tiếp liền.

Hiiii em lại ở tỉnh Bắc Giang gần biên giới với ông bạn Trung Quốc còn vào và giao lưu với các anh thì phải hơn 2,5 h bay mới tới được chắc là phải tích lũy xiền vậy. Cũng mong được giao lưu với các anh
Thanks all!

 

[Ba Tê]

Bởi vì em làm về mang đất đai nên cảm thấy phức tạp quá anh Ba Tê ạ. Công tác thủ tục hành chính thì nhiêu khê, thay đổi liên tục. Anh giúp em với điều kiện lọc như em mô tả ở bài #25 được không ạ.
Cảm ơn anh nhiều!

Thấy còn "đèn" cũng ráng sửa một chút xem sao. Hổng trúng thì mai tiếp, hổng chơi nữa à nghe.

 

[baquang1984]

Thấy còn "đèn" cũng ráng sửa một chút xem sao. Hổng trúng thì mai tiếp, hổng chơi nữa à nghe.

Em cảm ơn Ba Tê em cảm ơn các thành viên của diễn đàn.
Chúc cả nhà ngủ ngon "đèn" giờ này chắc cũng tắt hết rồi

 

[be_09]

Em cảm ơn anh Ba Tê không thể nói gì hơn, chương trình thật là tuyệt với. Em có thể làm phiền anh thêm một chút nữa có được không ạ.
- Giờ em muốn lọc theo điều kiện từng thôn và theo từng mã có được không ạ, em thêm cột Ma ở Sheets"DATA", số của từng mã là (1, 2, 3) anh có thể sửa code cho em thêm chút có được không ạ, biết là không nói ngay từ đầu nên mong anh thông cảm giúp em được không ạ
+ Điều kiện lọc theo thôn là lấy theo thôn muốn lọc ở cột Diachi_ChuSD Sheets"DATA"
+ Điều kiện lọc theo mã là lấy theo cột Ma (Cột số 43) Sheets"DATA" theo các mã 1, 2, 3 (Ý nghĩa của các mã là: Mã 1 Đất nông nghiệp có thời hạn sử dụng là 20 năm, Mã 2 Đất trồng cây lâu năm có thời hạn sử dụng 50 năm, Mã 3 Đất ở nông thôn có thời hạn sử dụng lâu dai)
Em cảm ơn anh và các thành viên của diễn đàn đã giúp đỡ và đóng góp ý kiến!

Còn gì nữa thì thêm cho đầy đủ tôi sẽ giúp cho tất tần tật 1 lần, chứ đối với những File có dung lượng lớn và cái vụ thêm thêm này thì tôi rất ngán ngại trả lời, vì Quota của tôi cũng có giới hạn.

Còn nghề địa chính chính thì khỏi phải bàn, tôi đã có 37 năm trong nghề, nói để bạn hiểu là tất cả các thứ bạn làm tôi đều đã kinh qua hết rồi, chính vì vậy ngay lần đầu tiên nhìn File là tôi đã biết bạn cần gì.

Theo gợi ý của tôi ban đầu là chỉ cần dùng 1 sheet theo dõi tất tần tật các thứ như: đăng ký, chưa đăng ký, chưa xét duyệt đơn, đã xét duyệt đơn theo từng đợt, theo dõi tờ trình phòng Tài nguyên và môi trường, theo dõi đợt trình UBND huyện, theo dõi số thửa đã cấp giấy, số giấy theo từng đợt, số thửa chưa cấp giấy, cuối cùng là phần tổng hợp và trích lọc dữ liệu theo từng loại cũng chỉ dựa vào 1 với sheet dữ liệu duy nhất.

Tôi cũng đã từng kiểm tra anh em cấp huyện làm mảng này, thường thì anh em theo dõi mỗi đợt là 1 sheet, nếu trình vài trăm đợt thì theo dõi vài trăm sheet à, như vậy làm sao theo dõi và làm sao cho thuận tiện trong việc tổng hợp, tôi thấy làm kiểu này rất khó theo dõi và tổng hợp mất rất nhiều thời gian và số liệu cũng không đãm bảo chính xác (vì 1 giấy có thể trình nhiều lần, mỗi lần là 1 danh sách).

 

[baquang1984]

Còn gì nữa thì thêm cho đầy đủ tôi sẽ giúp cho tất tần tật 1 lần, chứ đối với những File có dung lượng lớn và cái vụ thêm thêm này thì tôi rất ngán ngại trả lời, vì Quota của tôi cũng có giới hạn.

Còn nghề địa chính chính thì khỏi phải bàn, tôi đã có 37 năm trong nghề, nói để bạn hiểu là tất cả các thứ bạn làm tôi đều đã kinh qua hết rồi, chính vì vậy ngay lần đầu tiên nhìn File là tôi đã biết bạn cần gì.

Theo gợi ý của tôi ban đầu là chỉ cần dùng 1 sheet theo dõi tất tần tật các thứ như: đăng ký, chưa đăng ký, chưa xét duyệt đơn, đã xét duyệt đơn theo từng đợt, theo dõi tờ trình phòng Tài nguyên và môi trường, theo dõi đợt trình UBND huyện, theo dõi số thửa đã cấp giấy, số giấy theo từng đợt, số thửa chưa cấp giấy, cuối cùng là phần tổng hợp và trích lọc dữ liệu theo từng loại cũng chỉ dựa vào 1 với sheet dữ liệu duy nhất.

Tôi cũng đã từng kiểm tra anh em cấp huyện làm mảng này, thường thì anh em theo dõi mỗi đợt là 1 sheet, nếu trình vài trăm đợt thì theo dõi vài trăm sheet à, như vậy làm sao theo dõi và làm sao cho thuận tiện trong việc tổng hợp, tôi thấy làm kiểu này rất khó theo dõi và tổng hợp mất rất nhiều thời gian và số liệu cũng không đãm bảo chính xác (vì 1 giấy có thể trình nhiều lần, mỗi lần là 1 danh sách).

Em cảm ơn anh be09 đã góp ý và giúp đỡ cho vấn đề em đang gặp phải, dữ liệu và các cột bố trí của em chỉ có vậy thôi và yêu cầu thì cũng đã trình bày ở bài #1, #10 và #25 rồi. Được các anh nhiệt tình giúp đỡ em cảm ơn mọi người nhiều!

 

[baquang1984]

Thấy còn "đèn" cũng ráng sửa một chút xem sao. Hổng trúng thì mai tiếp, hổng chơi nữa à nghe.

Anh Ba Tê có thể cho em hỏi chút là khi lọc dữ liệu sang Sheets"TONGHOP" thì ở các cột 12, 13 và 15, 16 trong dữ liệu được lọc sang
Anh viết tắt từ Tờ BĐ là 1 thửa, 2 thưa ở các cột 12 và 15, 1 Tờ BĐ, 2 Tờ BĐ ở các cột 13 và 16. Giờ em muốn sửa Code của anh để chương trình viết thành Tờ bản đồ thì phải làm thế nào ạ
Em cảm ơn anh!

 

[be_09]

Em cảm ơn anh be09 đã góp ý và giúp đỡ cho vấn đề em đang gặp phải, dữ liệu và các cột bố trí của em chỉ có vậy thôi và yêu cầu thì cũng đã trình bày ở bài #1, #10 và #25 rồi. Được các anh nhiệt tình giúp đỡ em cảm ơn mọi người nhiều!

Bạn cần tham khảo thêm cách tôi làm với File đính kèm ở bài #23 của Topic sau để hiểu thêm về những cái cần tổng hợp và nêu thêm cần tổng hợp những cái gì (ví dụ: tổng hợp diện tích cấp giấy với từng bản theo loại đất, với tổng thửa và tổng diện tích hoặc tổng hợp theo từng tờ bản đồ..v...v.....)? Tôi rảnh sẽ làm giúp cho bạn hoàn chỉnh sau.

http://www.giaiphapexcel.com/forum/...n-trợ-giúp-về-thống-kê-và-lọc-dữ-liệu-!/page3

 

[Ba Tê]

Anh Ba Tê có thể cho em hỏi chút là khi lọc dữ liệu sang Sheets"TONGHOP" thì ở các cột 12, 13 và 15, 16 trong dữ liệu được lọc sang
Anh viết tắt từ Tờ BĐ là 1 thửa, 2 thưa ở các cột 12 và 15, 1 Tờ BĐ, 2 Tờ BĐ ở các cột 13 và 16. Giờ em muốn sửa Code của anh để chương trình viết thành Tờ bản đồ thì phải làm thế nào ạ
Em cảm ơn anh!

Trong các cột 12 -> 17 làm gì có thửa, hay Tờ BĐ. Bạn chọn 1 ô trong đó rồi nhìn trên thanh công thức xem, code chỉ ghi ra các con số thôi.
Chuyện khác vào Format Cells mà chỉnh. Bạn muốn con số 9 trong ô nhưng khi hiện trên màn hình là "vàng bốn số 9" cũng được mà.
Híc!