Giúp code In phiếu điểm học sinh hàng loạt

Liên hệ QC

DNM

Thành viên mới
Tham gia
9/1/19
Bài viết
26
Được thích
1
Giới tính
Nữ
Chào các anh chị,
Em có một vấn đề sau không giải quyết được và search google cũng thấy. Mong các chị xem giúp.
Vấn đề của em như sau:
Em có sheet 1 chứa họ tên (30 học sinh), và 3 cột điểm của học sinh các môn Toán Lý Hóa. (để trên 1 dòng)
Giờ em muốn tạo Phiếu điểm cá nhân theo mẫu cho từng học sinh để in riêng phát cho cha mẹ học sinh nhưng nếu lấy dữ liệu thủ công hoặc tạo 30 mẫu khác nhau thì rất mất công. Em muốn tìm một giải pháp như sau:
Dùng VBA lấy dữ liệu ở sheet 1 theo từng dòng để đưa vào phiếu điểm. Mỗi dòng (ứng với mỗi học sinh) sẽ tạo ra một phiếu điểm. Cứ như vậy sẽ lần lượt tự động xuất ra cả 30 phiếu điểm cho 30 dòng dữ liệu của 30 học sinh. Các phiếu điểm này có thể xuất ra sheet mới nhưng cần được định dạng để in.
Tức là có thể thao tác 1 lần mà xuất luôn cho 30 học sinh, không phải làm từng học sinh.
Mong các anh chị giúp đỡ ạ.
FILE MẪU ĐÍNH KÈM
EM cảm ơn
 

File đính kèm

  • phieudiem.xlsx
    9.8 KB · Đọc: 18
Chào các anh chị,
Em có một vấn đề sau không giải quyết được và search google cũng thấy. Mong các chị xem giúp.
Vấn đề của em như sau:
Em có sheet 1 chứa họ tên (30 học sinh), và 3 cột điểm của học sinh các môn Toán Lý Hóa. (để trên 1 dòng)
Giờ em muốn tạo Phiếu điểm cá nhân theo mẫu cho từng học sinh để in riêng phát cho cha mẹ học sinh nhưng nếu lấy dữ liệu thủ công hoặc tạo 30 mẫu khác nhau thì rất mất công. Em muốn tìm một giải pháp như sau:
Dùng VBA lấy dữ liệu ở sheet 1 theo từng dòng để đưa vào phiếu điểm. Mỗi dòng (ứng với mỗi học sinh) sẽ tạo ra một phiếu điểm. Cứ như vậy sẽ lần lượt tự động xuất ra cả 30 phiếu điểm cho 30 dòng dữ liệu của 30 học sinh. Các phiếu điểm này có thể xuất ra sheet mới nhưng cần được định dạng để in.
Tức là có thể thao tác 1 lần mà xuất luôn cho 30 học sinh, không phải làm từng học sinh.
Mong các anh chị giúp đỡ ạ.
FILE MẪU ĐÍNH KÈM
EM cảm ơn
Sửa tiêu đề lại cho rõ ràng là "Giúp code In phiếu điểm học sinh hàng loạt".
 
  • Thích
Reactions: DNM
Upvote 0
Chào các anh chị,
Em có một vấn đề sau không giải quyết được và search google cũng thấy. Mong các chị xem giúp.
Vấn đề của em như sau:
Em có sheet 1 chứa họ tên (30 học sinh), và 3 cột điểm của học sinh các môn Toán Lý Hóa. (để trên 1 dòng)
Giờ em muốn tạo Phiếu điểm cá nhân theo mẫu cho từng học sinh để in riêng phát cho cha mẹ học sinh nhưng nếu lấy dữ liệu thủ công hoặc tạo 30 mẫu khác nhau thì rất mất công. Em muốn tìm một giải pháp như sau:
Dùng VBA lấy dữ liệu ở sheet 1 theo từng dòng để đưa vào phiếu điểm. Mỗi dòng (ứng với mỗi học sinh) sẽ tạo ra một phiếu điểm. Cứ như vậy sẽ lần lượt tự động xuất ra cả 30 phiếu điểm cho 30 dòng dữ liệu của 30 học sinh. Các phiếu điểm này có thể xuất ra sheet mới nhưng cần được định dạng để in.
Tức là có thể thao tác 1 lần mà xuất luôn cho 30 học sinh, không phải làm từng học sinh.
Mong các anh chị giúp đỡ ạ.
FILE MẪU ĐÍNH KÈM
EM cảm ơn
Nhớ sửa tiêu đề lại nhé.
Dùng thử File, lưu ý:
1/ Sửa tên lớp theo yêu cầu tại B4 của sheet In_Phieu.
2/ 1 trang A4 in 6 học sinh cùng 1 lúc.
3/ Muốn in 1 lần hết danh sách thì tại W2 gõ số 1 và W4 gõ số cuối cùng (theo số thứ tự của sheet Data).

Tôi không có máy in để thử, bạn tự kiểm tra lấy.
 

File đính kèm

  • PHIEU DIEM.xlsm
    23.6 KB · Đọc: 90
Upvote 0
Nhớ sửa tiêu đề lại nhé.
Dùng thử File, lưu ý:
1/ Sửa tên lớp theo yêu cầu tại B4 của sheet In_Phieu.
2/ 1 trang A4 in 6 học sinh cùng 1 lúc.
3/ Muốn in 1 lần hết danh sách thì tại W2 gõ số 1 và W4 gõ số cuối cùng (theo số thứ tự của sheet Data).

Tôi không có máy in để thử, bạn tự kiểm tra lấy.
Em cảm ơn rất nhiều ạ. Tuyệt vời rồi ạ
 
Upvote 0
Nhớ sửa tiêu đề lại nhé.
Dùng thử File, lưu ý:
1/ Sửa tên lớp theo yêu cầu tại B4 của sheet In_Phieu.
2/ 1 trang A4 in 6 học sinh cùng 1 lúc.
3/ Muốn in 1 lần hết danh sách thì tại W2 gõ số 1 và W4 gõ số cuối cùng (theo số thứ tự của sheet Data).

Tôi không có máy in để thử, bạn tự kiểm tra lấy.
bác cho em hỏi em muốn in 2 phiếu thì làm như nào ạ .
nghĩa muốn in 2 tờ giống nhau để lưu lại 1 bản ạ
em cảm ơn!
 
Upvote 0
Em có một vấn đề sau không giải quyết được và search google cũng ko giải quyết đc. Mong các chị xem giúp.
Vấn đề của em như sau:
Em có sheet 1 chứa họ tên (4 học sinh), và các cột điểm của học sinh các môn.
Giờ em muốn tạo Phiếu điểm cá nhân theo mẫu cho từng học sinh để in riêng phát cho học sinh nhưng nếu lấy dữ liệu thủ công hoặc tạo mẫu khác nhau (nếu có rất nhiều HS) thì rất mất công. Em muốn tìm một giải pháp như sau:
Em muốn lấy dữ liệu ở sheet 1 theo từng dòng để đưa vào bảng kết quả học tập. Mỗi dòng (ứng với mỗi học sinh) sẽ tạo ra bảng kết quả học tập. Cứ như vậy sẽ lần lượt tự động xuất ra cả 4 phiếu điểm cho 4 dòng dữ liệu của 4 học sinh. Các phiếu điểm này có thể xuất ra sheet mới nhưng cần được định dạng để in.
Tức là có thể thao tác 1 lần mà xuất luôn cho 4 học sinh, không phải làm từng học sinh.
Mong các anh chị giúp đỡ ạ.
FILE MẪU ĐÍNH KÈM
EM cảm ơn
 

File đính kèm

  • Phiếu điểm mẫu.xlsx
    41.9 KB · Đọc: 8
Lần chỉnh sửa cuối:
Upvote 0
Em có một vấn đề sau không giải quyết được và search google cũng thấy. Mong các chị xem giúp.
Vấn đề của em như sau:
Em có sheet 1 chứa họ tên (4 học sinh), và các cột điểm của học sinh các môn.
Giờ em muốn tạo Phiếu điểm cá nhân theo mẫu cho từng học sinh để in riêng phát cho học sinh nhưng nếu lấy dữ liệu thủ công hoặc tạo mẫu khác nhau (nếu có rất nhiều HS) thì rất mất công. Em muốn tìm một giải pháp như sau:
Em muốn lấy dữ liệu ở sheet 1 theo từng dòng để đưa vào bảng kết quả học tập. Mỗi dòng (ứng với mỗi học sinh) sẽ tạo ra bảng kết quả học tập. Cứ như vậy sẽ lần lượt tự động xuất ra cả 4 phiếu điểm cho 4 dòng dữ liệu của 4 học sinh. Các phiếu điểm này có thể xuất ra sheet mới nhưng cần được định dạng để in.
Tức là có thể thao tác 1 lần mà xuất luôn cho 4 học sinh, không phải làm từng học sinh.
Mong các anh chị giúp đỡ ạ.
FILE MẪU ĐÍNH KÈM
EM cảm ơn
Sao không xuất luôn ra pdf đi bạn
 
Upvote 0
Upvote 0
Web KT
Back
Top Bottom