Lọc dữ liệu có điều kiện và Merge Cell

[baquang1984]

Em chào Thầy cô và anh chị trên diễn đàn ạ
Em nhờ thầy cô và anh chị trên diễn đàn viết giúp em Code VBA để thực hiện chương trình như sau ạ:
Em có sheets"DATA" là sheet chứa dữ liệu cần lọc, khi em chọn điều kiện lọc ở cột I2 sheets"KETQUA" thì chương trình sẽ lọc dữ liệu sang sheets"KETQUA"
Dữ liệu được điền như sau:
Cột A sheets"KETQUA" dữ liệu lấy từ cột A Sheets"DATA" và Mergen các ô theo giá trị của điều kiện và điền một giá trị Như file đính kèm
Cột B sheets"KETQUA" dữ liệu được lấy từ cột D sheets"DATA và Mergen các ô theo giá trị của điều kiện và điền một giá trị
Cột C sheets"KETQUA" lấy dữ liệu được lấy từ cột E sheets"DATA"
Cột D sheets"KETQUA" lấy dữ liệu được lấy từ cột F sheets"DATA"
Cột E sheets"KETQUA" lấy dữ liệu được lấy từ cột G sheets"DATA"
Cột F sheets"KETQUA" lấy dữ liệu được lấy từ cột H sheets"DATA"
kết thúc mỗi điều kiện có dòng tính tổng ở cột C sheets"KETQUA" đếm xem có bao nhiêu thửa đất
ở cột D sheets"KETQUA" đếm xem có bao nhiêu tờ bản đồ, ở cột F tính tổng diện tích
Với trường hợp chọn vào Button "LỌC TẤT CẢ" chương trình sẽ lọc toàn bộ dữ liệu bên sheets"DATA" sang sheets"KETQUA" với điều kiện như trên
Dữ liệu và kết quả mong muốn em đã thể hiện trong file đính kèm ạ
Em cảm ơn Thầy cô và anh chị trên diễn đàn giúp đỡ ạ

 

[tam888]

Vậy bạn phấn đấu làm Bộ trưởng một ngành nào đó đi thì may ra đổi được.

ai za, kiểu ai cũng thế này thì nó cũng trì trệ thì kêu ai, cứ đòi làm bộ trưởng sao đổi

 

[Ba Tê]

Vậy bạn phấn đấu làm Bộ trưởng một ngành nào đó đi thì may ra đổi được.

Có sao đâu? Cần gì "làm bộ".
Những người rảnh rỗi rất nhiều, cưỡi ngựa xem hoa thôi, đâu cần biết công sức trồng hoa đó từ đâu mà có.
Chỉ biết rằng hoa đó "nhà tôi có cả đống, nhiều khi thấy ghét phải nhổ bỏ".
Tốn công tào lao vậy thì đừng tính nó là giaiphapexcel (Excel có làm được không?).

 

[be_09]

ai za, kiểu ai cũng thế này thì nó cũng trì trệ thì kêu ai, cứ đòi làm bộ trưởng sao đổi

Cái đó còn là chuyện nhỏ, nó còn mười mấy cái biểu như thế này nữa.

 

[VetMini]

Bộ này kể cũng dễ. Có lẽ tại sếp ngu, khong biết thế nào là Macro.
Hồi tôi còn làm việc với các cơ quan nhà nước, chúng toi theo quy tắc nhất định là file Excel ở dạng cuối cùng (báo cáo) không được phép dùng Macro. Tức là Macro chỉ dùng ở vòng lấy dữ liệu và phân tích thôi. Các bảng, biểu đồ đều được copied sang. Cái mà các "sếp" cấp cao dùng chỉ thuần là các bảng tính độ nhạy, pivot table và chart.
Các cty liên doanh tôi dự phần tư vấn cũng vậy.

 

[Ba Tê]

Cái đó còn là chuyện nhỏ, nó còn mười mấy cái biểu như thế này nữa.

View attachment 217902

Cả trăm cái biểu bảng của bạn cũng vậy thôi.
Cái bạn cần thì người khác bảo rằng nó "tào lao" không chuẩn.
Đâu biết rằng cái yêu cầu nho nhỏ về "giaiphapexcel" của tác giả chỉ "đang giỡn" vậy thôi. Khi nào gặp "luxubu" thì tính sau (hỏi tiếp - Theo yêu cầu của "sếp ngu" - giaiphapexcel.com không cấm).
"Cởi ngựa xem hoa" khác với "cuốc đất trồng hoa".
Sản phẩm dù là "cùi bắp" vẫn hơn "chẳng giúp được gì", hình như "thời trước" có nghe rằng mấy ý kiến lu bu đó là "lý thuyết suông", "đập mà không xây".
Tôi thì "dốt đặc cán mai", chỉ muốn thử xem VBA làm được gì với yêu cầu của tác giả.
"Mìn nổ" kệ nó.
Mình học được cách "gài mìn", sau khi có cảnh báo cho tác giả biết là "có mìn" (chết ráng chịu).

 

[be_09]

Cả trăm cái biểu bảng của bạn cũng vậy thôi.
Cái bạn cần thì người khác bảo rằng nó "tào lao" không chuẩn.
Đâu biết rằng cái yêu cầu nho nhỏ về "giaiphapexcel" của tác giả chỉ "đang giỡn" vậy thôi. Khi nào gặp "luxubu" thì tính sau (hỏi tiếp - Theo yêu cầu của "sếp ngu" - giaiphapexcel.com không cấm).
"Cởi ngựa xem hoa" khác với "cuốc đất trồng hoa".
Sản phẩm dù là "cùi bắp" vẫn hơn "chẳng giúp được gì", hình như "thời trước" có nghe rằng mấy ý kiến lu bu đó là "lý thuyết suông", "đập mà không xây".
Tôi thì "dốt đặc cán mai", chỉ muốn thử xem VBA làm được gì với yêu cầu của tác giả.
"Mìn nổ" kệ nó.
Mình học được cách "gài mìn" sau khi có cảnh báo cho tác giả biết là "có mìn" (chết ráng chịu).

Bất kỳ ngành nào cũng vậy, làm bất kỳ cái gì cũng có quy định.

Anh làm công chức thì phải cong xương sống làm theo quy định, nếu anh không chấp hành thì A lê mời anh đi chỗ khác chơi xơi nước (làm bản kiểm điểm chờ nhận quyết định...........) để cho người khác làm việc.

 

[be_09]

Em chào Thầy cô và anh chị trên diễn đàn ạ
Em nhờ thầy cô và anh chị trên diễn đàn viết giúp em Code VBA để thực hiện chương trình như sau ạ:
Em có sheets"DATA" là sheet chứa dữ liệu cần lọc, khi em chọn điều kiện lọc ở cột I2 sheets"KETQUA" thì chương trình sẽ lọc dữ liệu sang sheets"KETQUA"
Dữ liệu được điền như sau:
........................................................
Dữ liệu và kết quả mong muốn em đã thể hiện trong file đính kèm ạ
Em cảm ơn Thầy cô và anh chị trên diễn đàn giúp đỡ ạ

Thử sử dụng File, Code hơi cùi bắp nhưng đáp ứng được yêu cầu công việc.
Trong ngành này thường sử dụng dữ liệu trên vài ngàn dòng trở lên, bạn thử copy dữ liệu của File khác và Paste vào sheet DATA rồi nhấn nút (thử xem nó có chậm không), vì tôi không có dữ liệu nhiều để thử.

Tôi sửa code và chuyển File đến bài 29.

 

[baquang1984]

Thử sử dụng File, Code hơi cùi bắp nhưng đáp ứng được yêu cầu công việc.
Trong ngành này thường sử dụng dữ liệu trên vài ngàn dòng trở lên, bạn thử copy dữ liệu của File khác và Paste vào sheet DATA rồi nhấn nút (thử xem nó có chậm không), vì tôi không có dữ liệu nhiều để thử.

Em cảm ơn bác be09 nhé

 

[be_09]

Em cảm ơn bác be09 nhé

Tôi sửa lại code bài 27 và trang trí bảng tính cho dễ nhìn hơn, bạn kiểm tra lại xem.
Để thử, bạn copy dữ liệu từ File khác với vài ngàn dòng và Paste vào sheet DATA rồi nhấn nút để xem kết quả nó như thế nào.

 

[vudinhgiao]

Em hóng với

 

[HieuCD]

Em chào Thầy cô và anh chị trên diễn đàn ạ
Em nhờ thầy cô và anh chị trên diễn đàn viết giúp em Code VBA để thực hiện chương trình như sau ạ:
Em có sheets"DATA" là sheet chứa dữ liệu cần lọc, khi em chọn điều kiện lọc ở cột I2 sheets"KETQUA" thì chương trình sẽ lọc dữ liệu sang sheets"KETQUA"
Dữ liệu được điền như sau:
Cột A sheets"KETQUA" dữ liệu lấy từ cột A Sheets"DATA" và Mergen các ô theo giá trị của điều kiện và điền một giá trị Như file đính kèm
Cột B sheets"KETQUA" dữ liệu được lấy từ cột D sheets"DATA và Mergen các ô theo giá trị của điều kiện và điền một giá trị
Cột C sheets"KETQUA" lấy dữ liệu được lấy từ cột E sheets"DATA"
Cột D sheets"KETQUA" lấy dữ liệu được lấy từ cột F sheets"DATA"
Cột E sheets"KETQUA" lấy dữ liệu được lấy từ cột G sheets"DATA"
Cột F sheets"KETQUA" lấy dữ liệu được lấy từ cột H sheets"DATA"
kết thúc mỗi điều kiện có dòng tính tổng ở cột C sheets"KETQUA" đếm xem có bao nhiêu thửa đất
ở cột D sheets"KETQUA" đếm xem có bao nhiêu tờ bản đồ, ở cột F tính tổng diện tích
Với trường hợp chọn vào Button "LỌC TẤT CẢ" chương trình sẽ lọc toàn bộ dữ liệu bên sheets"DATA" sang sheets"KETQUA" với điều kiện như trên
Dữ liệu và kết quả mong muốn em đã thể hiện trong file đính kèm ạ
Em cảm ơn Thầy cô và anh chị trên diễn đàn giúp đỡ ạ

Mở file và chọn điều kiện