Hàm trả về số thứ tự trang/ tổng số trang. (2 người xem)

[nampq1969]

Chào các bạn, vui lòng hướng dẫn giúp hàm trả về số thứ tự trang & tổng số trang trong một sheet.
V/d: Hiện tại bạn đang xem thông tin trên trang số: xx/yy - Tôi đang tìm hàm trả về giá trị "xx" và "yy"
Cảm ơn,

 

[saobekhonglac]

Chào các bạn, vui lòng hướng dẫn giúp hàm trả về số thứ tự trang & tổng số trang trong một sheet.
V/d: Hiện tại bạn đang xem thông tin trên trang số: xx/yy - Tôi đang tìm hành cho giá trị "xx" và "yy"
Cảm ơn,

Ca này khó, ngồi xem học hỏi

 

[huuthang_bd]

Chào các bạn, vui lòng hướng dẫn giúp hàm trả về số thứ tự trang & tổng số trang trong một sheet.
V/d: Hiện tại bạn đang xem thông tin trên trang số: xx/yy - Tôi đang tìm hàm trả về giá trị "xx" và "yy"
Cảm ơn,

Bạn thử vầy xem.

Function PageInfo(ByVal Cll As Range) As String
Dim sPageSetup As String, Pages As Long, Page As Long
Application.Volatile
With Cll.Worksheet.PageSetup
    Pages = Cll.Worksheet.PageSetup.Pages.Count
    sPageSetup = .PrintArea
    If sPageSetup <> "" Then
        .PrintArea = Intersect(Cll.Worksheet.Range("A1:" & Cll.Address(0, 0)), Cll.Worksheet.Range(sPageSetup)).Address
    Else
        .PrintArea = "$A$1:" & Cll.Address
    End If
    Page = .Pages.Count
    .PrintArea = sPageSetup
    If Page <= Pages Then PageInfo = Page & "/" & Pages
End With
End Function

Lưu ý: Nhấn F9 mới cập nhật kết quả.

 

[nampq1969]

Bạn thử vầy xem.

Function PageInfo(ByVal Cll As Range) As String
Dim sPageSetup As String, Pages As Long, Page As Long
Application.Volatile
With Cll.Worksheet.PageSetup
    Pages = Cll.Worksheet.PageSetup.Pages.Count
    sPageSetup = .PrintArea
    If sPageSetup <> "" Then
        .PrintArea = Intersect(Cll.Worksheet.Range("A1:" & Cll.Address(0, 0)), Cll.Worksheet.Range(sPageSetup)).Address
    Else
        .PrintArea = "$A$1:" & Cll.Address
    End If
    Page = .Pages.Count
    .PrintArea = sPageSetup
    If Page <= Pages Then PageInfo = Page & "/" & Pages
End With
End Function

Lưu ý: Nhấn F9 mới cập nhật kết quả.

Cảm ơn bạn, mình đã thực hiện được