VBA đếm ký tự theo 1 điều kiện (1 người xem)

[Dong Le]

Kính nhờ các bác hổ trợ giúp mình code như file đính kèm với.

 

[ndu96081631]

Kính nhờ các bác hổ trợ giúp mình code như file đính kèm với.

Theo như trong file là ĐẾM CÓ ĐIỀU KIỆN. Vậy sao bạn không dùng hàm COUNTIFS
Bạn nghĩ rằng viết code sẽ "ngon lành" hơn hàm COUNTIFS của anh Bill sao?

 

[Dong Le]

Dear anh, Làm sao dùng countifs được ạ? cột F không bao giờ trùng nhau anh ạ. Nếu nó trùng nhau thì mới dùng countifs được.

 

[ndu96081631]

Dear anh, Làm sao dùng countifs được ạ? cột F không bao giờ trùng nhau anh ạ. Nếu nó trùng nhau thì mới dùng countifs được.

Thế nếu tôi dùng công thức này thì sao:

=COUNTIFS($D$5:$D$19,"[COLOR=#ff0000]*ABC[/COLOR]",$G$5:$G$19,"<>")

Là đếm theo kho ABC nha

 

[Dong Le]

Thế nếu tôi dùng công thức này thì sao:

=COUNTIFS($D$5:$D$19,"[COLOR=#ff0000]*ABC[/COLOR]",$G$5:$G$19,"<>")

Là đếm theo kho ABC nha

Nếu chỉ có *ABC và *BCD thì đơn giản anh, nhưng nếu nó có đến 80 cái như *ABC, *BCD thì ko lẽ ngồi gõ công thức 80 lần ạ?

 

[hungpecc1]

Nếu chỉ có *ABC và *BCD thì đơn giản anh, nhưng nếu nó có đến 80 cái như *ABC, *BCD thì ko lẽ ngồi gõ công thức 80 lần ạ?

Nếu đã gõ công thức 80 lần --> có khi chắc cũng phải viết code 80 lần mất @_@

*b1: Bạn phải liệt kê xem có bao nhiêu loại kho ( cái này có thể dùng nhiều cách)
* b2ùng hàm counifs thử xem

 

[ndu96081631]

Nếu chỉ có *ABC và *BCD thì đơn giản anh, nhưng nếu nó có đến 80 cái như *ABC, *BCD thì ko lẽ ngồi gõ công thức 80 lần ạ?

Vậy thì bạn có thể dùng PivotTable để tổng hợp
Thật ra tôi cũng chưa hình dung lắm kết quả mà bạn cần. Vậy bạn có thể gõ toàn bộ kết quả mong muốn vào 1 sheet rồi gửi lên đây tôi xem thử

 

[Dong Le]

Nếu đã gõ công thức 80 lần --> có khi chắc cũng phải viết code 80 lần mất @_@

*b1: Bạn phải liệt kê xem có bao nhiêu loại kho ( cái này có thể dùng nhiều cách)
* b2ùng hàm counifs thử xem

Vì thực tế em có đến 80 cái kho như vậy anh ạ, nên mới phức tạp, anh có cách nào ngắn gọn hơn giúp em.

 

[Dong Le]

Vậy thì bạn có thể dùng PivotTable để tổng hợp
Thật ra tôi cũng chưa hình dung lắm kết quả mà bạn cần. Vậy bạn có thể gõ toàn bộ kết quả mong muốn vào 1 sheet rồi gửi lên đây tôi xem thử

Gửi lại anh file, anh xem giúp em.

 

[hungpecc1]

Vì thực tế em có đến 80 cái kho như vậy anh ạ, nên mới phức tạp, anh có cách nào ngắn gọn hơn giúp em.

Trên bảng tính bạn up lên ( BOOK1.xlsm), tại ô D22 bạn gõ công thức sau :

=IFERROR(INDEX($D$5:$D$19,MATCH(0,COUNTIF($D$21:D21,$D$5:$D$19),0)),"")

<--- kết thúc bằng ctrl + shift + enter
* Ô E22 bạn nhập công thức sau :

=IF(D22<>"",COUNTIFS($D$5:$D$19,"*" & SUBSTITUTE(D22,"KHO",""),$G$5:$G$19,"<>"),"")

< ấn enter>


kéo 2 công thức trên xuống dưới !!

 

[Dong Le]

Trên bảng tính bạn up lên ( BOOK1.xlsm), tại ô D22 bạn gõ công thức sau :

=IFERROR(INDEX($D$5:$D$19,MATCH(0,COUNTIF($D$21:D21,$D$5:$D$19),0)),"")

<--- kết thúc bằng ctrl + shift + enter
* Ô E22 bạn nhập công thức sau :

=IF(D22<>"",COUNTIFS($D$5:$D$19,"*" & SUBSTITUTE(D22,"KHO",""),$G$5:$G$19,"<>"),"")

< ấn enter>


kéo 2 công thức trên xuống dưới !!

Cảm ơn bác, công thức này ok, tuy nhiên công thức mảng nên quét khoảng 10.000 dòng thì hơi bị đuối.

 

[hungpecc1]

Cảm ơn bác, công thức này ok, tuy nhiên công thức mảng nên quét khoảng 10.000 dòng thì hơi bị đuối.

Vơi 10.000 dòng thì có lẽ phải dùng code vba mới nhanh được,:
Nhìn qua dữ liệu của bạn, bạn có thể nghiên cứu cách dùng scripting.dictionary trên diễn đàn ( các bài đếm dữ liệu trùng này có nhiều rồi )

 

[Dong Le]

Dear các bác, Các bác giúp em tìm và liệt kê dữ liệu như sheet bên dưới với.

 

[VetMini]

Trời đất, đơn giản vậy thì chỉ cần filter là ra.

 

[Dong Le]

Filter là đứng ở sheet test mới filter, cái này đang ở sheets khác mà bác. Dùng hàm thì cũng liệt kê được nhưng muốn dung VBA để nhẹ file bác ạ.

 

[VetMini]

Filter là đứng ở sheet test mới filter, cái này đang ở sheets khác mà bác. Dùng hàm thì cũng liệt kê được nhưng muốn dung VBA để nhẹ file bác ạ.

Cái này là lười biếng làm thêm vài động tác chứ đâu phải "cho nhẹ file"

Filter > Copy Visible > Paste qua sheet mới.
Hết

Không có Macro file được nhẹ thêm 1 chút.

 

[hungpecc1]

Filter là đứng ở sheet test mới filter, cái này đang ở sheets khác mà bác. Dùng hàm thì cũng liệt kê được nhưng muốn dung VBA để nhẹ file bác ạ.

Bạn thao tác bằng advanced filter + record macro --> tự dưng sẽ có code thôi

 

[hungpecc1]

Filter là đứng ở sheet test mới filter, cái này đang ở sheets khác mà bác. Dùng hàm thì cũng liệt kê được nhưng muốn dung VBA để nhẹ file bác ạ.

xem file đính kèm !!

 

[Dong Le]

xem file đính kèm !!

Mình down về test nhưng ko chạy bác ạ.

 

[Dong Le]

xem file đính kèm !!

Nhờ bác xem giúp mình file bên dưới, nếu như mình tìm và liệt kê ở cả 2sheet test1 và test2. Mình modify lại code như file nhưng nó ko lọc được.

 

[Dong Le]

Nhờ bác xem giúp mình file bên dưới, nếu như mình tìm và liệt kê ở cả 2sheet test1 và test2. Mình modify lại code như file nhưng nó ko lọc được.

Bác nào viết được code này giúp mình với nhé.

 

[Dong Le]

Cảm ơn tất cả các anh chị trong topic này, mình đã nghiên cứu được rồi.

 

[Dong Le]

Dear các bác, hiện tại mình đã liệt kê dữ liệu từ các sheet khác lên theo điều kiện như file đính kèm, giờ mình muốn xóa dữ liệu này tự động khi mình xóa điều kiện. Các bác giúp mình với.(yêu cầu như trong file đính kèm.)

 

[Dong Le]

Trên bảng tính bạn up lên ( BOOK1.xlsm), tại ô D22 bạn gõ công thức sau :

=IFERROR(INDEX($D$5:$D$19,MATCH(0,COUNTIF($D$21:D21,$D$5:$D$19),0)),"")

<--- kết thúc bằng ctrl + shift + enter
* Ô E22 bạn nhập công thức sau :

=IF(D22<>"",COUNTIFS($D$5:$D$19,"*" & SUBSTITUTE(D22,"KHO",""),$G$5:$G$19,"<>"),"")

< ấn enter>


kéo 2 công thức trên xuống dưới !!

Dear bác, Bác giúp mình thêm điều kiện trong sheet "Test"