In bảng tính theo biểu mẫu

[ntthu.831]

Tình hình là em mới đi làm sếp bắt làm thống kê số liệu bảng tính dài khoảng 200 trang. nhưng phải in theo mẫu quy định của công ty để sếp ký . biểu mẫu "em xin up hình phía dưới". mà trên tiêu đề lại có đánh số trang, nên không thể dùng các ứng dụng có sẵn trong excell. giờ em đang phải đang làm thành nhiều bảng tính nhỏ để in vừa theo biểu mẫu của công ty rất mất thời gian. nên em hỏi trên diễn đàn có anh chị nào có cách hay chỉ em giúp. em xin cảm ơn

View more random threads:

• Công thức tính tổng NXT theo điều kiện
• Xóa hết dữ liệu trong bảng tính với 1 lần click chuột
• Xin giúp đỡ về cài pass khi gởi phiếu lương bằng Mail Merge
• Cần nhờ giúp chuyển số liệu từ cột dọc sang hàng ngang
• Giúp mình về cách lấy dữ liệu này với
• Lấy số liệu không trùng
• Tách dãy chữ, số, sau dâu phẩy
• Cách dùng hàm if và left
• Nhờ các anh chị giúp bài báo cáo doanh số
• Giải bài tập bằng excel

[kimthua33]

minh da viet duoc code de co the chen tieu de vao bang tinh. minh xin up len de moi nguoi gop y lam code duoc hoan thien hon. mong moi nguoi nhiet tinh gop y

Sub TieuDeCuoiTrang()
On Error Resume Next
Application.ScreenUpdating = False
Dim myPage As HPageBreak
Dim nloop As Integer, npage As Integer, page As Integer, i As Integer
ActiveWindow.View = xlPageBreakPreview
page = InputBox("so trang")
i = InputBox("so dong cuoi trang")
npage = 1
Do


nloop = 1
For Each myPage In Sheet1.HPageBreaks
If nloop = npage Then
Selection.Copy
Rows(myPage.Location.Row - i).Insert xlShiftDown, True
Exit For
End If
nloop = nloop + 1
Next
npage = npage + 1
Loop While npage <> page


ActiveWindow.View = xlNormalView
'Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


phai chon vung tieu de ma cac ban chon chen vao nhe,