Cách tự động kẻ dòng khi hét tràn trong 1 sheet (1 người xem)

[haôbe]

Em có 1 sheet chứa khoảng 100 trang in, xin hỏi cách khi hết trang thì tự động kẻ dòng

 

[befaint]

100 trang đó có hình xinh xinh nào không bạn?

 

[haôbe]

100 trang đó có hình xinh xinh nào không bạn?

Bảng tính thôi bác ơi

 

[befaint]

Bảng tính thôi bác ơi

Hình xinh xinh còn chưa có mà. Đợi bảng tính chắc lâu hơn.

 

[haôbe]

Hình xinh xinh còn chưa có mà. Đợi bảng tính chắc lâu hơn.

Chưa hiểu ý bác, bác có cách gì giúp được k

 

[Binbo2020]

Đơn giản là ban đầu cái bảng bạn như nào, giờ bạn thêm như nào và muốn thành như nào thì ít ra cũng chụp cái hình lên thì mới hiểu được ý bạn thế nào chứ

 

[Maika8008]

Chưa hiểu ý bác, bác có cách gì giúp được k

Bạn muốn giúp thì đưa file lên. Nếu ngại đưa dữ liệu thật thì sửa đổi lại trước khi đưa lên.

 

[haôbe]

Đơn giản là ban đầu cái bảng bạn như nào, giờ bạn thêm như nào và muốn thành như nào thì ít ra cũng chụp cái hình lên thì mới hiểu được ý bạn thế nào chứ

sorry câu hỏi chưa rõ nghĩa, ý em là làm sao tự động kẻ đường liền ở vị trí ngắt của các trang trong 1 sheet 100 trang

Bạn muốn giúp thì đưa file lên. Nếu ngại đưa dữ liệu thật thì sửa đổi lại trước khi đưa lên.

Cảm ơn anh ạ, ý em làm muốn tự động kẻ nét đường liền đậm (giống nét của khung) ở mỗi vị trí ngắt trang đối với các sheet theo file gửi kèm ạ

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

sorry câu hỏi chưa rõ nghĩa, ý em là làm sao tự động kẻ đường liền ở vị trí ngắt của các trang trong 1 sheet 100 trang

Cảm ơn anh ạ, ý em làm muốn tự động kẻ nét đường liền đậm (giống nét của khung) ở mỗi vị trí ngắt trang đối với các sheet theo file gửi kèm ạ

Có nghĩa là hết 1 trang lại tự động có khung, đối với tất cả các trang trong 1 sheet

 

[Binbo2020]

em làm muốn tự động kẻ nét đường liền đậm (giống nét của khung) ở mỗi vị trí ngắt trang đối với các sheet theo file gửi kèm ạ

Cái này thì sao phải tự động bạn xem trang 1 bị ngắt ở đâu thì kẻ đậm dòng đấy xong bôi đen từ đấy lên trên (trừ phần cố định ở đầu trang in) xong quét định dạng trang đấy bôi cho đến hết dữ liệu là được mà

 

[haôbe]

Cái này thì sao phải tự động bạn xem trang 1 bị ngắt ở đâu thì kẻ đậm dòng đấy xong bôi đen từ đấy lên trên (trừ phần cố định ở đầu trang in) xong quét định dạng trang đấy bôi cho đến hết dữ liệu là được mà

Em muốn nó cố định, nếu mình thêm hàng hoặc cột thì nó vận ở vị trí đó (bởi vì bảng tính cón phải sửa nhiều lần)

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

Em muốn nó cố định, nếu mình thêm hàng hoặc cột thì nó vận ở vị trí đó (bởi vì bảng tính cón phải sửa nhiều lần)

Mặt khác trong bảng tính nếu quét thì các định dạng trong bảng tính sẽ thay đổi hết thành 1 loại, vậy không được ạ

 

[Maika8008]

Em muốn nó cố định, nếu mình thêm hàng hoặc cột thì nó vận ở vị trí đó (bởi vì bảng tính cón phải sửa nhiều lần)

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

Mặt khác trong bảng tính nếu quét thì các định dạng trong bảng tính sẽ thay đổi hết thành 1 loại, vậy không được ạ

Bạn dùng đoạn code sau cho sheet DM nhé. Nó chỉ đúng với sheet đó thôi.

Sub Border_PrintPage()
Dim lastRow As Long, i As Long
Dim H As Double
Dim HPage As Double

lastRow = Range("A" & Rows.Count).End(xlUp).Row
'
HPage = 25 + 771  '796
Application.ScreenUpdating = False
For i = 1 To lastRow
    H = H + Range("A" & i).Height
    If H + Range("A4").Height >= HPage Then
        Range("A" & i - 1 & ":E" & i - 1).Borders(xlEdgeBottom).Weight = xlThin
        Range("A" & i & ":E" & i).Borders(xlEdgeTop).Weight = xlThin
        H = 0
        i = i - 1
    End If
Next
Application.ScreenUpdating = True
End Sub