Giúp Dùng VBA trích xuất dữ liệu sang các bảng dữ liệu nhỏ từ bảng tổng theo điều kiện (1 người xem)

[tonny jj]

Mình có 1 file danh sách các thí sinh và các điểm môn thi. Mình muốn sử dụng VBA để tạo ra bảng cho từng thí sinh với điểm các môn thi ra 1 bảng riêng biệt. Vì nếu cách dùng thủ công thì phải copy và paste giá trị (cụ thể trong file đính kèm). Nhưng nếu có nhiều thí sinh thì mất rất nhiều thời gian. Mong các cao thủ VBA giúp đỡ! Xin chân thành cảm ơn!

 

[befaint]

Mình có 1 file danh sách các thí sinh và các điểm môn thi. Mình muốn sử dụng VBA để tạo ra bảng cho từng thí sinh với điểm các môn thi ra 1 bảng riêng biệt. Vì nếu cách dùng thủ công thì phải copy và paste giá trị (cụ thể trong file đính kèm). Nhưng nếu có nhiều thí sinh thì mất rất nhiều thời gian. Mong các cao thủ VBA giúp đỡ! Xin chân thành cảm ơn!

Vấn đề sau khi có cái bảng như mong muốn đó thì làm gì tiếp?

 

[Ba Tê]

Mình có 1 file danh sách các thí sinh và các điểm môn thi. Mình muốn sử dụng VBA để tạo ra bảng cho từng thí sinh với điểm các môn thi ra 1 bảng riêng biệt. Vì nếu cách dùng thủ công thì phải copy và paste giá trị (cụ thể trong file đính kèm). Nhưng nếu có nhiều thí sinh thì mất rất nhiều thời gian. Mong các cao thủ VBA giúp đỡ! Xin chân thành cảm ơn!

Sao phải dùng thủ công mà không dùng công thức?
Bạn muốn xem, In ra từng phiếu thì mỗi lần muốn xem hoặc In cũng chỉ trên 1 màn hình hoặc trên 1 tờ giấy thôi mà.
Ví dụ bạn muốn mỗi trang có 6 phiếu điểm thì làm thế này, thay đổi số trang muốn xem hay In trong ô R1.
Bạn muốn thay đổi nhiều, ít phiếu hơn thì tương tự thế mà làm cho 1 trang.

 

[HieuCD]

bài nầy có thể cần in hàng loạt trang rồi cắt ra từng phiếu báo điểm
dùng code tạo toàn bộ phiếu

 

[tonny jj]

Lời đầu tiên em xin chân thành cảm ơn sự giúp đỡ của các bác. Tuy nhiên không biết lỗi do đâu em không thể down được file của bác Ba Tê (trình duyệt cứ chạy mãi rồi không truy cập tải file được). Còn file của bác HieuCD thì bị báo lỗi như hình. Các bác giúp em cách sửa lỗi ạ. Em xin chân thành cảm ơn ạ.

 

[HieuCD]

Lời đầu tiên em xin chân thành cảm ơn sự giúp đỡ của các bác. Tuy nhiên không biết lỗi do đâu em không thể down được file của bác Ba Tê (trình duyệt cứ chạy mãi rồi không truy cập tải file được). Còn file của bác HieuCD thì bị báo lỗi như hình. Các bác giúp em cách sửa lỗi ạ. Em xin chân thành cảm ơn ạ.

bạn thêm dòng lệnh:
On Error Resume Next

Sub GPE()
Dim Darr(), LastR As Long, i As Long, iR As Long, j As Byte, jC As Byte
On Error Resume Next
LastR = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row

 

[Ba Tê]

Lời đầu tiên em xin chân thành cảm ơn sự giúp đỡ của các bác. Tuy nhiên không biết lỗi do đâu em không thể down được file của bác Ba Tê (trình duyệt cứ chạy mãi rồi không truy cập tải file được). Còn file của bác HieuCD thì bị báo lỗi như hình. Các bác giúp em cách sửa lỗi ạ. Em xin chân thành cảm ơn ạ.

Tôi cũng không hiểu sao bạn tải file không được. Tôi gởi lại file này không nén WinRaR xem sao.

 

[tonny jj]

Em xin chân thành cảm ơn sự giúp đỡ của bác Ba Tê và bác HieuCD rất nhiều ạ! Chúc các bác có 1 ngày vui vẻ. Chân thành cảm ơn!

 

[Thong Hoang Tien 250691]

bác tonny jj rành về macro giúp e file này dc không, e bí quá k biết tìm sự giúp đỡ từ đâu

 

[tonny jj]

bác tonny jj rành về macro giúp e file này dc không, e bí quá k biết tìm sự giúp đỡ từ đâu

Sorry bạn vì mình lại không biết gì về VBA. Bạn có thể hỏi mọi người trên diễn đàn như bác Ba Tê hoặc bác HieuCD trên. Mọi người đều rất nhiệt tình và có kiến thức sâu & rộng về vấn đề này