Lập trình VBA để làm sổ quản lý sinh viên và bảo lưu kết quả học tập

[Thuyanhanoi]

- Kính chào các Anh chị trên diễn đàn./.
Ở chủ đề tự động copy dữ liệu từ các sheet về sheet tổng hợp và sheet học kỳ theo mã. Em đã được Anh Ba tê dùng VBA xây dựng giúp em. File chạy cho kết quả tuyệt vời. Em xin chân thành cảm ơn. Em rất mong được Anh Ba Tê và các Anh chi trên diễn đàn giúp em xây dựng thêm code VBA cho 2 sheet sổ quản lý sinh viên theo mẫu 62 (Trong đào tạo nghề) và bảo lưu, [tự động copy điểm tổng kết của các môn >=5.0 từ sheet tổng hợp vào bảng tổng hợp kết quả học tập các môn học được bảo lưu, khi sinh viên nào đó muốn bảo lưu kết quả học tập. (điểm ''tổng kêt'' từng môn ở cột K và cột V mục (kết quả học tập từng năm ở sheet sổ quản lý) được copy từ sheet tổng hợp
- Nếu các Anh chị có cách làm nào khác cũng xin chỉ giúp em với. Em xin cảm ơn rất nhiều.

 

[Ba Tê]

- Kính chào các Anh chị trên diễn đàn./.
Ở chủ đề tự động copy dữ liệu từ các sheet về sheet tổng hợp và sheet học kỳ theo mã. Em đã được Anh Ba tê dùng VBA xây dựng giúp em. File chạy cho kết quả tuyệt vời. Em xin chân thành cảm ơn. Em rất mong được Anh Ba Tê và các Anh chi trên diễn đàn giúp em xây dựng thêm code VBA cho 2 sheet sổ quản lý sinh viên theo mẫu 62 (Trong đào tạo nghề) và bảo lưu, [tự động copy điểm tổng kết của các môn >=5.0 từ sheet tổng hợp vào bảng tổng hợp kết quả học tập các môn học được bảo lưu, khi sinh viên nào đó muốn bảo lưu kết quả học tập. (điểm ''tổng kêt'' từng môn ở cột K và cột V mục (kết quả học tập từng năm ở sheet sổ quản lý) được copy từ sheet tổng hợp
- Nếu các Anh chị có cách làm nào khác cũng xin chỉ giúp em với. Em xin cảm ơn rất nhiều.

Bạn khoái merge cells quá, nhìn tối hù con mắt, chọn ô để gán giá trị vào bị "trớt quớt" hoài, nhìn thấy ô thứ 5 ai ngờ nó là cột I, híc!
Làm được 1 sheet Bao_luu gần "lòi con mắt" rồi, sheet So_quan_ly chờ người khác tiếp hơi thôi, tôi không dám nhìn vào nữa. Hay bạn làm bằng công thức thường đi cho biết thế nào là "ngó qua ngó lại, lác con mắt bên trái, lé con mắt bên phải" nhé.

 

[Thuyanhanoi]

- Làm nốt giúp em đi Anh. mọi lần em toàn phải copy thủ công mắt lòi hết rồi híc híc...
- Tại các dòng cần lấy thông tin (từ 8 đến 12 Anh thấy không cần merge cells cũng được).... hì hì (em không biết là merge cells thì làm Anh vất vả hơn)......
- Anh ơi cột trình độ trong file Bảo lưu Anh không cho lấy từ sheet trich ngang giúp em (bỏ trống chỗ đó anh nhé vì đây không phải là trình độ học vấn, chỗ đó chỉ cần cho bên sheet quan lý).
- Anh cho hiện lên các dòng từ 1 đến 6 giúp em vơi. Để em còn sửa được vì có người thì bảo lưu, người thì xin xác nhận các môn đã đạt vv......., ngày tháng cấp bảng kết quả xin bảo lưu em có thể sửa được. và mẫu này bạn nào đó áp dụng cho trường khác thì có thể sửa được tên Bộ .......; Trường ............
Nhờ Anh làm hộ mà còn yêu cầu ........hì hì........... đừng giận em anh nhé.

 

[Ba Tê]

- Làm nốt giúp em đi Anh. mọi lần em toàn phải copy thủ công mắt lòi hết rồi híc híc...
- Tại các dòng cần lấy thông tin (từ 8 đến 12 Anh thấy không cần merge cells cũng được).... hì hì (em không biết là merge cells thì làm Anh vất vả hơn)......
- Anh ơi cột trình độ trong file Bảo lưu Anh không cho lấy từ sheet trich ngang giúp em (bỏ trống chỗ đó anh nhé vì đây không phải là trình độ học vấn, chỗ đó chỉ cần cho bên sheet quan lý).
- Anh cho hiện lên các dòng từ 1 đến 6 giúp em vơi. Để em còn sửa được vì có người thì bảo lưu, người thì xin xác nhận các môn đã đạt vv......., ngày tháng cấp bảng kết quả xin bảo lưu em có thể sửa được. và mẫu này bạn nào đó áp dụng cho trường khác thì có thể sửa được tên Bộ .......; Trường ............
Nhờ Anh làm hộ mà còn yêu cầu ........hì hì........... đừng giận em anh nhé.

- Đã nói là không dám nhìn vào nó, khi nào "con mắt hết lé" mình sẽ thử xem sao.
- Bạn đã merge rồi, tôi đã làm rồi, bạn muốn tôi "lé thêm lần nữa" sao mà muốn không merge cũng được.
- Ô K14 bạn muốn để trống thì tìm trong code mấy chỗ nào có biến Tdo xóa nó đi. Cụ thể, xóa các chữ màu đỏ trong các dòng sau đây:

Dim Ten As String, Gtinh As String, NgSinh As Date, Nsinh As String, QQuan As String , Tdo As String
Nsinh = sArr(I, 7): QQuan = sArr(I, 8) : Tdo = sArr(I, 12)
.[D12].Value = QQuan : .[K14].Value = Tdo

- Các dòng từ 1 đến 6 không nhìn thấy chỉ là dùng Preeze Panes thôi mà, bạn không biết UnPreeze Panes sao.
Bạn thử đi, khi nào không được thì la lên.

 

[Thuyanhanoi]

Hì hì................. em sửa được rồi cảm ơn anh rất nhiều. Còn sheet: So_quan_ly giúp em nốt đi mà anh...........hic hic.........., Ở sheet này trên cột A và cột L em đã nhập sẵn các môn học M1... đến M43. Trên thực tế với nghề khác thì số lượng môn học này cũng khác nhau có nghề 43 môn, có nhề 50 môn , có nghề 35 môn. Anh cho tên môn tương ứng với kết quả giúp em. (theo mẫu 62 thì không có cột ghi M1; M2; ....... mà chỉ ghi tên môn và điểm nên em đã chỉnh lại) Em tải lai file Anh nhé.
Điểm kiểm tra dịnh kỳ của các môn học (M1;M2............) Đều nằm ở các cột Từ cột E đến cột J; ở bên so_quan_ly nó nằm ở các cột từ [C đến H và N đến S] Anh cho copy tất cả các vị trí này nhé. Xong cái So_quan_ly này phải mời Anh Ba Tê đi bồi bổ con mắt cho khỏi bị lác mới được hì hì hì .........../.

 

[Thuyanhanoi]

Anh Ba Tê ơi.
- Có vấn đề này Anh thay đổi giúp em chút xíu Anh nhé.
Ở sheet So_quan_ly em có comment (ghi chú mục xếp loại rèn luyện lấy trên sheet Tổng hợp là không hợp lý; Anh cho lấy ở trên sheet Tot_nghiep giùm em, lấy ở Cột M Anh nhé, chuyển ghi chú ở sheet đó sang cột N).
- Em cảm ơn Anh rất nhiều./.

 

[SA_DQ]

Các trang Mxy bạn đã khoá không cho xâm nhập vô các cột [B...D] nên chả thể làm gì

Bạn xem tạm 1 fần của vấn đề theo sự hiểu biết ít ỏi của mình





. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

 

[Thuyanhanoi]

Cảm ơn Anh AS-DQ - Giáo viên họ gửi cho em vậy mà.
- Hôm trước Anh Ba Tê Việt code BVA cho em vẫn dùng tốt mà, các file Mxy đó có cần mở khóa file đâu. Để em hỏi lại sau đó tải lại file anh nhé.
- File Anh viết thì em lại không sử dụng được code đã viết cho sheet tong hop và hoc kỳ hic hic ......
- Hơn nữa mỗi năm học em đẫ để sẵn các cột chỉ khoảng hơn 10 môn thôi. Anh cho tất 43 môn đó của em vào 1 năm rồi. Mỗi năm học em đang để tối đa là 16 môn như vậy hơn 40... môn phải trong thì phải phân bổ trong 3 năm.

 

[Thuyanhanoi]

- Em chào Anh Ba Tê; có cách gì để chat cùng Anh được nhỉ?. Được Anh giúp em cảm ơn rất nhiều.
-Xem thông tin về Anh mới biết Anh cũng là giáo viên.
- Em chào Thầy Ba Tê ạ./. Thầy Ba Tê ơi giúp em cái So_quan_ly đi, em đang cần....

 

[Ba Tê]

- Em chào Anh Ba Tê; có cách gì để chat cùng Anh được nhỉ?. Được Anh giúp em cảm ơn rất nhiều.
-Xem thông tin về Anh mới biết Anh cũng là giáo viên.
- Em chào Thầy Ba Tê ạ./.

Bạn cứ vào trang nhắn tin cá nhân trên GPE, nếu được thì mình liên lạc tiếp, chứ ở đây mà nói chuyện riêng thành Spam "gồi".

 

[Thuyanhanoi]

Xin lỗi Thầy Ba Tê và các Anh chị Trên diễn đàn rất mong Thầy cùng các Anh chị trên diễn đàn thông cảm và giúp em. Do kinh nghiệm còn kém, nên không lường hết được các vấn đề khi tải file nhờ Thầy và các Anh chị Trên diễn đàn giúp, lý do là:
- File Trich_ngang có sự thay đổi (Do file này em phải lấy từ bộ phận tuyển sinh, và họ cố định mẫu của họ; họ không thay đổi) do vậy file Trich_ngang của em lúc trước gửi Thầy và các Anh chi trên diễn đàn có chút thay đổi. Em Tải lại file chuẩn mẫu. Em Rất Mong được Thầy Ba Tê và các Anh chị trên diễn đàn giúp em. Em cảm ơn rất nhiều

 

[Ba Tê]

Xin lỗi Thầy Ba Tê và các Anh chị Trên diễn đàn rất mong Thầy cùng các Anh chị trên diễn đàn thông cảm và giúp em. Do kinh nghiệm còn kém, nên không lường hết được các vấn đề khi tải file nhờ Thầy và các Anh chị Trên diễn đàn giúp, lý do là:
- File Trich_ngang có sự thay đổi (Do file này em phải lấy từ bộ phận tuyển sinh, và họ cố định mẫu của họ; họ không thay đổi) do vậy file Trich_ngang của em lúc trước gửi Thầy và các Anh chi trên diễn đàn có chút thay đổi. Em Tải lại file chuẩn mẫu. Em Rất Mong được Thầy Ba Tê và các Anh chị trên diễn đàn giúp em. Em cảm ơn rất nhiều

Lỡ leo lên rồi, nhảy xuống sợ bị "Cọp ... ăn thịt", làm thí thí, còn mấy "dzụ" xếp loại gì đó của từng năm thì ... "chạy tét".

 

[Thuyanhanoi]

Cảm ơn Thầy Ba Tê rất nhiều.
Em đã kiểm tra thứ kết quả rất tuyệt, tuy nhiên có môt vài chỗ thầy sửa giúp em tại sheet so_Quanly với.
- Tại mục ngày tham gia Đảng CSVN vẫn chưa bắt được kết quả; tại mục ngày chính thức đã bắt được, nhưng trường hợp khi chưa được kết nạp thì cả hai ô ngày kết nạp và ngày chính thức phải bỏ trống (không để cho hiện lên 12:00:00 AM mà để ô trống)
- Tại mục II (KẾT QUẢ HỌC TẬP TỪNG NĂM)
+ Thầy cho liệt kê tên môn ở tất cả các Ô từ B25 đến B40 sau đó mới sang năm thừ 2 từ Ô M25 đến M40 sau đó đến nẳm thứ 3 ...... (như vậy số môn học trong ví dụ này được bố trí trong 3 năm, Ở năm thứ 3 vẫn còn dư 5 ô. Trường hợp em có thêm môn học Mxy... nào nữa thì lại được copy vào ô kế tiếp lần lượt đến hết)
+ Kết quả ở cột tổng kết môn Cột K và cột V thầy sửa lại giúp em. [Ví dụ với sinh viên có Mã HSSV 1KTA6003 ở môn thứ 10 (M10 Anh văn chuyên nhành) có kết quả thi lần 1 được 2 điểm có tổng kết lầm1 là 4.0; thi lần 2 được 5 điểm có tổng kết lần 2 là 5.3. Vậy ở Cột K và cột V chỉ lấy điểm tổng kết của thi lần nào có điểm lớn hơn (như vậy cột tổng kết lúc này là 5.3).
- Tại mục thứ III (Ô xếp loại rèn luyện) Em đã tạo thêm cột M tại sheet Tot_nghiep Thầy cho lấy kết quả rèn luyện từ cột này giúp em. Em tại lại file Thầy nhé.
Thầy ơi với file này được tối đa bao nhiêu sinh viên ạ?
Em xin chân Thành cảm ơn Thầy và các Anh chị trên diễn đàn rất nhiều./.

 

[Ba Tê]

Cảm ơn Thầy Ba Tê rất nhiều.
Em đã kiểm tra thứ kết quả rất tuyệt, tuy nhiên có môt vài chỗ thầy sửa giúp em tại sheet so_Quanly với.
....................
Thầy ơi với file này được tối đa bao nhiêu sinh viên ạ?
Em xin chân Thành cảm ơn Thầy và các Anh chị trên diễn đàn rất nhiều./.

1/ Các ngày vào Đảng... đã sửa lại được
2/ Liệt kê các môn trong từng năm thì bạn tự nhập bằng tay số TT vào cột A hoặc L, code sẽ dựa vào các số trong cột này để lấy dữ liệu (Ai biết năm nào bạn dạy học mấy môn mà làm)
3/ Kết quả tổng kết môn lộn xộn vì bạn khóa sheet, lại ẩn 1 cột K, làm "bực cả mình", lấy dữ liệu vào mảng muốn nhức cái đầu. (Nhìn thấy cột thứ 14, hóa ra là cột thứ 15 vì có 1 thằng ẩn cột.) Oải với bạn luôn.
4/ Thêm Xếp loại Rèn luyện vào ô C84 rồi.
5/ Có lẽ file này sẽ chạy được cho 64.990 SV
6/ Hy vọng là không thêm hoặc điều chỉnh cột, dòng nữa.

 

[Thuyanhanoi]

Thầy Ba Tê ơi. Trên cả tuyệt vời. Em cảm ơn thầy rất nhiều

Thầy Ba Tê ơi!. Em kiểm tra lại kết quả vẫn còn vướng chút xíu thầy sửa lại gíp em với.
- Tại mục II (KẾT QUẢ HỌC TẬP TỪNG NĂM) trong sheet So_quanly. với những Sinh viên phải thi hai lần (do thi lần 1 có kết quả <= 5) đối với tất cả các môn (Mxy...)
Kiểm tra lần 1 thì có tổng kết lần 1
Kiểm tra lần 2 thì có tổng kết lần 2.
Với trường hợp như vậy thì cứ lần thi nào có kết quả lớn hơn sẽ copy kết quả tổng kết của lần thi có kết quả lớn hơn đó vào cột tổng kết (Cột K; Cột V ) giúp em với.
Em xin chân thành cảm ơn./.

 

[Ba Tê]

Thầy Ba Tê ơi. Trên cả tuyệt vời. Em cảm ơn thầy rất nhiều

Thầy Ba Tê ơi!. Em kiểm tra lại kết quả vẫn còn vướng chút xíu thầy sửa lại gíp em với.
- Tại mục II (KẾT QUẢ HỌC TẬP TỪNG NĂM) trong sheet So_quanly. với những Sinh viên phải thi hai lần (do thi lần 1 có kết quả <= 5) đối với tất cả các môn (Mxy...)
Kiểm tra lần 1 thì có tổng kết lần 1
Kiểm tra lần 2 thì có tổng kết lần 2.
Với trường hợp như vậy thì cứ lần thi nào có kết quả lớn hơn sẽ copy kết quả tổng kết của lần thi có kết quả lớn hơn đó vào cột tổng kết (Cột K; Cột V ) giúp em với.
Em xin chân thành cảm ơn./.

Lỗi do copy xuống, khi chỉnh sửa lại bên trên không sửa bên dưới, bạn tự sửa nhé:
Thấy dòng này:

If tArr(sArr(I, 1), 13) <> "" Then dArr2(I, 10) = tArr(sArr(I, 1), 13)
End If
Next I
.[B25:K40].Value = dArr2 'Nam 1----------------------------------

Tìm xuống dưới sẽ thấy 'Nam 2----------------------------------
Sửa những số 12 thành 13

If tArr(sArr(I, 1), 12) <> "" Then dArr2(I, 10) = tArr(sArr(I, 1), 12)

Tiếp tục xuống đến Nam 3, Nam 4.
Xong, thử lại, Không đúng nữa thì "La lên" nữa.
Híc!
Mà nếu như vậy thì chỉ lấy điểm của lần 2 nếu có, lần 2 nhỏ hơn lần 1 vẫn lấy lần 2.
Ý bạn là lấy lần nào lớn hơn hay sao? Lần 2 nhỏ hơn lần 1 thì lấy lần 1? (Đâu có lấy kỳ vậy ta)

 

[Thuyanhanoi]

Em cảm ơn Thầy Ba Tê nhiều. Vâng đúng là vậy vì đã phải thi lần 2 mà lần 2 lại không đạt thì học lại mất rồi. Thầy hướng dẫn em đã sửa được. Em cảm ơn Thầy. Nếu có vấn đề gì em rất mong được Thầy và các anh chi trên diễn đàn giúp em.
Em xin cảm ơn./.

 

[dvh.hy.9902]

Đây là quản lý theo lớp hssv. Vậy thêm Thêm sheet mẫu nữa bảng kết quả học tập của cá nhân cấp cho các em khi ra trường thì hay. Số lượng môn cho nhập thủ công sẽ có kết quả của môn đó và kết quả thi tốt nghiệp, xếp hạng tốt nghiệp vào bẳn tổng hợp.

 

[minhtungph]

bạn tham khảo thử nhé

 

[minhtungph]

Khi nào có update sẽ cập nhật