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

[Bùi Thúy Thúy]

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 ạ!

 

[nlbx]

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]

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]

Lô

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 ạ!

Lỗi ntn ạ. mình k đang dùng pc.

 

[Bùi Thúy Thúy]

Lô
Lỗi ntn ạ. mình k đang dùng pc.

lỗi vậy ạ! khi nào ngồi máy xem giúp em

 

[nlbx]

teamview đc k mình xem cho

 

[giaiphap]

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.

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]

Bạn sử dụng thử code này xem sao.

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.

 

[nlbx]

lỗi vậy ạ! khi nào ngồi máy xem giúp em

Do bạn hem có nhập vào ô AE1 như mình đạ nói. Lỗi là đúng rồi.

 

[Bùi Thúy Thúy]

Do bạn hem có nhập vào ô AE1 như mình đạ nói. Lỗi là đúng rồi.

hi cũng được rồi bạn nhé!