Đánh số trang tự động trong trang mục lục của excel

[Đắc Khang]

Tôi có 01 file excel với nhiều hoặc chỉ 1 sheet. Sau khi hoàn thành phần nội dung (là 01 bản báo cáo gồm nhiều bảng tính chẳng hạn - tôi không thích chèn vào Word), tôi tạo 01 sheet riêng biệt để làm mục lục. Tên của các tiêu đề chính trong mục lục thì có thể làm rất thủ công là đánh máy lại cũng được (tùy theo mỗi người !).

Hiện nay tôi vẫn phải in ra trước, sau đó so lại số trang thực tế => nhập vào mục lục => in lại một lần nữa, vừa tốn công, tốn của mà không thật bảo đảm là đúng 100% (tam sao thì thất bản mà !!!)

Xin hỏi : trong cột số trang thực (sau khi in ra) của các tiêu đề này thì có cách nào gán tự động không? Khi đó chỉ in ra và ký thôi,
Nói cách khác cho đơn giản là làm sao hiển thị được vị trí của 01 cell bất kỳ nằm ở trang mấy trong sheet chuẩn bị in.

Cảm ơn mọi người trước, dù chỉ là tình cờ ghé ngang và đọc hết câu hỏi của tôi!

 

[hoa35ktxd]

Bạn thử dùng cách sau xem thế nào. Tôi chưa tìm được cách nào lấy nhanh hơn và cũng chẳng hiểu sao cái này chạy chậm thế.

Function getpagenumber() As Integer
    Dim I As Integer, P As Integer
    P = Worksheets.HPageBreaks.Count
    For I = 1 To P
        If ActiveSheet.HPageBreaks(I).Location.Row > ActiveCell.Row Then Exit For
    Next
    getpagenumber = I
End Function

 

[Đắc Khang]

Cảm ơn hoa35ktxd nha!
Xin lỗi, mình dốt về VBA, ... lắm!
Mình chỉ biết có hàm ...(...) nào thì cứ vậy mà sử dụng thôi. Còn tạo ra cái gì mới thì chịu thua vì mình chỉ tự học nên không có căn bản để mất (không phải bị mất căn bản đâu).
Bạn có thương thì thương cho trót! Hãy chỉ cho mình cách làm cụ thể hơn được không?!!!

 

[phonghuyen2011]

Cảm ơn hoa35ktxd nha!
Xin lỗi, mình dốt về VBA, ... lắm!
Mình chỉ biết có hàm ...(...) nào thì cứ vậy mà sử dụng thôi. Còn tạo ra cái gì mới thì chịu thua vì mình chỉ tự học nên không có căn bản để mất (không phải bị mất căn bản đâu).
Bạn có thương thì thương cho trót! Hãy chỉ cho mình cách làm cụ thể hơn được không?!!!

Mình cũng đang muốn kết quả như bạn, hiện giờ bạn có giải pháp chưa? Chỉ mình với nhé. Cám ơn