Tính tổng cho nhiều trang in

Liên hệ QC

Robinhod

Thành viên mới
Tham gia
7/7/10
Bài viết
37
Được thích
5
Em có 1 vi dụ này nhờ các anh/chị chỉ dùm em nhé!
Em muốn in dữ liệu các nhiều trang trong Excel. Và mỗi trang có dòng tổng cộng và mang sang trang tiếp theo.
(Câu hỏi cụ thể trong file đính kèm)
 

File đính kèm

  • vidu.rar
    16.2 KB · Đọc: 21
Em có 1 vi dụ này nhờ các anh/chị chỉ dùm em nhé!
Em muốn in dữ liệu các nhiều trang trong Excel. Và mỗi trang có dòng tổng cộng và mang sang trang tiếp theo.
(Câu hỏi cụ thể trong file đính kèm)

Uh, đây cũng là vấn đề mình cũng muốn hỏi đó. Hi vọng sẽ nhanh có câu trả lời!
 
Upvote 0
Em có 1 vi dụ này nhờ các anh/chị chỉ dùm em nhé!
Em muốn in dữ liệu các nhiều trang trong Excel. Và mỗi trang có dòng tổng cộng và mang sang trang tiếp theo.
(Câu hỏi cụ thể trong file đính kèm)
Chạy code sau của bạn Đào Việt Cường nhé

Mã:
'Code nay la cua ban Dao Viet Cuong
Sub Tieude()
Application.ScreenUpdating = False
Dim myPage As HPageBreak
Dim lngPageCount As Long
ActiveWindow.View = xlPageBreakPreview
With Sheet1
For Each myPage In .HPageBreaks
    Sheet2.Range("Tong").Copy
    Rows(myPage.Location.Row - 1).Insert xlShiftDown, True
Next
End With
Application.CutCopyMode = False
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub
 

File đính kèm

  • TongCuoiTrang.rar
    27.2 KB · Đọc: 26
Upvote 0
Chạy code sau của bạn Đào Việt Cường nhé

Mã:
'Code nay la cua ban Dao Viet Cuong
Sub Tieude()
Application.ScreenUpdating = False
Dim myPage As HPageBreak
Dim lngPageCount As Long
ActiveWindow.View = xlPageBreakPreview
With Sheet1
For Each myPage In .HPageBreaks
Sheet2.Range("Tong").Copy
Rows(myPage.Location.Row - 1).Insert xlShiftDown, True
Next
End With
Application.CutCopyMode = False
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub

Anh dom ơi, sao mỗi khi chạy code thì các dòng cuối cùng lại thu nhỏ lại!? Cách xử lý cho nó dãn đều nhau ntn? Anh xử lý dùm nhé!
 
Upvote 0
Anh dom ơi, sao mỗi khi chạy code thì các dòng cuối cùng lại thu nhỏ lại!? Cách xử lý cho nó dãn đều nhau ntn? Anh xử lý dùm nhé!
Cái này là do định dạng dưới cuối cùng của bảng không giống với định dạng trong bảng tính (Nhỏ hơn) khi chèn thêm các dòng tiêu đề và tổng cộng, nó đẩy các dòng xuống những dòng nhỏ, cách đơn giản là bạn chỉnh toàn bộ sheet có chiều cao dòng giống nhau là được
 
Upvote 0
Cái này là do định dạng dưới cuối cùng của bảng không giống với định dạng trong bảng tính (Nhỏ hơn) khi chèn thêm các dòng tiêu đề và tổng cộng, nó đẩy các dòng xuống những dòng nhỏ, cách đơn giản là bạn chỉnh toàn bộ sheet có chiều cao dòng giống nhau là được

Anh dom ơi, dựa vào vidu của anh em đã làm 1 vidu mới. Nhưng không hiểu em đã làm sai chỗ nào mà nó cho kết quả không đúng?
Cả dòng cuối cùng của bảng sao nó không cộng tổng được?
Anh chỉ dùm nhé!
 

File đính kèm

  • vidu_01.rar
    93.9 KB · Đọc: 23
Lần chỉnh sửa cuối:
Upvote 0
Anh dom sửa luôn dùm em với!

PHP:
Sub Tieude()
Application.ScreenUpdating = False
Dim myPage As HPageBreak
Dim lngPageCount As Long
ActiveWindow.View = xlPageBreakPreview
With Sheet1
For Each myPage In .HPageBreaks
    Sheet2.Range("ngh").Copy
    Rows(myPage.Location.Row - 1).Insert xlShiftDown, True
Next
End With
Application.CutCopyMode = False
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Em dom ơi, anh xem lại cho em code của file vidu_01 nhé!
 
Upvote 0
Anh dom ơi, sao nó vẫn không được ah? Nó cứ nhảy ra cả ngoài trang in và cả trên vùng dữ liệu không cho kết quả ở cuối trang vậy?
 

File đính kèm

  • vidu_02_xem.rar
    26 KB · Đọc: 4
Lần chỉnh sửa cuối:
Upvote 0

File đính kèm

  • vidu_02_xem.xls
    93.5 KB · Đọc: 5
Upvote 0
Web KT
Back
Top Bottom