Lọc danh sách công nhân bị hạ cấp?

[taibalem0711]

Xin chào các anh, chị. Rất mong các anh, chị giúp đỡ giùm em.

Em có 1 file Excel gồm 2 sheet (Xếp_Hạng và Tổng_Hợp), trong tháng mình xếp hạng công nhân là A, B, C trong sheet Xếp_hạng để tính lương. Còn Tổng_hợp là mình liệt kê lại tất cả công nhân bị hạ xuống hạng B, C của các tổ.

Mình mong mọi người có giúp mình giải bài toán này với.

 

[Lê Duy Thương]

xin chào các anh, chị. Rất mong các anh, chị giúp đỡ giùm em.

Em có 1 file excel gồm 2 sheet (xếp_hạng và tổng_hợp), trong tháng mình xếp hạng công nhân là a, b, c trong sheet xếp_hạng để tính lương. Còn tổng_hợp là mình liệt kê lại tất cả công nhân bị hạ xuống hạng b, c của các tổ.

Mình mong mọi người có giúp mình giải bài toán này với.

dùng advance filter bạn nhé. Vui lòng xem file

 

[taibalem0711]

Hix. Bạn sử dụng advanced filter, nên mình chã hiểu gì hết. Giờ mình không biết làm sao để áp dụng sang file Excel làm lương của mình hết. Vì cái file mình úp lên chủ yếu minh họa để mình xin hàm công thức để áp dụng lại cho file lương của mình.

Bạn có còn cách nào khác ko?. Vì advanced filter mình không biết chế lại.

 

[khuongvietphong]

dùng advance filter bạn nhé. Vui lòng xem file

Dạ xin cho em hỏi tác dụng của dòng lệnh dưới đây để làm gì vậy, vì em đã thử xóa nó đi thì chưa phát hiện thấy điều gì bất thường ạ:

Sheet3.Range("A6:A" & [B65000].End(3).Row).Value = Evaluate("row(r:r)")

và cả vế bên phải của biểu thức: Evaluate("row(r:r)") có ý nghĩa là thế nào ạ.

Em xin cảm ơn !

Xin lỗi bạn chủ thớt vì đã chen ngang vào đề tài của bạn để hỏi, có gì không phải mong bạn bỏ quá cho .

 

[taibalem0711]

Bạn Thương ơi. Mình có thể gửi file làm lương nhờ bạn làm giùm nút button để lọc dữ liệu được không?.

 

[taibalem0711]

Dạ xin cho em hỏi tác dụng của dòng lệnh dưới đây để làm gì vậy, vì em đã thử xóa nó đi thì chưa phát hiện thấy điều gì bất thường ạ:

Sheet3.Range("A6:A" & [B65000].End(3).Row).Value = Evaluate("row(r:r)")

và cả vế bên phải của biểu thức: Evaluate("row(r:r)") có ý nghĩa là thế nào ạ.

Em xin cảm ơn !

Xin lỗi bạn chủ thớt vì đã chen ngang vào đề tài của bạn để hỏi, có gì không phải mong bạn bỏ quá cho .

Ko sao?, Mình mò từ sáng giờ, chã hiểu gì hết. Đang potay.

 

[khuongvietphong]

Ko sao?, Mình mò từ sáng giờ, chã hiểu gì hết. Đang potay.

Bạn Copy đoạn code của tác giả rồi dán vào File bạn cần thôi, rồi chỉnh sửa lại 1 số cho phù hợp với File gốc của bạn là được mà

 

[hpkhuong]

Dạ xin cho em hỏi tác dụng của dòng lệnh dưới đây để làm gì vậy, vì em đã thử xóa nó đi thì chưa phát hiện thấy điều gì bất thường ạ:

Sheet3.Range("A6:A" & [B65000].End(3).Row).Value = Evaluate("row(r:r)")

và cả vế bên phải của biểu thức: Evaluate("row(r:r)") có ý nghĩa là thế nào ạ.

Em xin cảm ơn !

Xin lỗi bạn chủ thớt vì đã chen ngang vào đề tài của bạn để hỏi, có gì không phải mong bạn bỏ quá cho .

Đoạn này đánh số thứ tự cho cột STT đó em! Nghiên cứu cái Evaluate đi....

 

[khuongvietphong]

Đoạn này đánh số thứ tự cho cột STT đó em! Nghiên cứu cái Evaluate đi....

Cảm ơn anh, để em tìm hiểu thử coi đã rồi có gì không hiểu em sẽ mở topic khác để hỏi sau, tránh tình trạng hỏi không đúng chỗ rồi thành spam lung tung bài viết của bạn chủ thớt.
Cảm ơn mọi người !

 

[taibalem0711]

Mấy anh cho em hỏi?
Sheet6.[A5:E50000].Clear
Sheet1.[A3:E5552]

E50000 và E5552 là sao vậy. Địa chỉ ở đâu ra mà dài dữ vậy?

 

[khuongvietphong]

Mấy anh cho em hỏi?
Sheet6.[A5:E50000].Clear
Sheet1.[A3:E5552]

E50000 và E5552 là sao vậy. Địa chỉ ở đâu ra mà dài dữ vậy?

Với dữ liệu ít như trong File ví dụ của bạn thì không cần đến 50000 hay 5552 làm gì, nhưng nếu có nhiều dữ liệu ( số dòng dữ liệu lớn)

thì viết vậy cho chắc ăn .

 

[taibalem0711]

Mấy anh ơi giúp em cho chót luôn đi.
Em dựa vào mẫu đã chỉnh sửa lại Code để hiện thi được trong bảng lương Excel của em rồi. Nhưng mà không biết sao mấy ô mà có tiêu đề bị Merge thì cột ở dưới nó bị lỗi vậy. Trong khi cái code mấy anh làm thì không bị lỗi.
Đoạn code của em:

Sub Xep()
Sheet6.[A6:AT70].Clear
Sheet1.[A5:AT70].AdvancedFilter 2, Sheet6.[K1:L3], Sheet6.[A6:AT70], False
Sheet6.Range("A7:A" & [B65000].End(3).Row).Value = Evaluate("row(r:r)")
End Sub