Nhờ giúp chèn 1 dòng text vào dòng cuối cùng của 1 trang in bất kì.

[liro]

Trang in của em có số dòng bị thay đổi(theo 1 tham số tại ô K1). Em muốn chèn vào dòng cuối cùng của 1 trang in do em chọn, (không phải tất cả trang in) 1 dòng text cố định. Nhờ mọi người giúp đỡ hộ em. Em xin cám ơn.

 

[adua29]

Bạn thử dùng phương pháp này xem sao:
1. Đưa dòng text vào dòng cuối cùng của trang in (dòng dưới cùng ngoài vùng tác động của điều kiện ở ô K1)
2. Thêm một ô điều kiện nữa (VD: ô L1) là cho phép in, không in (ẩn, hiện) dòng cuối cùng
3. Đặt điều kiện cho dòng text cố định xuất hiện theo điều kiện tại ô L1
4. Dùng fillter để loại bỏ các dòng trống.

Nếu có thể bạn gửi file lên để mọi người cùng xử lý

 

[liro]

adual29 có thể gửi 1 file đính kèm để mình xem cho rõ ý hơn được ko.
Còn đây là file đính kèm của mình. Nhờ mọi người giúp đỡ.

 

[liro]

Không có ai rảnh giúp em 1 chút được sao.

 

[Hai Lúa Miền Tây]

Không có ai rảnh giúp em 1 chút được sao.

Tạo 1 sheet mới có cái vùng dữ liệu đó, xong copy vùng dữ liệu đó bỏ qua là được.

Sub Copy()
Dim d As Long
d = Sheets("AV(x)").Range("i65000").End(xlUp).Row + 1
Sheets("AV(x)").Range("a" & d & ":i65000").Clear
Sheets("Temp").Range("A1:B3").Copy Sheets("AV(x)").Cells(d + 8, 1)

End Sub

 

[liro]

Cám ơn anh Doom nhưng em muốn nó ở cuối cùng của trang in giống như 1 footer vậy, nếu copy vậy có lúc dòng văn bản đó bị nhảy sang trang in thứ 3. Em đang chuyển qua dùng excel 2007 để đặt footer riêng cho từng trang in có lẽ sẽ giải quyết được vấn đề này.

 

[Ếch Xanh]

Cám ơn anh Doom nhưng em muốn nó ở cuối cùng của trang in giống như 1 footer vậy, nếu copy vậy có lúc dòng văn bản đó bị nhảy sang trang in thứ 3. Em đang chuyển qua dùng excel 2007 để đặt footer riêng cho từng trang in có lẽ sẽ giải quyết được vấn đề này.

Bạn phải chừa chỗ để copy chứ! Nếu không thì nó sẽ nhảy sang page khác, mà nếu đã chừa hàng thì địa chỉ copy đã xác định thì việc copy sẽ dễ dàng thôi.

 

[adua29]

adual29 có thể gửi 1 file đính kèm để mình xem cho rõ ý hơn được ko.
Còn đây là file đính kèm của mình. Nhờ mọi người giúp đỡ.

Bạn xem mình dùng phương pháp xử lý như file gửi kèm có phù hợp với bạn không nhé

 

[liro]

Bạn phải chừa chỗ để copy chứ! Nếu không thì nó sẽ nhảy sang page khác, mà nếu đã chừa hàng thì địa chỉ copy đã xác định thì việc copy sẽ dễ dàng thôi.

Vấn đề là ở chỗ này. Trang văn bản này có số dòng động nên mình không thể để chừa chỗ copy cố định được.Ý mình muốn sao cho Sub copy đó tự tìm chỗ để copy vào cuối trang in giống như footer vậy. Nếu không nó lúc lên trên lúc xuống dưới . Các tờ in ra nhìn sẽ lộn xộn và xấu.
Nhân tiện cho mình hỏi Excel 2007 có thể tạo được menu mới để gán marco vào như Excel 2003 được không. Nếu có nhờ mọi người chỉ giùm. Mình lên google rồi nhưng ko thấy.

 

[liro]

Cám ơn bạn đã lưu tâm tới thắc mắc của mình. Nhưng cách này chưa giải quyết được vấn đề, khi số dòng bên trên thay đổi các dong này cũng vẫn sẽ chạy lên xuống theo số dòng trên ít hay nhiều. Vấn đề của mình là làm sao cho những dòng này luôn ở cuối cùng của trang in.

 

[adua29]

Với phương pháp và file mình hướng dẫn chắc chắn bạn sẽ làm được.
Mình cần hỏi một chút về file của bạn:
1. Đối với những nội dung quá dài bạn xử lý nội dung bị che khuất ở cuối dòng xuống dòng dưới như thế nào?
2. Những mục bạn để ....................... có kết nối dữ liệu với sheet nhập của bạn không
3. Nhiều nội dung trong file của bạn mình không thấy liên kết với sheet nhập
4. Nếu chỉ một trong những nội dung của bạn nhập thủ công (không liên kết với sheet nhập) thì bạn không bao giờ xác định được số dòng của trang in (số dòng trong trang in không phụ thuộc hoàn toàn vào biến K1) -> không đặt được nội dung bạn muốn ở cuối trang.
5. Một số dòng nội dung của bạn bị tràn trang vì vậy nếu luôn có số trang trắng tương ứng kèm theo số trang in không in trực tiếp được. Biến K1 của bạn lấy theo số biên bản nên để vào 1 ô trắng trong vùng biên bản và chọn kiểu chữ trắng, khi ra lệnh in sẽ không thấy biến này.
Bạn xem các ý kiến của mình, có gì trao đổi tiếp nhé!

 

[liro]

Với phương pháp và file mình hướng dẫn chắc chắn bạn sẽ làm được.
Mình cần hỏi một chút về file của bạn:
1. Đối với những nội dung quá dài bạn xử lý nội dung bị che khuất ở cuối dòng xuống dòng dưới như thế nào?
2. Những mục bạn để ....................... có kết nối dữ liệu với sheet nhập của bạn không
3. Nhiều nội dung trong file của bạn mình không thấy liên kết với sheet nhập
4. Nếu chỉ một trong những nội dung của bạn nhập thủ công (không liên kết với sheet nhập) thì bạn không bao giờ xác định được số dòng của trang in (số dòng trong trang in không phụ thuộc hoàn toàn vào biến K1) -> không đặt được nội dung bạn muốn ở cuối trang.
5. Một số dòng nội dung của bạn bị tràn trang vì vậy nếu luôn có số trang trắng tương ứng kèm theo số trang in không in trực tiếp được. Biến K1 của bạn lấy theo số biên bản nên để vào 1 ô trắng trong vùng biên bản và chọn kiểu chữ trắng, khi ra lệnh in sẽ không thấy biến này.
Bạn xem các ý kiến của mình, có gì trao đổi tiếp nhé!

1. Chỗ này mình chưa xử lý được chủ yếu trong lúc nhập liệu mình khống chế độ dài của dữ liệu. Bạn có cách nào để điều chỉnh việc nội dung bị che khuất này không?
2. Những chỗ ............. đó không kết nối với sheet nhập nó dùng để in ra rồi viết tay. Số lượng của những dòng đó là cố định.
Đây là nick yahoo liro_thien_than_tuyet_2710@yahoo.com của mình có gì bạn add vào để trao đổi tiện hơn. File này mình vẫn còn nhiều điều chưa ưng ý hy vọng được nhận nhiều ý kiến của bạn.