Tạo function lấy số trang của bảng tính (1 người xem)

[lehuong1409]

E đang cần một hàm để tính số trang của bảng tính hiện thời vì sổ của em phải hiển thị một dòng là "Sổ này có ??? trang" nhưng do máy ở công ty đang cài winxp nên e k sử dụng đc office 2013 để dùng hàm SHEET . Mong các anh chị em giúp đỡ ạ. E cảm ơn!

 

[quanluu]

E đang cần một hàm để tính số trang của bảng tính hiện thời vì sổ của em phải hiển thị một dòng là "Sổ này có ??? trang" nhưng do máy ở công ty đang cài winxp nên e k sử dụng đc office 2013 để dùng hàm SHEET . Mong các anh chị em giúp đỡ ạ. E cảm ơn!

em thử đọc bài này xem
http://www.mrexcel.com/forum/excel-...-code-count-number-print-pages-worksheet.html

 

[sealand]

Bạn tham khảo code ví dụ sau:

Sub Test()
Sheet1.Activate
MsgBox ExecuteExcel4Macro("GET.DOCUMENT(50)")

End Sub

 

[lehuong1409]

em thử đọc bài này xem
http://www.mrexcel.com/forum/excel-...-code-count-number-print-pages-worksheet.html

e vừa đọc bài này và thử vào file trước khi đọc bài của anh nhưng em cho nó thành function thì nó k tự động chạy mà cứ phải click đúp vào nó mới chạy

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

e có làm sai gì không ạ?

 

[lehuong1409]

Bạn tham khảo code ví dụ sau:

Sub Test()
Sheet1.Activate
MsgBox ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

Dạ em cảm ơn anh Sealand ạ. nhưng e muốn gán giá trị đó vào 1 ô cơ ạ. Để e tạo dòng diễn giải ý mà ạ

 

[quanluu]

e vừa đọc bài này và thử vào file trước khi đọc bài của anh nhưng em cho nó thành function thì nó k tự động chạy mà cứ phải click đúp vào nó mới chạy

e có làm sai gì không ạ?

function thi phải trả về kq chứ em
Function dem() as integer

 

[lehuong1409]

function thi phải trả về kq chứ em
Function dem() as integer

e cảm ơn anh. đc rồi ạ

 

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

e vừa đọc bài này và thử vào file trước khi đọc bài của anh nhưng em cho nó thành function thì nó k tự động chạy mà cứ phải click đúp vào nó mới chạy

e có làm sai gì không ạ?

Muốn nó tự động cập nhật phải thêm dòng Application.Volatile vào trước hàm

 

[lehuong1409]

Muốn nó tự động cập nhật phải thêm dòng Application.Volatile vào trước hàm

Dạ cháu cảm ơn chú ạ. cháu thêm cái này

Function dem() as integer

nó cũng hiển thị đúng ạ. Nhưng hàm này của cháu

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

Nếu muốn thêm Application.Volatile thì cháu phải thêm vào đâu ạ. cháu thêm trước cụm hàm kia không đc ạ. Mong chú chỉ giáo thêm ạ

 

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

Dạ cháu cảm ơn chú ạ. cháu thêm cái này

nó cũng hiển thị đúng ạ. Nhưng hàm này của cháu

Nếu muốn thêm Application.Volatile thì cháu phải thêm vào đâu ạ. cháu thêm trước cụm hàm kia không đc ạ. Mong chú chỉ giáo thêm ạ

Thì bạn cứ bỏ nó vô trên dòng code của bạn ấy,
Thử như sau:

Application.Volatile
dem = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)

 

[lehuong1409]

Thì bạn cứ bỏ nó vô trên dòng code của bạn ấy,
Thử như sau:

Dạ cháu cảm ơn ạ, cháu làm đc rồi ạ