Làm thế nào để in dòng lặp lại ở cuối trang.

[bucom2486]

Có nghĩa là mình có bảng dữ liệu dài.
Và trong đó mình tách thành nhiều trang, mỗi trang sẽ lặp lại các bên ký vào cuối (nằm sát với dữ liệu cuối cùng của mỗi trang).
Củ thể hơn ví dụ giữ liệu chỉ 1/3 trang thì chữ ký nằm sát 1/3 trang, dữ liệu nhiều nằm gần hết trang thì chữ ký nằm ở cuối trang, nói chung phụ thuộc vào dữ liệu.
Mình đang cần cái này.

 

[be_09]

Có nghĩa là mình có bảng dữ liệu dài.
Và trong đó mình tách thành nhiều trang, mỗi trang sẽ lặp lại các bên ký vào cuối (nằm sát với dữ liệu cuối cùng của mỗi trang).
Củ thể hơn ví dụ giữ liệu chỉ 1/3 trang thì chữ ký nằm sát 1/3 trang, dữ liệu nhiều nằm gần hết trang thì chữ ký nằm ở cuối trang, nói chung phụ thuộc vào dữ liệu.
Mình đang cần cái này.

Góp ý cho bạn:
1/ Yêu cầu của bạn Excel không có sẳn mà phải sử dụng VBA, bạn nên mở Topic mới trong Box Lập trình với Excel.
2/ Nên đính kèm File với 1 sheet chứa dữ liệu và 1 sheet mẫu có tên các bên ký vào cuối, các thành viên mới hiểu mà giúp, chứ nêu khơi khơi như bài 21 là thua (chẳng ai giúp được).

 

[NGOC PHUONG 93]

Không có sẵn đâu bạn, có chăn là dùng VBA thôi.
Mình học cách này từ bạn Đào Việt Cường.

Sub TieuDeCuoiTrang()
On Error Resume Next
Application.ScreenUpdating = False
Dim myPage As HPageBreak
ActiveWindow.View = xlPageBreakPreview
With Sheet1
For Each myPage In Sheet1.HPageBreaks
    Sheet2.Range("tieude").Copy
    Rows(myPage.Location.Row - 1).Insert xlShiftDown, True
Next
End With
ActiveWindow.View = xlNormalView
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Bạn xem file nhé.

Anh ơi!

Copy code dán vào module trong VBA, điều chỉnh tên sheet phù hợp với file của em. Tạo macro chạy code bằng shape. tại vùng "tieude" em dùng define name cho vùng tiêu đề cần lặp lặp (em cũng đặt ở sheet 2), lưu tên file dưới dạng .xlsm nhưng vẫn không tạo đucợ tiêu đề cuối trang. Em còn sai sót chỗ nào vậy? Anh chỉ giúp em với!

Em cám ơn Anh!

Ngọc Phượng

 

[NGOC PHUONG 93]

Bạn đã làm dc chưa ?

Bạn ơi!

Copy code dán vào module trong VBA, điều chỉnh tên sheet phù hợp với file của mình. Tạo macro chạy code bằng shape. tại vùng "tieude" mình dùng define name cho vùng tiêu đề cần lặp lặp (mình cũng đặt ở sheet 2), lưu tên file dưới dạng .xlsm nhưng vẫn không tạo được tiêu đề cuối trang. Mình còn sai sót chỗ nào vậy? Bạn chỉ giúp mình với!

Mình cám ơn bạn!

Ngọc Phượng

 

[minhdaknong]

Mình thấy các bạn nói chung chung vậy thì rất khó, bạn gửi file đính kèm cụ thể lên, nõi rõ yêu cầu, sẽ có người giúp được bạn

Giúp Minh file này nhé:
Mình muốn lặp cái tựa như hình đính kèm phía dưới dòng cuối cùng, chỗ ngắt trang
cảm ơn nhiều

 

[be_09]

Giúp Minh file này nhé:
Mình muốn lặp cái tựa như hình đính kèm phía dưới dòng cuối cùng, chỗ ngắt trang
cảm ơn nhiều

Góp ý cho bạn:
1/ Đính kèm File mà không có dữ liệu giả định.
2/ Không có ví dụ cụ thể (gán ngay mỗi chỗ ngắt trang hay sao?).
3/ Nên đưa kết quả và diễn giải cụ thể, rõ ràng để mọi thành viên cùng hiểu.

 

[minhdaknong]

Góp ý cho bạn:
1/ Đính kèm File mà không có dữ liệu giả định.
2/ Không có ví dụ cụ thể (gán ngay mỗi chỗ ngắt trang hay sao?).
3/ Nên đưa kết quả và giải giải cụ thể, rõ ràngđể mọi thành viên cùng hiểu.

Mình xin đính kèm file, trong đó có dữ liệu, dòng tiêu đề cuối và kết quả cần làm
chân thành cảm ơn

 

[be_09]

Mình xin đính kèm file, trong đó có dữ liệu, dòng tiêu đề cuối và kết quả cần làm
chân thành cảm ơn

Bạn đưa File với kết quả nhưng sheet dữ liệu không không có cột tiêu chí là phòng, tổ..v..v...(cá nhân nào thuộc phòng, tổ nào???) nên bó tay (không làm được.

 

[minhdaknong]

Bạn đưa File với kết quả nhưng sheet dữ liệu không không có cột tiêu chí là phòng, tổ..v..v...(cá nhân nào thuộc phòng, tổ nào???) nên bó tay (không làm được.

Vấn đề Mình muốn chèn tiêu đề cuối thôi, còn dữ liêu ai thay đổi nội dung gì thì thay đổi, dữ liệu thì tùy mỗi người làm, đâu có liên quan gì tới cách làm!

 

[be_09]

Vấn đề Mình muốn chèn tiêu đề cuối thôi, còn dữ liêu ai thay đổi nội dung gì thì thay đổi, dữ liệu thì tùy mỗi người làm, đâu có liên quan gì tới cách làm!

Thông thường người ta dựa vào cột tiêu chí là phòng, tổ..v..v...hay của một cá nhân nào đó hoặc theo quy luật nào đó, còn cách làm của bạn không theo một quy luật nào cả thì các thành viên đành bó tay.

Nếu không theo một quy luật nào thì chỉ còn cách làm 1 cái sheet mẫu, ai muốn chọn copy > Paste và sửa đổi cái gì đó tùy ý trên sheet này, sau đó dựa vào kết quả trong sheet này lưu xuống như File của bạn.

 

[batman1]

Bạn đưa File với kết quả nhưng sheet dữ liệu không không có cột tiêu chí là phòng, tổ..v..v...(cá nhân nào thuộc phòng, tổ nào???) nên bó tay (không làm được.

Người ta cần làm cái cụ thể mà không dính dáng gì tới phòng, tổ, ban, ngành gì cả.

Nếu bạn nhấn File -> Print rồi xem preview thì bạn sẽ thấy mỗi trang là 1 bảng, và sau bảng là khoảng trống cho tới cuối trang giấy. Người ta muốn làm sao mà ở mỗi trang sau mỗi bảng là: ở bên trái là dòng chữ GIÁM ĐỐC, ở bên phải là 2 dòng chữ Hậu Giang, ngày 30 tháng 12 năm 2019 và Người lập.

Thay cho GIÁM ĐỐC, Hậu Giang, ngày 30 tháng 12 năm 2019 và Người lập thì có thể là các dòng chữ bất kỳ. Vd. là Ngày mai em đi, Biển nhớ tên em gọi về và Về đi em.

Người ta muốn chèn text bất kỳ sau mỗi bảng ở mỗi trang thôi. Text này không có gì dính dáng tới phòng, tổ, nhóm, đội, bộ phận, chi nhánh đâu.

 

[trai ho mo]

chào Bạn,
Theo cách của Bạn thì tôi đã làm được. Nhưng tôi có một vấn đề khác cần giúp. Đó là khi in danh sách cho từng lớp thì phải sửa lại chổ tên lớp và không tự động đánh số thứ tự. Mong các Bạn giúp đỡ. Mình hơi ngu nên cần giúp. Cám ơn trước

 

[xuongrongdat]

chào Bạn,
Theo cách của Bạn thì tôi đã làm được. Nhưng tôi có một vấn đề khác cần giúp. Đó là khi in danh sách cho từng lớp thì phải sửa lại chổ tên lớp và không tự động đánh số thứ tự. Mong các Bạn giúp đỡ. Mình hơi ngu nên cần giúp. Cám ơn trước

Như câu hỏi này của bạn thì bạn nên tạo 1 chủ đề mới nha, vì nó là vấn đề khác cái chủ đề này rồi.

Bạn xem file đính kèm để tham khảo cách làm này của mình nhé. Mình đánh STT bằng Subtotal và dò tên lớp bằng Lookup. Bạn xem bên sheet xuongrongdat á.

Thân!

 

[be_09]

chào Bạn,
Theo cách của Bạn thì tôi đã làm được. Nhưng tôi có một vấn đề khác cần giúp. Đó là khi in danh sách cho từng lớp thì phải sửa lại chổ tên lớp và không tự động đánh số thứ tự. Mong các Bạn giúp đỡ. Mình hơi ngu nên cần giúp. Cám ơn trước

Dùng thử File, bạn vào G3 sheet Loc_DanhSach chọn 1 lớp rồi xem kết quả.

 

[xuongrongdat]

Dùng thử File, bạn vào G3 sheet Loc_DanhSach chọn 1 lớp rồi xem kết quả.

Bác dùng VBA hay sao ạ?
Con thấy bị hiển thị sai dòng cuối danh sách á bác:

5427

12A16

Nguyễn Minh

An

Nữ

02/10/2003

11B10

Với cả mỗi lần con chọn 1 lớp để lọc thì thấy "nó" chạy mất 3s á, đó là nhanh hay chậm vậy bác?

 

[be_09]

Bác dùng VBA hay sao ạ?
Con thấy bị hiển thị sai dòng cuối danh sách á bác:

5427

12A16

Nguyễn Minh

An

Nữ

02/10/2003

11B10

Với cả mỗi lần con chọn 1 lớp để lọc thì thấy "nó" chạy mất 3s á, đó là nhanh hay chậm vậy bác?

1/ Trong File sử dụng VBA với sự kiện thay đổi tại Cell G3 của sheet Loc_DanhSach.
2/ Cột A sheet Tonghop có dùng hàm SUBTOTAL mà tôi quên là khi dùng hàm này thì khi Filter nó bỏ qua dòng cuối dẫn đến là nó Copy luôn dòng cuối sang. Giải pháp là Insert thêm 1 dòng trống rồi cho thêm dấu chấm vào A698 (tải lại File bài 34).

 

[trai ho mo]

Như câu hỏi này của bạn thì bạn nên tạo 1 chủ đề mới nha, vì nó là vấn đề khác cái chủ đề này rồi.

Bạn xem file đính kèm để tham khảo cách làm này của mình nhé. Mình đánh STT bằng Subtotal và dò tên lớp bằng Lookup. Bạn xem bên sheet xuongrongdat á.

Thân!

Cám ơn bạn nhiều.

Bài đã được tự động gộp: 2/3/21

Dùng thử File, bạn vào G3 sheet Loc_DanhSach chọn 1 lớp rồi xem kết quả.

Cám ơn bạn nhiều

 

[trai ho mo]

1/ Trong File sử dụng VBA với sự kiện thay đổi tại Cell G3 của sheet Loc_DanhSach.
2/ Cột A sheet Tonghop có dùng hàm SUBTOTAL mà tôi quên là khi dùng hàm này thì khi Filter nó bỏ qua dòng cuối dẫn đến là nó Copy luôn dòng cuối sang. Giải pháp là Insert thêm 1 dòng trống rồi cho thêm dấu chấm vào A698 (tải lại File bài 34).

Bạn ơi, cách làm của Bạn rất ok nhưng chỉ còn vấn đề nhỏ là: khi in ds 1 lớp thì tổng số học sinh đúng nhưng tổng số học sinh nữ thì lại không đúng. Mong Bạn giúp.
xin lỗi vì đã làm phiền.

 

[be_09]

Bạn ơi, cách làm của Bạn rất ok nhưng chỉ còn vấn đề nhỏ là: khi in ds 1 lớp thì tổng số học sinh đúng nhưng tổng số học sinh nữ thì lại không đúng. Mong Bạn giúp.
xin lỗi vì đã làm phiền.

1/ Nội quy quy định bài viết phải sử dụng tiếng Việt có dấu, cần được ghi rõ nghĩa (bạn không nên viết tắt).
2/ Hàm là trong File của bạn, tôi chỉ giúp code.
3/ Tôi đã sửa lại các hàm trong sheet Tonghop để đáp ứng với kết quả Filter. Bạn tải lại File nhé.

 

[Phúc Tiên Sinh]

Không có sẵn đâu bạn, có chăn là dùng VBA thôi.
Mình học cách này từ bạn Đào Việt Cường.

Sub TieuDeCuoiTrang()
On Error Resume Next
Application.ScreenUpdating = False
Dim myPage As HPageBreak
ActiveWindow.View = xlPageBreakPreview
With Sheet1
For Each myPage In Sheet1.HPageBreaks
    Sheet2.Range("tieude").Copy
    Rows(myPage.Location.Row - 1).Insert xlShiftDown, True
Next
End With
ActiveWindow.View = xlNormalView
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Bạn xem file nhé.

Anh chị ơi! Em cũng đang gặp vấn đề tương tự. Em cần giúp đỡ với ạ! Em muốn phần cuối cùng và chữ ký hiển thị ở tất cả các trang in. Em xin nhờ giúp đỡ với ạ