Tạo dòng "Tổng cộng cuối trang"

bui thi lan anh

Thành viên mới
Tham gia ngày
7 Tháng mười 2009
Bài viết
4
Được thích
0
Điểm
0
Tuổi
31
Cộng dồn số liệu

Nhưng ý của tớ là 1 sheet có nhiều trang cơ, cứ thế dồn số liệu tổng từ trang này sang trang khác chứ ko phải là chuyển sang sheet mới đâu bạn
Giả sử ở Sheet1 ô B15 là ô trang cuối có số liệu đã cộng dồn của bạn, thì ở sheet2 với ô B1 là ô đem sang thì công thức chỉ là:

Ô B1 (của sheet2) =Sheet1!B15
 

pycckuu410

Thành viên mới
Tham gia ngày
5 Tháng mười một 2011
Bài viết
26
Được thích
1
Điểm
365
Tuổi
30
Chào mọi người mình cũng rất quan tâm đến bài viết này nhưng thật tiếc vẫn chưa có đáp án.
Mình có 1 sheet Nhật ký chung cần phải có số trang và số dòng của trang. Nhìn vào sheet in thì rõ ràng rồi nhưng vấn đề là mình không muốn đánh tay vào là trang này là trang số 1 2 hoặc 3 vì mình có tới 200 trang trên 1 sheet cơ, nên mình cũng muốn các bạn vào giúp mình ở đây nhé: http://www.giaiphapexcel.com/forum/showthread.php?92023-Giúp-mình-vba-cho-kết-quả-là-số-Page-!
******
 
Lần chỉnh sửa cuối:

curong

Thành viên mới
Tham gia ngày
9 Tháng một 2013
Bài viết
21
Được thích
1
Điểm
0
Tuổi
28
sao mình tải về mà không thấy có mẫu mà chỉ có thấy sổ của bác thôi bác muontennguoikhac? làm thế nào để nó ứng dụng được vào file của em?
 

curong

Thành viên mới
Tham gia ngày
9 Tháng một 2013
Bài viết
21
Được thích
1
Điểm
0
Tuổi
28
Cái cách này của TigerTiger quả thật rất hay.

Tôi đã cải tiến thêm một ít từ code của TigerTiger.

- Làm thêm menu.
- Cho phép lưu nhiều mẫu và cho chọn mẫu bằng 1 cái userform - hãy còn thô sơ.
- Cho phép chèn vào khi mở file khác (không cần copy vào file mẫu).
- Cho chọn cột cần cộng dồn (1,2,3 hoặc nhiều cột...)
- Có tính đến việc chèn vào sẽ làm thay đổi số trang in (tăng thêm so với không chèn các dòng tổgn cộng).
- ...
sao e tải rồi mà không biết phải làm thế nào để ứng dụng được vào file của em vậy bác, cái file của bác chỉ mỗi mẫu sổ vậy còn mẫu bảng thì sao?
 

powerofloveinmyheart

Thành viên mới
Tham gia ngày
14 Tháng hai 2015
Bài viết
23
Được thích
0
Điểm
0
Tuổi
32
TigerTiger đã phát triển lại CODE của Đào Việt Cường (gần như đổi hoàn toàn)

Giờ cho phép cộng chuyển trang, cộng dồn, rồi tổng quát hóa các trang cho phép ký lun (định nghĩa qua name ở sheet TEMP) - trang cuối có footer khác hẳn
Tigertiger đã thử với chiều cao dòng bất kỳ
Dĩ nhiên là các công thức cộng chuyển đúng với file ví dụ -> file khác thì cần sửa lại tt cột trong code cho hợp lý

PHP:
Option Explicit

Public Sub AddFooterX()
Application.ScreenUpdating = False
Dim myPage As HPageBreak, iP As Integer, iRb As Integer, iRe As Integer, nRbt As Integer, iReE As Integer
Dim nP As Integer

SOKT.Range("A13").Select
SOKT.Cells.RemoveSubtotal

iRb = TEMP.Range("DongBatDau").Value
iReE = TEMP.Range("DongCuoiCung").Value + 1
nRbt = TEMP.Range("CONGHETTRANG").Rows.Count

nP = SOKT.HPageBreaks.Count
SOKT.Range("A" & iReE).Value = 1
SOKT.Range("A" & iReE + 1 & ":A" & (iReE + nP * nRbt)).Formula = "=R[-1]C+1"

nP = SOKT.HPageBreaks.Count
SOKT.Range("A" & iReE & ":A" & (iReE + nP * nRbt)).ClearContents

iP = 0
With SOKT

For iP = 1 To nP + 1
    If iP <= nP Then
        iRe = SOKT.HPageBreaks(iP).Location.Row - nRbt + 1
        TEMP.Range("CONGHETTRANG").Copy
    Else
        iRe = nP * nRbt + TEMP.Range("DongCuoiCung").Value + 1
        TEMP.Range("CongTrangCuoi").Copy
    End If
    Rows(iRe).Insert xlShiftDown, True
    .Range("F" & iRe).Formula = "=SUBTOTAL(9,F" & iRb & ":F" & (iRe - 1) & ")"
    .Range("G" & iRe).Formula = "=SUBTOTAL(9,G" & iRb & ":G" & (iRe - 1) & ")"
    
    .Range("F" & iRe + 1).Formula = "=SUBTOTAL(9,F" & TEMP.Range("DongBatDau").Value & ":F" & (iRe - 1) & ")"
    .Range("G" & iRe + 1).Formula = "=SUBTOTAL(9,G" & TEMP.Range("DongBatDau").Value & ":G" & (iRe - 1) & ")"
    If iP <= nP Then
        .Range("F" & (iRe + nRbt - 1)).Formula = .Range("F" & (iRe + 1)).Formula
        .Range("G" & (iRe + nRbt - 1)).Formula = .Range("G" & (iRe + 1)).Formula
    Else
        .Range("F" & iRe + 2).Formula = "=F" & TEMP.Range("DongBatDau").Value - 1 & "+F" & (iRe + 1) _
                                            & "-G" & TEMP.Range("DongBatDau").Value - 1 & "-G" & (iRe + 1)
        If .Range("F" & iRe + 2).Value < 0 Then
            .Range("G" & iRe + 2).Formula = "=-F" & TEMP.Range("DongBatDau").Value - 1 & "-F" & (iRe + 1) _
                                            & "+G" & TEMP.Range("DongBatDau").Value - 1 & "+G" & (iRe + 1)
            .Range("F" & iRe + 2).ClearContents
        End If
    
    End If
    iRb = iRe + nRbt
Next iP
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
mong nhận được góp ý

xem file gửi kèm - cách nhập thông số trong sheet TEMP
em thấy code này rất hay hợp với bài này của em mà em chưa giải quyết được mong bác giúp đỡ. chi tiết em ghi rõ file đính kèm
 

File đính kèm

Bướng Bỉnh

Thành viên mới
Tham gia ngày
26 Tháng tư 2009
Bài viết
7
Được thích
0
Điểm
0
Tuổi
31
Em cũng mượn file này để diễn giải: em Nhập báo cáo hàng ngày (12 tháng trên 01 file excel), nhưng cuối mỗi tháng em phải in báo cáo cho tháng đó. Trang cuối cùng phải có tổng cộng và người lập (họ tên), người duyệt (Họ tên). (Em không dùng header/footer được, Vì header/footer lại nằm cuối trang giấy). Hướng dẫn giúp em giải quyết khó khăn này. Cảm ơn Anh/Chị.
 

File đính kèm

HYen17

Thành viên cằn cỗi.
Tham gia ngày
27 Tháng năm 2007
Bài viết
4,481
Được thích
6,162
Điểm
100
Tuổi
19
Em Nhập báo cáo hàng ngày (12 tháng trên 01 file excel), nhưng cuối mỗi tháng em phải in báo cáo cho tháng đó.
Trang cuối cùng phải có tổng cộng và người lập (họ tên), người duyệt (Họ tên). (Em không dùng header/footer được, Vì header/footer lại nằm cuối trang giấy). Hướng dẫn giúp em giải quyết khó khăn này. Cảm ơn Anh/Chị.
Bạn tham khảo file này xem có thỏa í bạn không nha.
 

File đính kèm

Bướng Bỉnh

Thành viên mới
Tham gia ngày
26 Tháng tư 2009
Bài viết
7
Được thích
0
Điểm
0
Tuổi
31
File báo cáo của em không có dòng tổng cộng cuối trang, Vì em phải nhập hàng ngày trên file này đến 12 tháng. Khi em báo cáo dùng filters lọc tháng để in thì dòng cuối cùng phải có dòng tổng cộng (để sếp em ký nháy vào tổng) và người lập, người duyệt. Hiện tại em phải copy sang sheet khác hàng tháng để in, em thấy thủ công quá, nên nhờ Anh/Chị có cách nào nhanh hơn giúp em để tiết kiệm thời gian. Do em diễn đạt chưa hết ý, cũng nhờ Anh/Chị xem lại file em mượn tạm để diễn giải. Em chân thành cảm ơn.
 

File đính kèm

Hoabattu195

Thành viên mới
Tham gia ngày
4 Tháng năm 2016
Bài viết
2
Được thích
0
Điểm
0
Cho em hỏi sao em tải về áp dụng trên file của em thì lại không chèn thêm dòng được mà nó cộng ngay dòng cuối cùng và đầu tiên của trang sau vậy ạ? Có cách nào chỉ giúp em không ạ
 

Hoabattu195

Thành viên mới
Tham gia ngày
4 Tháng năm 2016
Bài viết
2
Được thích
0
Điểm
0
Xin gửi các bạn File Add-Ins.
Cộng tổng cuối từng trang và các lựa chọn, không phụ thuộc vào chiều cao dòng, tự động thêm HPageBreak vào những trang bị nhỡ do cỡ dòng thay đổi.
- Cộng theo các cột cần cộng
- Chuyển kết quả cuối trang trước sang đầu trang sau hoặc cộng dồn các trang trước đặt vào đầu trang sau.
- Định dạng dòng chèn thêm vào.
- Xoá đi các dòng đã chèn vào ở các bước trước
- Lưu các thiết lập cho lần làm việc sau.
Các bạn test thử, hiện nay tôi không có File nào có nhiều dữ liệu để thử nên chưa dám chắc chắn nó làm việc hoàn hảo, có gì xin cho ý kiến.
Sao em tải về máy và dùng chức năng chèn tổng số cuối trang thì lại không chèn được dòng mới mà nó cộng ngay trên dòng cuối cùng và đầu cùng của trang sau vậy ạ. Có cách gì chỉ giúp em không ạ
 

quick87

(/ội...
Tham gia ngày
8 Tháng tư 2008
Bài viết
180
Được thích
138
Điểm
680
Cảm ơn tác giả đã chia sẻ !
 
Lần chỉnh sửa cuối:
Top