Tự động chèn tổng số trang của Sheet1 vào Sheet2. (1 người xem)

[winderphong]

Mình đang làm một số công việc liên quan đến excel nhưng còn đang vướng một chút sau:
Mình muốn tại Sheet2 chèn một công thức hoặc một cách nào đó để lấy được tổng số trang của Sheet1. Ví dụ tại tệp đính kèm: Số trang sẽ là 2.
Có ai giúp mình với. Cảm ơn nhiều.

 

[Quang_Hải]

Mình đang làm một số công việc liên quan đến excel nhưng còn đang vướng một chút sau:
Mình muốn tại Sheet2 chèn một công thức hoặc một cách nào đó để lấy được tổng số trang của Sheet1. Ví dụ tại tệp đính kèm: Số trang sẽ là 2.
Có ai giúp mình với. Cảm ơn nhiều.

Bạn copy code này vào sheet2 là đáp ứng được yêu cầu của bạn đấy

Private Sub Worksheet_Activate()
Dim so_trang As Long
so_trang = Sheet1.HPageBreaks.Count + 1
[a28] = "Sheet '" & Sheet1.Name & "' có " & so_trang & " trang."
[b1] = so_trang
End Sub

 

[winderphong]

về chèn tổng số trang trong excel

Bạn copy code này vào sheet2 là đáp ứng được yêu cầu của bạn đấy

Private Sub Worksheet_Activate()
Dim so_trang As Long
so_trang = Sheet1.HPageBreaks.Count + 1
[a28] = "Sheet '" & Sheet1.Name & "' có " & so_trang & " trang."
[b1] = so_trang
End Sub

Mình cảm ơn bạn Quanghai1969 đã giúp mình, nhưng mình đã đã thử copy đoạn code đó nhưng không được.
ý của mình muốn viết một cái hàm nào đó ví dụ Tong_trang(NAME) thì khi ở một ví trí ô bất kỳ ở sheet 2 mình có thể dùng insert funtion fx=Tong_trang(NAME) trong đó NAME là tên của sheet cần tính tổng trang (có thể nhập vào bằng tay hoặc khi viết hàm xong thì click chuột cũng được). Mình đã cố thử sửa theo code của bạn mà không được.
Bạn giúp mình viết lại và hướng dẫn cụ thể các thao tác được không? Cảm ơn bạn nhiều.

 

[Quang_Hải]

Mình cảm ơn bạn Quanghai1969 đã giúp mình, nhưng mình đã đã thử copy đoạn code đó nhưng không được.
ý của mình muốn viết một cái hàm nào đó ví dụ Tong_trang(NAME) thì khi ở một ví trí ô bất kỳ ở sheet 2 mình có thể dùng insert funtion fx=Tong_trang(NAME) trong đó NAME là tên của sheet cần tính tổng trang (có thể nhập vào bằng tay hoặc khi viết hàm xong thì click chuột cũng được). Mình đã cố thử sửa theo code của bạn mà không được.
Bạn giúp mình viết lại và hướng dẫn cụ thể các thao tác được không? Cảm ơn bạn nhiều.

Bạn xem file coi đúng ý chưa

 

[winderphong]

Ôh. đúng rồi. Cảm ơn Anh Hải nhiều lắm. Em làm mãi mà không được. giờ thì OK rồi. Cảm ơn anh.

 

[Quang_Hải]

Ôh. đúng rồi. Cảm ơn Anh Hải nhiều lắm. Em làm mãi mà không được. giờ thì OK rồi. Cảm ơn anh.

Sau này muốn cảm ơn bài nào thì nhấn nút Cảm ơn là đủ rồi. Không nhấn nút cảm ơn thì giận giận không giúp nữa

 

[buocduongcung]

Sau này muốn cảm ơn bài nào thì nhấn nút Cảm ơn là đủ rồi. Không nhấn nút cảm ơn thì giận giận không giúp nữa

Thầy Hải mà giận giận thì lại càng muốn làm cho bớt giận. Thầy nhỉ