Anh Chị giúp em ngắt trang khi in trong Excel

Bùi Thúy Thúy

Thành viên thường trực
Tham gia ngày
2 Tháng bảy 2018
Bài viết
287
Được thích
35
Điểm
185
Tuổi
33
Em làm biên bản hồ sơ nghiệm thu, em muốn ngắt trang bằng một mã "BR"nào đó (tức là khi đánh mã "BR" như trong file em gửi ) thì khi in mã "BR"
đặt ở đâu thì biên bản bị ngắt trang ở đó! Các Thầy Cô, Anh Chị giúp e mới nhé, em cám ơn nhiều ạ!123.jpg
 

File đính kèm

nlbx

Thành viên hoạt động
Tham gia ngày
17 Tháng sáu 2018
Bài viết
177
Được thích
72
Điểm
30
Tuổi
30
Chôm trên mạng. bạn thử chạy xem
nhập vào ô AE1: A1:A300
300 là hàng lớn hơn hoặc bằng hàng cuối cùng dự liệu bảng
Sub InsertPageBreaksByKeyphrase()
Dim rangeSelection As Range
Dim cellCurrent As Range

Set rangeSelection =ActiveSheet.range(ActiveSheet.range("AE1").value)
ActiveSheet.ResetAllPageBreaks

For Each cellCurrent In rangeSelection
If cellCurrent.Value = "BR" Then
ActiveSheet.Rows(cellCurrent.Row + 1).PageBreak = _
xlPageBreakManual
End If
Next cellCurrent
End Sub
 

Bùi Thúy Thúy

Thành viên thường trực
Tham gia ngày
2 Tháng bảy 2018
Bài viết
287
Được thích
35
Điểm
185
Tuổi
33
Chôm trên mạng. bạn thử chạy xem
nhập vào ô AE1: A1:A300
300 là hàng lớn hơn hoặc bằng hàng cuối cùng dự liệu bảng
Sub InsertPageBreaksByKeyphrase()
Dim rangeSelection As Range
Dim cellCurrent As Range

Set rangeSelection =ActiveSheet.range(ActiveSheet.range("AE1").value)
ActiveSheet.ResetAllPageBreaks

For Each cellCurrent In rangeSelection
If cellCurrent.Value = "BR" Then
ActiveSheet.Rows(cellCurrent.Row + 1).PageBreak = _
xlPageBreakManual
End If
Next cellCurrent
End Sub
Em nhập vào chạy thấy báo lỗi ạ! có thể nhập và chạy giúp em vào file em đính kèm trên được không ạ!
 

nlbx

Thành viên hoạt động
Tham gia ngày
17 Tháng sáu 2018
Bài viết
177
Được thích
72
Điểm
30
Tuổi
30
teamview đc k mình xem cho
 

giaiphap

==(^o^)==
Tham gia ngày
12 Tháng ba 2007
Bài viết
5,238
Được thích
4,872
Điểm
860
lỗi vậy ạ! khi nào ngồi máy xem giúp em
Bạn sử dụng thử code này xem sao.
Mã:
Sub NgatTrang()
Dim Rng As Range
Dim cCell As Range
Sheet9.ResetAllPageBreaks
Set Rng = Sheet9.Range("A1:A1000").SpecialCells(xlCellTypeConstants)
If Rng Is Nothing Then Exit Sub
For Each cCell In Rng
    If UCase(cCell.Value) = "BR" Then cCell.Offset(1).PageBreak = xlPageBreakManual
Next cCell
End Sub
 

Bùi Thúy Thúy

Thành viên thường trực
Tham gia ngày
2 Tháng bảy 2018
Bài viết
287
Được thích
35
Điểm
185
Tuổi
33
Bạn sử dụng thử code này xem sao.
Mã:
Sub NgatTrang()
Dim Rng As Range
Dim cCell As Range
Sheet9.ResetAllPageBreaks
Set Rng = Sheet9.Range("A1:A1000").SpecialCells(xlCellTypeConstants)
If Rng Is Nothing Then Exit Sub
For Each cCell In Rng
    If UCase(cCell.Value) = "BR" Then cCell.Offset(1).PageBreak = xlPageBreakManual
Next cCell
End Sub
Vâng, E cám ơn Thầy.
 
Top Bottom