Cần trợ giúp về lấy số trang cho từng sheets

[Banotnt]

em có một file excel hơn 1000 sheets, cần trợ giúp code lấy số trang của sheets ghi vào phần: "mục lục văn bản có ........ tờ " (..... là số trang của sheets). mong ôị người giúp đỡ cảm ơn mọi người nhiều

 

[snow25]

em có một file excel hơn 1000 sheets, cần trợ giúp code lấy số trang của sheets ghi vào phần: "mục lục văn bản có ........ tờ " (..... là số trang của sheets). mong ôị người giúp đỡ cảm ơn mọi người nhiều

Cái kết quả đạt được sau khi chạy code đâu.Mà ghi vào đâu bạn.

 

[Banotnt]

Cái kết quả đạt được sau khi chạy code đâu.Mà ghi vào đâu bạn.

để mình gửi lại file, cụ thể là Cells "B9" Nội dung là Mục lục văn bản có: tờ, mình ví dụ cho sheets 01 rồi á

 

[huhumalu]

For i = 1 To Sheets.Count
    With Sheets(i)
        .Range("A1").Value = (.HPageBreaks.Count + 1) * (.VPageBreaks.Count + 1)
    End With
Next i

Bạn tự ứng dụng theo ý mình.
P/S: bạn này bị nhắc mấy lần về vụ thích dùng đao to búa lớn.
Cái việc bạn đang muốn là "lấy số trang tương ứng của từng sheets" thì liên quan gì đến cả ngàn sheets nhỉ ?

Function CountPrintPages()
    CountPrintPages = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
End Function

Bạn thêm code này vào file của mình và dùng công thức tại ô bất kỳ trong sheets (trang tính) dạng:

= CountPrintPages() &" tờ."

 

[Banotnt]

For i = 1 To Sheets.Count
    With Sheets(i)
        .Range("A1").Value = (.HPageBreaks.Count + 1) * (.VPageBreaks.Count + 1)
    End With
Next i

Bạn tự ứng dụng theo ý mình.
P/S: bạn này bị nhắc mấy lần về vụ thích dùng đao to búa lớn.
Cái việc bạn đang muốn là "lấy số trang tương ứng của từng sheets" thì liên quan gì đến cả ngàn sheets nhỉ ?

Function CountPrintPages()
    CountPrintPages = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
End Function

Bạn thêm code này vào file của mình và dùng công thức tại ô bất kỳ trong sheets (trang tính) dạng:

= CountPrintPages() &" tờ."

Thanks Fen, tại mình chỉ nêu chi tiết tình trạng file mình hiện tại thôi, cho đầy đủ thông tin vô tình nó dư thừa, lần sau mình sẽ cân nhắc, cảm ơn Fen nhiều