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

Robinhod

Thành viên mới
Tham gia ngày
7 Tháng bảy 2010
Bài viết
37
Được thích
5
Điểm
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)
 

File đính kèm

yome

GPE thật tuyệt vời
Tham gia ngày
9 Tháng năm 2008
Bài viết
347
Được thích
113
Điểm
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)
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!
 

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆
Thành viên BQT
Administrator
Tham gia ngày
18 Tháng ba 2008
Bài viết
7,363
Được thích
14,246
Điểm
1,910
Nơi ở
Hóc Môn - Tp.HCM
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

yome

GPE thật tuyệt vời
Tham gia ngày
9 Tháng năm 2008
Bài viết
347
Được thích
113
Điểm
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é!
 

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆
Thành viên BQT
Administrator
Tham gia ngày
18 Tháng ba 2008
Bài viết
7,363
Được thích
14,246
Điểm
1,910
Nơi ở
Hóc Môn - Tp.HCM
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
 

yome

GPE thật tuyệt vời
Tham gia ngày
9 Tháng năm 2008
Bài viết
347
Được thích
113
Điểm
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

Lần chỉnh sửa cuối:

yome

GPE thật tuyệt vời
Tham gia ngày
9 Tháng năm 2008
Bài viết
347
Được thích
113
Điểm
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:

Robinhod

Thành viên mới
Tham gia ngày
7 Tháng bảy 2010
Bài viết
37
Được thích
5
Điểm
0
Em dom ơi, anh xem lại cho em code của file vidu_01 nhé!
 

Robinhod

Thành viên mới
Tham gia ngày
7 Tháng bảy 2010
Bài viết
37
Được thích
5
Điểm
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

Lần chỉnh sửa cuối:

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆
Thành viên BQT
Administrator
Tham gia ngày
18 Tháng ba 2008
Bài viết
7,363
Được thích
14,246
Điểm
1,910
Nơi ở
Hóc Môn - Tp.HCM

File đính kèm

Top Bottom