Cách xác định số trang và dòng cuối mỗi trang?

[sealand]

Mình muốn các bạn hướng dẫn giùm, trên 1 Sheet làm thế nào biết được các thông tin (Công thức hay VBA đều được):

-Nó có bao nhiêu trang khi in ra hoặc Printview.
-Dòng cuối mỗi trang là dòng nào (Dòng xác định động vì người dùng có thể thay đổi Print Setup.)
-Giả sử mình có 1 cột số suốt các trang in, làm thế nào để có tổng giá trị các dòng tren 1 trang và tông các dòng từ trang 1 đến hết trang đó.

Đây là vấn đề chung quá nên mình gửi tạm vào đây, nếu không phù hợp kính nhờ các Mod chuyển giùm.

 

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

Mình muốn các bạn hướng dẫn giùm, trên 1 Sheet làm thế nào biết được các thông tin (Công thức hay VBA đều được):

-Nó có bao nhiêu trang khi in ra hoặc Printview.
-Dòng cuối mỗi trang là dòng nào (Dòng xác định động vì người dùng có thể thay đổi Print Setup.)
-Giả sử mình có 1 cột số suốt các trang in, làm thế nào để có tổng giá trị các dòng tren 1 trang và tông các dòng từ trang 1 đến hết trang đó.

Đây là vấn đề chung quá nên mình gửi tạm vào đây, nếu không phù hợp kính nhờ các Mod chuyển giùm.

Anh chạy thử code sau để xác định dòng cuối của mỗi trang nhé

Sub Test()
On Error Resume Next
Application.ScreenUpdating = False
Dim myPage As HPageBreak
Dim dem As Integer
ActiveWindow.View = xlPageBreakPreview
With Sheets("Sheet1")
dem = .HPageBreaks.Count
For Each myPage In .HPageBreaks
    MsgBox "Co " & dem & " trang" & vbNewLine & "Dong cuoi cua trang la " & myPage.Location.Row - 1
Next
End With

ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub

 

[phamduylong]

Nếu xác định số trang in bằng VBA, bạn dùng code sau:

n = ExecuteExcel4Macro("Get.Document(50)")

 

[sealand]

Cám ơn phamduylong đã hướng dẫn, nhưng mình không biết dùng Code của bạn ra sao cả . Nói thật, Excel4Macro thì mình mít đặc.

 

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

Cám ơn phamduylong đã hướng dẫn, nhưng mình không biết dùng Code của bạn ra sao cả . Nói thật, Excel4Macro thì mình mít đặc.

Code sau:

n = ExecuteExcel4Macro("Get.Document(50)")

Nó sẽ đếm tất cả trang in hiện có.

 

[ThuNghi]

Cám ơn phamduylong đã hướng dẫn, nhưng mình không biết dùng Code của bạn ra sao cả . Nói thật, Excel4Macro thì mình mít đặc.

Em gởi file này, em lấy trên trên GPE, gồm công thức và code, trong đó có code của Thầy Voda. Theo em code đó OK.