Tự động chèn dòng và ẩn dòng (1 người xem)

[kieuloan85]

Xin chào các anh chị
Em có 01 file dữ liệu nhưng lấy dữ liệu sang sheet khác thì nó thiếu hoặc dư dòng.vậy anh chị giúp em tự động ẩn dòng và chèn dòng xin cám ơn

 

[Ba Tê]

Xin chào các anh chị
Em có 01 file dữ liệu nhưng lấy dữ liệu sang sheet khác thì nó thiếu hoặc dư dòng.vậy anh chị giúp em tự động ẩn dòng và chèn dòng xin cám ơn

Dùng VBA.
Thay đổi ngày trong ô màu vàng (E5).
Dữ liệu không được Merge Cells.

 

[kieuloan85]

Dùng VBA.
Thay đổi ngày trong ô màu vàng (E5).
Dữ liệu không được Merge Cells.

NHư vậy là oK rồi nhưng Thêm 01 điều kiện nữa anh ơi
Là nhập số 1 or 2 vào cells E6 nữa(02 điều kiện ngày và số lần nữa)
Vì một ngày mỗi lần nhập liệu phải ghi số lần nhập.
Xin cám ơn trước nha

 

[xuan.nguyen82]

NHư vậy là oK rồi nhưng Thêm 01 điều kiện nữa anh ơi
Là nhập số 1 or 2 vào cells E6 nữa(02 điều kiện ngày và số lần nữa)
Vì một ngày mỗi lần nhập liệu phải ghi số lần nhập.
Xin cám ơn trước nha

Hình như thầy Ba Tê đang Tê Tê rồi, mình tiếp code của thầy Ba Tê và sửa lại chút xíu giúp bạn nhé.

Bạn xem có đúng ý thế này không:
Macro sự kiện trong sheet 2 trước đây là ô E5
Bây giờ chuyển sang B6 và C6
Thêm điều kiện cột Y nữa nên thêm biến L = số lần trong cột Y. rồi sửa: If Sarr(I, 17) = DK Then
thành
If Sarr(I, 17) = DK And Sarr(I, 24) = L Then

Bạn xem file:

 

[kieuloan85]

Hình như thầy Ba Tê đang Tê Tê rồi, mình tiếp code của thầy Ba Tê và sửa lại chút xíu giúp bạn nhé.

Bạn xem có đúng ý thế này không:
Macro sự kiện trong sheet 2 trước đây là ô E5
Bây giờ chuyển sang B6 và C6
Thêm điều kiện cột Y nữa nên thêm biến L = số lần trong cột Y. rồi sửa: If Sarr(I, 17) = DK Then
thành
If Sarr(I, 17) = DK And Sarr(I, 24) = L Then

Bạn xem file:

Rất hay cám ơn bạn rất nhiều
Cái file của mình khai thác rất là nhiều báo cáo nhưng mình dựa vào các code của bạn và Ba Tê mình làm không đươc
Vậy mình làm phiền mọi người lần nữa nha
Ở cột Q Sheet 1có chờ xl,đang tăng,đang kiểm,đạt,kt lại sống,nhão…
Vậy mình làm thế nào để tự chèn dòng khi phát sinh thêm dữ liệu và ẩn dòng khi không có dữ liệu như file đính kèm.Với điều kiện cells O5=Svr20 or svr 3l và các cell sau cố định O6=đạt,P6=chờ xl,Q6=đang tăng,R6=đang kiểm,S6=nhão,T6=kt lại sống,U6=sống hạt
Em dựa vào các code của ba tê,xuannguyen mà làm chẳng được.Đụng tới đâu vàng tới đó
Mong anh chị giúp đỡ
Xin chân thành cảm ơn rất nhiều

 

[xuan.nguyen82]

Rất hay cám ơn bạn rất nhiều
Cái file của mình khai thác rất là nhiều báo cáo nhưng mình dựa vào các code của bạn và Ba Tê mình làm không đươc
Vậy mình làm phiền mọi người lần nữa nha
Ở cột Q Sheet 1có chờ xl,đang tăng,đang kiểm,đạt,kt lại sống,nhão…
Vậy mình làm thế nào để tự chèn dòng khi phát sinh thêm dữ liệu và ẩn dòng khi không có dữ liệu như file đính kèm.Với điều kiện cells O5=Svr20 or svr 3l và các cell sau cố định O6=đạt,P6=chờ xl,Q6=đang tăng,R6=đang kiểm,S6=nhão,T6=kt lại sống,U6=sống hạt
Em dựa vào các code của ba tê,xuannguyen mà làm chẳng được.Đụng tới đâu vàng tới đó
Mong anh chị giúp đỡ
Xin chân thành cảm ơn rất nhiều

Có những việc gì cần làm với cái file này, bạn liệt kê 1 thể đi, nếu giải quyết vấn đề thì giải quyết 1 cách tổng thể dễ hơn nhỏ lẻ.
Và biết đâu lại không sử dụng code này mà dùng code khác hiệu quả hơn được thì sao.

Do vậy, bạn kiểm tra kỹ với file, sau đó tổng hợp những cái mong muốn của bạn vào đó. Cho dù mình có không làm được hết giúp bạn thì các thành viên khác giỏi hơn sẽ giúp bạn, như vậy chẳng tốt hơn là mỗi lần thêm 1 ý hay sao?

 

[kieuloan85]

Có những việc gì cần làm với cái file này, bạn liệt kê 1 thể đi, nếu giải quyết vấn đề thì giải quyết 1 cách tổng thể dễ hơn nhỏ lẻ.
Và biết đâu lại không sử dụng code này mà dùng code khác hiệu quả hơn được thì sao.

Do vậy, bạn kiểm tra kỹ với file, sau đó tổng hợp những cái mong muốn của bạn vào đó. Cho dù mình có không làm được hết giúp bạn thì các thành viên khác giỏi hơn sẽ giúp bạn, như vậy chẳng tốt hơn là mỗi lần thêm 1 ý hay sao?

Ý này là cuối cùng rồi bạn ơn.Những gì cần muốn làm mình đã ghi rõ trong file
Xin cám ơn bạn trước nha
Tại mình muốn học hỏi thôi nhưng bây giờ lại bó tay rồi

 

[kieuloan85]

Sao không có ai giúp mình vậy ta.Mình có sai gì không vậy?

 

[xuan.nguyen82]

Sao không có ai giúp mình vậy ta.Mình có sai gì không vậy?

Mình chẳng hiểu công việc của bạn lắm đâu. Phải nhờ hướng dẫn rồi mình Làm đại. Cứ theo yêu cầu, không hiểu trúng yêu cầu thì ..trật...
Bạn xem file nhé.

 

[kieuloan85]

Mình chẳng hiểu công việc của bạn lắm đâu. Phải nhờ hướng dẫn rồi mình Làm đại. Cứ theo yêu cầu, không hiểu trúng yêu cầu thì ..trật...
Bạn xem file nhé.

Rất hay cám ơn bạn nhé!
Bạn cho mình hỏi nếu như bên sheet 1 có thêm 01 điều kiện là cột Q có chữ Đạt (riêng chữ đạt thôi)và cột R khác rỗng(có ngày)thì mình không lấy sang sheet 20
Và sheet 20 các chữ đạt,đang kiểm,chờ xl,...nằm cùng 01 cột O thôi
Xin cám ơn bạn

 

[Ba Tê]

Rất hay cám ơn bạn nhé!
Bạn cho mình hỏi nếu như bên sheet 1 có thêm 01 điều kiện là cột Q có chữ Đạt (riêng chữ đạt thôi)và cột R khác rỗng(có ngày)thì mình không lấy sang sheet 20
Và sheet 20 các chữ đạt,đang kiểm,chờ xl,...nằm cùng 01 cột O thôi
Xin cám ơn bạn

Vậy cái này là gì ta?

Ý này là cuối cùng rồi bạn ơn.Những gì cần muốn làm mình đã ghi rõ trong file
Xin cám ơn bạn trước nha
Tại mình muốn học hỏi thôi nhưng bây giờ lại bó tay rồi

 

[kieuloan85]

Vậy cái này là gì ta?

Cám ơn Ba Tê
Nhưng ở sheet 20 nếu như cell O4=P4=svr3l thì loại hàng đạt có 02 dòng total và loại hàng đang kiểm cũng có 02 dòng total(ý em muốn lấy 1 dòng cho từng loại hàng thôi)

 

[kieuloan85]

Cám ơn Ba Tê

Nhưng ở sheet 20 nếu như cell O4=P4=svr3l thì loại hàng đạt có 02 dòng total và loại hàng đang kiểm cũng có 02 dòng total(ý em muốn lấy 1 dòng cho từng loại hàng và 1 cell sum các total lại nằm cuối bảng)

 

[popog]

Khi bạn sắp sửa làm một dự án sử dụng VBA nào đó, hãy phác hoạ những vấn đề mà chương trình đó cần giải quyết, những phát sinh có thể xảy ra do các tham số đầu vào gây nên (vd: lớn quá, nhỏ quá, hoặc không đúng kiểu dữ liệu, ...). Rồi hãy hỏi. Ngoài ra thì nên cố gắng tìm kiếm thêm trên diễn đàn, hoặc google, hay có thể tham gia đặt câu hỏi nào một chủ đề có sẵn, có hướng cùng với hướng bạn cần giải quyết (diễn đàn bớt các đề tài trùng, các thành viên có kinh nghiệm tập trung giải quyết tốt hơn). Chứ hỏi chút một. chút một thế này rắc rối quá

 

[kieuloan85]

Khi bạn sắp sửa làm một dự án sử dụng VBA nào đó, hãy phác hoạ những vấn đề mà chương trình đó cần giải quyết, những phát sinh có thể xảy ra do các tham số đầu vào gây nên (vd: lớn quá, nhỏ quá, hoặc không đúng kiểu dữ liệu, ...). Rồi hãy hỏi. Ngoài ra thì nên cố gắng tìm kiếm thêm trên diễn đàn, hoặc google, hay có thể tham gia đặt câu hỏi nào một chủ đề có sẵn, có hướng cùng với hướng bạn cần giải quyết (diễn đàn bớt các đề tài trùng, các thành viên có kinh nghiệm tập trung giải quyết tốt hơn). Chứ hỏi chút một. chút một thế này rắc rối quá

Cám ơn bạn nhắc nhở
Chớ trong chủ đề này các tác giả của code làm không giống ý mình.Không cho mình hỏi ở đây đi ra chổ khác hỏi ah

 

[SA_DQ]

KieuLoan85: Theo mình, những người viết bài trên đây có nhiều kinh nghiệm trong VBA!

Bạn học như vậy (bằng cách đưa dần iêu cầu lên) cũng tốt thôi; Nhưng chỉ tốt cho bạn; Còn cho GPE thì tốn tài nguyên không cần thiết, còn cộng đồng thì tốn thời gian vì bạn;

Với iêu cầu thêm bớt & ần dòng, mình thường làm cách khác:
Đó là cho số dòng tối đa đa dữ liệu (DL) trong ngày của bạn không vượt (Cái ni do kinh nghiệm làm việc của bạn mà ra)
Sau đó, sau khi đổ DL vô, ta chỉ việc ần các dòng trống đi; Chuyện định dạng & các công thức tổng hợp đã sẵn, khỏi mỗi lần chạy macro lại viết lại.

Tất nhiên thường có 2 xu hướng giải quyết vấn đề: Từ chi tiết đến toàn thể & từ tổng thể ta xử từng chi tiết/công đoạn.
Với những người có bề dầy kinh nghiệm, họ sẽ dẫn bạn đi theo bước 2; Điều này có khi không thích hợp với bạn, nhưng . . . . .

 

[kieuloan85]

Bạn học như vậy (bằng cách đưa dần iêu cầu lên) cũng tốt thôi; Nhưng chỉ tốt cho bạn; Còn cho GPE thì tốn tài nguyên không cần thiết, còn cộng đồng thì tốn thời gian vì bạn;

Với iêu cầu thêm bớt & ần dòng, mình thường làm cách khác:
Đó là cho số dòng tối đa đa dữ liệu (DL) trong ngày của bạn không vượt (Cái ni do kinh nghiệm làm việc của bạn mà ra)
Sau đó, sau khi đổ DL vô, ta chỉ việc ần các dòng trống đi; Chuyện định dạng & các công thức tổng hợp đã sẵn, khỏi mỗi lần chạy macro lại viết lại.

Tất nhiên thường có 2 xu hướng giải quyết vấn đề: Từ chi tiết đến toàn thể & từ tổng thể ta xử từng chi tiết/công đoạn.
Với những người có bề dầy kinh nghiệm, họ sẽ dẫn bạn đi theo bước 2; Điều này có khi không thích hợp với bạn, nhưng . . . . .

Cám ơn bác
Nhưng ở #11 của Ba Tê Ok rồi nhưng có phần sai cho nên mình muốn hỏi tại đó thôi chớ đâu có hỏi gì thêm đâu
Em hỏi cái chổ sai đó thôi.Sao khó quá vậy trời

Mình chẳng hiểu công việc của bạn lắm đâu. Phải nhờ hướng dẫn rồi mình Làm đại. Cứ theo yêu cầu, không hiểu trúng yêu cầu thì ..trật...
Bạn xem file nhé.

Làm đại trật rồi lại không cho hỏi.Cái này chắc chết luôn
Đem con bỏ chợ nè

 

[xuan.nguyen82]

Cám ơn bác
Nhưng ở #11 của Ba Tê Ok rồi nhưng có phần sai cho nên mình muốn hỏi tại đó thôi chớ đâu có hỏi gì thêm đâu
Em hỏi cái chổ sai đó thôi.Sao khó quá vậy trời

Làm đại trật rồi lại không cho hỏi.Cái này chắc chết luôn
Đem con bỏ chợ nè

Công việc của bạn chỉ có bạn mới hiểu, và bạn lại giải thích theo cách của bạn hiểu nên mình hiểu thế nào mình viết code như vậy.
Sau khi tiếp code thầy Ba Tê mình đã làm 1 bài cho bạn, bạn đã nói:

Rất hay cám ơn bạn rất nhiều
Cái file của mình khai thác rất là nhiều báo cáo nhưng mình dựa vào các code của bạn và Ba Tê mình làm không đươc
Vậy mình làm phiền mọi người lần nữa nha
Ở cột Q Sheet 1có chờ xl,đang tăng,đang kiểm,đạt,kt lại sống,nhão…
Vậy mình làm thế nào để tự chèn dòng khi phát sinh thêm dữ liệu và ẩn dòng khi không có dữ liệu như file đính kèm.Với điều kiện cells O5=Svr20 or svr 3l và các cell sau cố định O6=đạt,P6=chờ xl,Q6=đang tăng,R6=đang kiểm,S6=nhão,T6=kt lại sống,U6=sống hạt
Em dựa vào các code của ba tê,xuannguyen mà làm chẳng được.Đụng tới đâu vàng tới đó
Mong anh chị giúp đỡ
Xin chân thành cảm ơn rất nhiều

Mình có nói với bạn vì mình đề phòng việc bạn hỏi mỗi lần thêm 1 tý, hỏi 1 lượt viết code cho gọn:

Có những việc gì cần làm với cái file này, bạn liệt kê 1 thể đi, nếu giải quyết vấn đề thì giải quyết 1 cách tổng thể dễ hơn nhỏ lẻ.
Và biết đâu lại không sử dụng code này mà dùng code khác hiệu quả hơn được thì sao.

Do vậy, bạn kiểm tra kỹ với file, sau đó tổng hợp những cái mong muốn của bạn vào đó. Cho dù mình có không làm được hết giúp bạn thì các thành viên khác giỏi hơn sẽ giúp bạn, như vậy chẳng tốt hơn là mỗi lần thêm 1 ý hay sao?

Bạn có trả lời:

Ý này là cuối cùng rồi bạn ơn.Những gì cần muốn làm mình đã ghi rõ trong file
Xin cám ơn bạn trước nha
Tại mình muốn học hỏi thôi nhưng bây giờ lại bó tay rồi

Và mình cũng đã giải quyết với cái ý bạn hỏi thêm đó rồi, bạn đã nói mà không nói là trật hay trúng, ai mà biết bạn nói là rất hay và cám ơn, hiểu là bài đã đúng, rồi bạn hỏi thêm:

Rất hay cám ơn bạn nhé!
Bạn cho mình hỏi nếu như bên sheet 1 có thêm 01 điều kiện là cột Q có chữ Đạt (riêng chữ đạt thôi)và cột R khác rỗng(có ngày)thì mình không lấy sang sheet 20
Và sheet 20 các chữ đạt,đang kiểm,chờ xl,...nằm cùng 01 cột O thôi
Xin cám ơn bạn

Cái câu mình bôi đỏ đó là bạn hỏi thêm nữa, mà câu hỏi thêm đó thì mình không làm. Tức là mỗi lần bạn hỏi thêm 1 chút, không hỏi thống nhất ngay từ đầu, viết code theo bạn mỗi lúc lại thêm thêm sửa sửa. Vì thế mình không làm nữa. Để các cao thủ khác sẽ giúp bạn.

Cách hỏi cũng rất quan trọng, mình hỏi như thế nào để người khác dễ hiểu nhất và giải thích cũng cần để cho người khác hiểu. Vì có ai làm chuyên ngành của bạn đâu. Thế nên đừng trách người trả lời là “đem con bỏ chợ” nha.

Bạn nói: Làm đại trật rồi lại không cho hỏi, ở GPE không ai là "không cho bạn hỏi" mà là cách hỏi của bạn chỉ có mình bạn hiểu nên không ai trả lời. Hơn nữa, bạn không hỏi tổng quát ngay từ đầu, rất khó viết code cho đúng ý, vì không có cái nhìn tổng thể. Vì thế mình mới nói: Cách hỏi cũng rất quan trọng mà.

 

[SA_DQ]

[thongbao]Nhưng ở #11 của Ba Tê Ok rồi nhưng có phần sai cho nên mình muốn hỏi tại đó thôi chớ đâu có hỏi gì thêm đâu
Em hỏi cái chổ sai đó thôi.Sao khó quá vậy trời
[/thongbao]

(/ậy chắc fải chờ chàng 3T thụ lí tiếp thôi!

Còn ai khác thì ngại tìm hiểu lại sự vụ từ đầu.

 

[xuan.nguyen82]

[thongbao]Nhưng ở #11 của Ba Tê Ok rồi nhưng có phần sai cho nên mình muốn hỏi tại đó thôi chớ đâu có hỏi gì thêm đâu
Em hỏi cái chổ sai đó thôi.Sao khó quá vậy trời
[/thongbao]

(/ậy chắc fải chờ chàng 3T thụ lí tiếp thôi!

Còn ai khác thì ngại tìm hiểu lại sự vụ từ đầu.

Thôi đợi thầy Ba Tê giải quyết bài của bạn ấy vậy ạ. Mà thầy mới có cháu ngoại. Nên thầy hơi bận rộn!

 

[kieuloan85]

Công việc của bạn chỉ có bạn mới hiểu, và bạn lại giải thích theo cách của bạn hiểu nên mình hiểu thế nào mình viết code như vậy.
Sau khi tiếp code thầy Ba Tê mình đã làm 1 bài cho bạn, bạn đã nói:


Mình có nói với bạn vì mình đề phòng việc bạn hỏi mỗi lần thêm 1 tý, hỏi 1 lượt viết code cho gọn:



Bạn có trả lời:



Và mình cũng đã giải quyết với cái ý bạn hỏi thêm đó rồi, bạn đã nói mà không nói là trật hay trúng, ai mà biết bạn nói là rất hay và cám ơn, hiểu là bài đã đúng, rồi bạn hỏi thêm:



Cái câu mình bôi đỏ đó là bạn hỏi thêm nữa, mà câu hỏi thêm đó thì mình không làm. Tức là mỗi lần bạn hỏi thêm 1 chút, không hỏi thống nhất ngay từ đầu, viết code theo bạn mỗi lúc lại thêm thêm sửa sửa. Vì thế mình không làm nữa. Để các cao thủ khác sẽ giúp bạn.

Cách hỏi cũng rất quan trọng, mình hỏi như thế nào để người khác dễ hiểu nhất và giải thích cũng cần để cho người khác hiểu. Vì có ai làm chuyên ngành của bạn đâu. Thế nên đừng trách người trả lời là “đem con bỏ chợ” nha.

Bạn nói: Làm đại trật rồi lại không cho hỏi, ở GPE không ai là "không cho bạn hỏi" mà là cách hỏi của bạn chỉ có mình bạn hiểu nên không ai trả lời. Hơn nữa, bạn không hỏi tổng quát ngay từ đầu, rất khó viết code cho đúng ý, vì không có cái nhìn tổng thể. Vì thế mình mới nói: Cách hỏi cũng rất quan trọng mà.

Như vậy mình hỏi là mọi người không hiểu ah
hỏi như vầy ở #11 được không ta
=IF(AND(O4="svr3L",P4="svr3l"),"tại sao có 2 dòng total loại hàng đạt,02 dòng total ở loại hàng đang kiểm ","OK")

 

[Ba Tê]

Như vậy mình hỏi là mọi người không hiểu ah
hỏi như vầy ở #11 được không ta
=IF(AND(O4="svr3L",P4="svr3l"),"tại sao có 2 dòng total loại hàng đạt,02 dòng total ở loại hàng đang kiểm ","OK")

1/ Hổng phải có 2 dòng TOTAL Đạt hay 2 dòng TOTAL Đang kiểm, Thực tế nó là 1 dòng TOTAL loại Đạt, 1 Dòng TOTAL loại Chờ XL theo thứ tự O6 đến U6 (Nhưng không có dữ liệu Chờ XL nên TOTAL=0), tương tự như loại dưới.
2/ Câu hỏi của bạn chưa hề rõ ràng nên mọi người đều đoán mò, vì thế, khi người khác không hiểu thì bạn nên xem lại câu hỏi của mình, chứ đừng “quạu” là người khác không hiểu mình.
Chẳng ai đem con bỏ chợ cả, chỉ có thái độ hỏi của mình có khi làm người khác không muốn tiếp tục nữa thôi.

Làm đại trật rồi lại không cho hỏi.Cái này chắc chết luôn
Đem con bỏ chợ nè.

3/ Hy vọng bạn hiểu GPE nhiều hơn.
-------------------
Một ngày đàng (đường), một ngày đàn (đờn, đàn đúm…)

 

[kieuloan85]

1/ Hổng phải có 2 dòng TOTAL Đạt hay 2 dòng TOTAL Đang kiểm, Thực tế nó là 1 dòng TOTAL loại Đạt, 1 Dòng TOTAL loại Chờ XL theo thứ tự O6 đến U6 (Nhưng không có dữ liệu Chờ XL nên TOTAL=0), tương tự như loại dưới.
2/ Câu hỏi của bạn chưa hề rõ ràng nên mọi người đều đoán mò, vì thế, khi người khác không hiểu thì bạn nên xem lại câu hỏi của mình, chứ đừng “quạu” là người khác không hiểu mình.
Chẳng ai đem con bỏ chợ cả, chỉ có thái độ hỏi của mình có khi làm người khác không muốn tiếp tục nữa thôi.

Xin Cám ơn Ba Tê
Rất nhiều