MACRO với hàm HLOOKUP (9 người xem)

[nguyen6571gpex]

Chào ACE!
Tôi có một file trong đó có Sheet chứa dữ liệu muốn dò tìm dữ liẹu đó sang Sheet mới có cấu trúc khác. Vì không biết VBA nên dùng HLOOKUP từng cell sẽ rất lâu. Mong ACE giúp đỡ! Cảm ơn

 

[vu_tuan_manh_linh]

Chào ACE!
Tôi có một file trong đó có Sheet chứa dữ liệu muốn dò tìm dữ liẹu đó sang Sheet mới có cấu trúc khác. Vì không biết VBA nên dùng HLOOKUP từng cell sẽ rất lâu. Mong ACE giúp đỡ! Cảm ơn

Dữ liệu của bạn khá khoa học, nên việc dùng hàm là ổn rồi! Bạn xem file này nhé!!. Chọn tên lớp theo list trong sheet Tong hop.

 

[Quang_Hải]

Chào ACE!
Tôi có một file trong đó có Sheet chứa dữ liệu muốn dò tìm dữ liẹu đó sang Sheet mới có cấu trúc khác. Vì không biết VBA nên dùng HLOOKUP từng cell sẽ rất lâu. Mong ACE giúp đỡ! Cảm ơn

Muốn VBA thì có VBA đây. Không được xóa cột nhá

 

[nguyen6571gpex]

Cảm ơn tất cả các bạn!

 

[tanhoai2002]

Muốn VBA thì có VBA đây. Không được xóa cột nhá

Quá lợi hại! Nhưng bạn giải thích dùm mình đoạn này được không: Dim Lop(), i, j, C, R, RR. các chữ này có ý nghĩa gì và cho i = 1 to 5 để làm gì? mình chưa hiểu kịp mong bạn giải thích giúp

 

[Quang_Hải]

Quá lợi hại! Nhưng bạn giải thích dùm mình đoạn này được không: Dim Lop(), i, j, C, R, RR. các chữ này có ý nghĩa gì và cho i = 1 to 5 để làm gì? mình chưa hiểu kịp mong bạn giải thích giúp

Đó là các biến do mình tự tạo ra, muốn tạo gì cũng được, không bắt buộc.
Đúng ra thì phải khai báo đàng hoàng là i as byte, j as long.... gì gì đó, nhưng mình lười lắm
Khi nào bạn hiểu hết mấy cái biến đó thì cũng lợi ít mà hại nhiều vậy đó

 

[Cá ngừ F1]

Đó là các biến do mình tự tạo ra, muốn tạo gì cũng được, không bắt buộc.
Đúng ra thì phải khai báo đàng hoàng là i as byte, j as long.... gì gì đó, nhưng mình lười lắm
Khi nào bạn hiểu hết mấy cái biến đó thì cũng lợi ít mà hại nhiều vậy đó

Theo a Hải thì code ngắn đi trông thấy, tốc độ cũng rầm rầm luôn..

 

[nguyen6571gpex]

Chào cả nhà, Chào bạn quanghai1969
Bạn giúp mình file TKB có VBA rất tuyệt vời rồi (Bài #3), nay quay lại nhờ bạn hoặc các bạn trên diễn đàn chút nữa:
Khi mình chạy Buttom để tách TKB ra nhưng định dạng boder của TKB chưa được thẩm mĩ. Mình đã vào vùng H1:M12 để định dạng bản mẫu nhưng không được mà cứ đi sửa thủ công từng lớp thấy lâu. Mong các bạn sửa dùm code để được cả phần định dạng boder. Cảm ơn!

 

[nguyen6571gpex]

Bạn quanghai1969 và các thành viên giúp tôi với!!!!!!!!!!!!!

 

[monkey1992]

chào bạn vu_tuan_manh_linh bạn có thể chỉ cho mình cách tạo tên lớp theo list được không ạ!
cảm ơn bạn nhiều!!!

 

[Quang_Hải]

Chào cả nhà, Chào bạn quanghai1969
Bạn giúp mình file TKB có VBA rất tuyệt vời rồi (Bài #3), nay quay lại nhờ bạn hoặc các bạn trên diễn đàn chút nữa:
Khi mình chạy Buttom để tách TKB ra nhưng định dạng boder của TKB chưa được thẩm mĩ. Mình đã vào vùng H1:M12 để định dạng bản mẫu nhưng không được mà cứ đi sửa thủ công từng lớp thấy lâu. Mong các bạn sửa dùm code để được cả phần định dạng boder. Cảm ơn!

Code sửa lại thế này, thì bạn sẽ có thể định dạng mẫu tại H1:M12

Sub TachTKB()
Application.ScreenUpdating = False
Dim Lop(), i, j, C, R, RR
With Sheet1
    Lop = .Range(.[C3], .[V3]).Value
    For j = 1 To UBound(Lop, 2)
        Sheet2.[J3] = Lop(1, j)
        C = 9: R = 5
        For i = 1 To 5
            .Cells(R, j + 2).Resize(8).Copy
            Sheet2.Cells(5, C).PasteSpecial 3
            R = R + 8: C = C + 1
        Next
        Sheet2.[H1:M12].Copy Sheet2.Cells(RR + 1, 1)
        RR = RR + 14
    Next
End With
Application.ScreenUpdating = True
End Sub

 

[nguyen6571gpex]

Chào ACE trên DD_GPE!
Được mọi người giúp đỡ file chạy rất tốt và hiệu quả (#3). Song do đơn vị thường xuyên thay đổi con người, nên bình quân mỗi tháng phải xếp lại 1 lần TKB (8 tháng 7 lần) nên mong ACE giúp thêm một phần nữa (nội dung trong File ở sheet Tung_GV chuyen). Trân trọng cảm ơn!

 

[nguyen6571gpex]

Không bạn nào giúp tôi với!

 

[nguyen6571gpex]

Vì "mù" VBA nên không xử lí được mong các bạn giúp tôi với. Trân trọng cảm ơn!

 

[giangleloi]

Vì "mù" VBA nên không xử lí được mong các bạn giúp tôi với. Trân trọng cảm ơn!

Ít nhất cũng phải cho biết giáo viên nào dạy môn học nào thì mới sắp được chứ. Chứ không thì biết hay không biết cũng "mù" như nhau.

 

[nguyen6571gpex]

Cảm ơn bạn giangleloi đã quan tâm. Sheet gốc (sheet so7 luôn không thay đổi số cột, số dòng) GV tiểu học có thể dạy nhiều môn và có thể thay đổi môn mỗi khi xếp lại. Mình cần lọc theo tên GV (Toàn, Anh, Cương,...,A,B,C trong vùng W3 đến AK3 của sheet so7) chuyển về sheet Tung_GV chuyen mỗi người một TKB xem ở từng buổi, từng tiết học họ dạy tại lớp nào. Cái căn cứ để tìm là tên họ được kèm theo sau dấu gạch ngang của môn dạy (còn môn dạy có thể thay đổi hoặc một GV dạy nhiều môn. VD Toàn dạy: M.Thuật1-Toàn, M.Thuật 3-Toàn, T.Công3-Toàn, M.Thuật4-Toàn). Chỉ cần lọc những GV có tên trong vùng W3 đến AK3 thôi. Lưu ý các tên này có thể thay đổi. Mong bạn giúp nhé. Cảm ơn nhiều!
Nghĩa là: Lọc xem những GV có tên trong vùng W3:AK3 (Sheet so7) trong tuần có tiết dạy tại lớp nào? Còn những môn học không có tên GV đi kèm sau dấu gạch ngang là của GV chủ nhiệm lớp thì không cần lọc.

 

[Ba Tê]

Cảm ơn bạn giangleloi đã quan tâm. Sheet gốc (sheet so7 luôn không thay đổi số cột, số dòng) GV tiểu học có thể dạy nhiều môn và có thể thay đổi môn mỗi khi xếp lại. Mình cần lọc theo tên GV (Toàn, Anh, Cương,...,A,B,C trong vùng W3 đến AK3 của sheet so7) chuyển về sheet Tung_GV chuyen mỗi người một TKB xem ở từng buổi, từng tiết học dạy tại lớp nào. Cái căn cứ để tìm là tên họ được kèm theo sau dấu gạch ngang của môn dạy (còn môn dạy có thể thay đổi hoặc một GV dạy nhiều môn. VD Toàn dạy: M.Thuật1-Toàn, M.Thuật 3-Toàn, T.Công3-Toàn, M.Thuật4-Toàn). Chỉ cần lọc những GV có tên trong vùng W3 đến AK3 thôi. Lưu ý các tên này có thể thay đổi. Mong bạn giúp nhé. Cảm ơn nhiều!

Hông phải giangleloi làm được hông?

 

[nguyen6571gpex]

Rất tuyệt! Cảm ơn bạn Ba Tê rất rất rất nhiều nhé!
Nếu bạn thêm giúp vào nut Button cái lệnh xóa (Như ở sheet Tung_lop) thì càng tuyệt vời hơn.
Một lần nữa trân trọng cảm ơn Ba Tê, cảm ơn tất cả các bạn!

 

[concogia]

Rất tuyệt! Cảm ơn bạn Ba Tê rất rất rất nhiều nhé!
Nếu bạn thêm giúp vào nut Button cái lệnh xóa (Như ở sheet Tung_lop) thì càng tuyệt vời hơn.
Một lần nữa trân trọng cảm ơn Ba Tê, cảm ơn tất cả các bạn!

Tên GV ở bảng xếp & ở vùng [AN3:BB4] phải hoàn toàn giống nhau, hông thôi đừng nói Ba Tê chứ Bốn, Năm Tê tìm cũng hông ra đâu ( trong bài là GV Trang dạy nhạc)
Híc

 

[nguyen6571gpex]

Tên GV ở bảng xếp & ở vùng [AN3:BB4] phải hoàn toàn giống nhau, hông thôi đừng nói Ba Tê chứ Bốn, Năm Tê tìm cũng hông ra đâu ( trong bài là GV Trang dạy nhạc)
Híc

Theo tôi hiểu tên trong J1:J15 (sheet Tung_GVchuyen) mới là cái gốc để dò tìm thì nhất thiết phải thống nhất với tên trong bảng xếp có đúng không bạn?