Dear trithietke,trithietke đã viết:
Tôi có cách chỉ giúp bạn rất đơn giản như sau:
Sub DSTrang()
Dim i As Byte, j As Byte
Dim cp As Byte
Dim trangdau As Variant
Dim Sh As Worksheet
Application.ScreenUpdating = False
lai:
trangdau = InputBox(Prompt:="Danh so trang", Title:="Nhap trang dau tien!", Default:="0")
If trangdau <= 0 Or IsNumeric(trangdau) = False Then
MsgBox "Nhap lai trang dau"
GoTo lai
End If
For Each Sh In ActiveWorkbook.Worksheets
Sh.Activate
With ActiveSheet.PageSetup
'.LeftFooter = ""
.CenterFooter = "&P"
'.RightFooter = ""
.FirstPageNumber = trangdau
'.PrintErrors = xlPrintErrorsDisplayed
End With
trangdau = trangdau + ExecuteExcel4Macro("Get.Document(50)")
Next
MsgBox "OK"
Application.ScreenUpdating = True
End Sub
hihi. cảm ơn bạn nhiều. mình làm được thành công rồi. chỉ cần 1 cái click chuột là tất cả các sheet sẽ được đánh số trang 1 cách tự động theo trình tự trong 1 workbook.
Trong diễn đàn có chuyên mục về lập trình đó bạn. Nói chung vọc mãi rồi cũng biết. Nếu muốn học bài bản thì bạn đăng ký tham gia các lớp học về VBA, trên diễn đàn cũng có đấy. Nếu muốn tự nghiên cứu thì mua sách về tự vọc thôi (gi gỉ gì gi cái gì về excel trên GPE có hết)
Các bạn đã hướng dẫn vậy là quá rõ rồi việc đánh số trang trong bảng tính hoặc toàn bộ các sheet Ban xem kỷ lại ý họ nói đã làm theo sẽ được. Còn tôi cũng muốn đánh số trang tự động nhưng lại khác tí chút. Tôi làm hoài cũng chưa được, Bạn nào làm được xin chỉ dùm. Là thế này mình làm sổ kế toán trên Excel cuối trang sổ có dòng quy định "sổ này có ... trang được đánh số từ trang số 1 đến trang số:..." Thật ra không phải là mình lười nhưng vì mình muốn nó tự động đếm số trang thì hay hơn vì bảng tính của mình tự động nên số trang cũng tuỳ thuộc vào dử liệu mà nó tìm được. Mình cũng thủ dùng macro ghi lại nhưng chưa được, hiện tại mình dùng công thức để tính nhưng hầu như không chính xác. Mong các bạn tạo giúp cái Macro này với. Xin cám ơn các bạn trước!
Trong Page Setup ---> Header/Footer --> Custom Footer: &[Pages] sẽ hiển thị tổng số trang, &[Page] hiển thị số thứ tự trang hiện tại!! Bạn chỉ cần đánh: sổ này có &[Pages] trang được đánh số từ trang số 1 đến trang số: &[Pages]
Bạn đọc kỹ và đã hiểu chưa mà đã la làng hỏi lại!
Bạn trả lời cho bài nào?
thế nếu muốn đánh từ sheet thứ 2 trở đi thì phải làm thế nào bạn =="
Xin hỏi có cách nào đánh: sổ này có ... trang được đánh số từ trang số 1 đến trang số:... ở một ô bất kỳ được không? (Không nằm trong footer)
Function Sotrang() As Long
Dim i As Long
Application.ScreenUpdating = False
ActiveSheet.PageSetup.PrintArea = "$A$1:" & ActiveCell.Address
i = ActiveSheet.HPageBreaks.Count
Sotrang = i + 1
ActiveSheet.PageSetup.PrintArea = ""
Application.ScreenUpdating = True
End FunctionCảm ơn bạn.Nhưng mà không chạy được bạn à, khi chạy lỗi #NAME?
Anh cho em hỏi một chút a!
Code thế này bạn! Bỏ cái trangdau đi là được!
Sub DSTrang()
Dim i As Byte, j As Byte
Dim cp As Byte
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In ActiveWorkbook.Worksheets
Sh.Activate
With ActiveSheet.PageSetup
'.LeftFooter = ""
.CenterFooter = "&P"
'.RightFooter = ""
.FirstPageNumber = 1
'.PrintErrors = xlPrintErrorsDisplayed
End With
Next
MsgBox "OK"
Application.ScreenUpdating = True
End Sub
A dùng Office bản tiếng việt hay tiếng A ạ! trước e dùng bản tiếng việt cũng bị vây, chuyển sang bản tiếng Anh thì k bị A nhé!
Vâng, E cám ơn Anh nhiều!
A cho e hỏi thêm chút bỏ trang đầu đi có nghĩa là trang đầu không đánh số Trang hay sao ạ!
Bạn đọc code và so sánh thì sẽ hiểu thôi!
Bạn thử code này xem sao.
Sub DSTrang()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In ActiveWorkbook.Worksheets
Sh.Activate
With ActiveSheet.PageSetup
.CenterFooter = "&P"
.FirstPageNumber = 0
.DifferentFirstPageHeaderFooter = True
End With
Next
MsgBox "OK"
Application.ScreenUpdating = True
End Sub
Trong thực tế thì không có trang 0, bác nhỉ?
Do yêu cầu của #41 là không đánh số trang cho trang đầu tiên.
Cám ơn anh ạ!
