Xin giúp đỡ về cách tạo border ở cuối trang có đường nét theo ý muốn

[huycuongxd]

Mình có cái bảng biểu dài cả trăm trang, các đường kẻ viền ngoài cùng của bảng là nét liền, các đường khác là nét mảnh. Mình muốn ở cuối mỗi trang in nó là nét liền, nếu ngồi làm thủ công thi mất quá nhiều thời gian. Có cách nào Pro hơn ko? Các bạn chỉ giúp tôi với. Xin chân thành cảm ơn. Xem file đính kèm cho tiện nha.

 

[ndu96081631]

Thường thì việc này có thể làm bằng Conditional Formating, nhưng file bạn chẳng có dử liệu gì cả thì làm sao mà làm đây?
Ít ra bạn cũng nên đưa dử liệu vào để người ta nhận xét thế nào là 1 trang:
1> Trang cách trang bằng màu săc
2> Trang cách trang bằng ký hiệu gì đó
3> Hay...
Không thể giúp bạn được nếu không có 1 số định nghĩa chính xác về TRANG

 

[linhanhhn]

Tớ cho là sử dụng tính năng trong menu File > Page Setup > Sheet > Rows to repeat at top, chon dòng tiêu đề của bảng > enter > enter.
Tớ vẫn thường làm thế.

Còn nếu ấy không muốn lặp lại dòng tiêu đề ở đầu mỗi trang in thì tớ cũng chưa nghĩ ra cách nào.

 

[DOSNET]

Nếu mỗi trang có số dòng bằng nhau và có 38 dòng. DÙng Conditinonal Fomating.. với điều kiện

=MOD(ROW(),38)=0

Nếu thỏa mãn thì kẻ khung phía dưới. Định dạng cho toàn bảng tính

 

[huycuongxd]

Cảm ơn DOSNET... bảng biểu mình gửi chỉ là 1 trường hợp thôi, trường hợp số hàng trong các trang ko bằng nhau thì phải làm thế nào? Mong các bạn giúp cho.

 

[DOSNET]

Cảm ơn DOSNET... bảng biểu mình gửi chỉ là 1 trường hợp thôi, trường hợp số hàng trong các trang ko bằng nhau thì phải làm thế nào? Mong các bạn giúp cho.

Quay lại bài #2 của bác ndu , hê hê !

 

[voda]

Có lẽ dùng công thức gọn nhẹ hơn. Mình thử làm bằng code:

Sub Taobordertrang()
   Dim lRow As Long
   Dim nPage As Integer
   Dim varPB As Variant
      nPage = 1
   lRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        Application.ScreenUpdating = False
        Do While IsError(varPB) = False
            varPB = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & nPage & ")")
                If IsError(varPB) Then
                   Exit Do
                Else
                  Rows(varPB).Select
                     With Selection.Borders(xlEdgeTop)
                        .LineStyle = xlContinuous
                        .Weight = xlThin
                        .ColorIndex = xlAutomatic
                     End With
                  Rows(varPB - 1).Select
                    With Selection.Borders(xlEdgeBottom)
                        .LineStyle = xlContinuous
                        .Weight = xlThin
                        .ColorIndex = xlAutomatic
                   End With
                End If
               nPage = nPage + 1
          Loop
      Application.ScreenUpdating = True
End Sub

 

[anhtuan1066]

Thầy ơi!
Tác giã đồng ý với bài #4 thì em nghĩ chưa chắc TRANG ở đây là đang nói về TRANG IN đâu!

 

[voda]

Mình cũng không rõ ý tác giả thế nào nhưng đọc bài #1 thấy thế này:

Nguyên văn bởi huycuongxd
Mình muốn ở cuối mỗi trang in nó là nét liền

 

[maiacvn]

Thế còn muốn in phần cuối của trang thì làm thế nào hả các bác.
VD: Em có danh sách lớp khoảng 200 sv, muốn chia 6 phòng thi mà không cần ngắt trang, em muốn in phần thông tin cuối danh sách thi vào mỗi trang, các bác giúp nhé.