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)
Chạy code sau của bạn Đào Việt Cường nhé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)
'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
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
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à đượcAnh 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
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
Bạn xem lại file đính kèm nhéEm dom ơi, anh xem lại cho em code của file vidu_01 nhé!
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?
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2