Hoàn thiện code tạo mẩu điểm cho sinh viên.

[pham van an]

Trên GPE đã có đoạn code copy sang sheets mới. Em đã áp dụng vào bảng điểm của em, Bây giờ em muốn khi tạo danh sách mới thì bảng tính tự lọc danh sách sinh viên(theo lớp mình chọn). vào bảng mới cho nhanh. e nhờ GPE giúp đỡ em. Em chân thành cám ơn!

http://www.mediafire.com/?222dvkb19hxe8cd

 

[viehoai]

Trên GPE đã có đoạn code copy sang sheets mới. Em đã áp dụng vào bảng điểm của em, Bây giờ em muốn khi tạo danh sách mới thì bảng tính tự lọc danh sách sinh viên(theo lớp mình chọn). vào bảng mới cho nhanh. e nhờ GPE giúp đỡ em. Em chân thành cám ơn!

http://www.mediafire.com/?222dvkb19hxe8cd

Hy vọng đúng ý bạn. Ban cho ý kiến nhé
Mình thay texbox trong form bạn bằng combobox để khi nhập tên lớp không bị sai

 

[pham van an]

Rất cám ơn "viehoai". Nhưng có 1 chút trục trặc nhỏ. Khi em chọn những lớp có danh sách lớn hơn 40 ví dụ "LD10AC" thì lại báo lỗi, em chỉnh code mà vẩn chưa được, nhờ viehoai và mọi người giúp em tiếp.

 

[viehoai]

Rất cám ơn "viehoai". Nhưng có 1 chút trục trặc nhỏ. Khi em chọn những lớp có danh sách lớn hơn 40 ví dụ "LD10AC" thì lại báo lỗi, em chỉnh code mà vẩn chưa được, nhờ viehoai và mọi người giúp em tiếp.

Mình nghĩ lớp 50 người là nhiều rồi. Bạn chèn thêm dòng trắng sheet "Mau" khoảng 200 dòng rồi thử lại nhé. Lỗi đó là mình xóa dòng trống còn lại

 

[pham van an]

Em vừa thử chèn thêm nhiều dòng thì ok. Nhưng có cách nào để bảng tính tự xóa các dòng trống phía dưới danh sách không? e thấy trên GPE có nhưng em làm ko được?

 

[viehoai]

Em vừa thử chèn thêm nhiều dòng thì ok. Nhưng có cách nào để bảng tính tự xóa các dòng trống phía dưới danh sách không? e thấy trên GPE có nhưng em làm ko được?

Mình chưa hiểu ý bạn hỏi ? Dòng trống dưới danh sách nào?
--------------------------
Ah, mình hiểu ý bạn rồi
Sau khi bạn chèn thêm dòng trống sheet "Mau" Thì bạn xác gạng lại dòng trống cuối cùng để thay Range("A60") (lúc đầu của mình là hàng thứ 60)

 

[concogia]

Em vừa thử chèn thêm nhiều dòng thì ok. Nhưng có cách nào để bảng tính tự xóa các dòng trống phía dưới danh sách không? e thấy trên GPE có nhưng em làm ko được?

Trong code của bạn Viethoai viết cho nút tạo lớp có đoạn

Sheets(ComboBox1.Value).Range(Sheets(ComboBox1.Value).Range("A60"), Sheets(ComboBox1.Value).Range("A60").End(xlUp).Offset(1)).EntireRow.Delete
'Thoat:
End Sub

Ở sheet Mau bạn xem dòng cuối cùng sau khi bạn chèn thêm dòng là bao nhiêu thì sửa vào cái số mình tô màu đỏ đó

 

[pham van an]

em hiểu nhưng ý em là: Giả sử ở sheet mau em cho 80 sinh viên, khi đủ 80 sinh viên thì ok, nhưng giả sử lớp có 50 sinh viên thì còn dư 30 ô trống phía dưới sinh viên cuối cùng, phải dùng thêm 1 bước là chọn và xoá đi.ý thứ 2 là ở cột thứ tự (cột A). khi em cho điểm vào thì các giá trị bị ## nên sửa lại dùm em luôn nhé

 

[viehoai]

Xem lại file đúng ý không nhé