Tổng hợp từ sheet phụ sang sheet tổng (6 người xem)

Gà Công Nghệ đã viết:

Em xin nhờ anh chị trên diễn đàn giúp đỡ.
- Khi nhập hay xoá dữ liệu các sheet phụ thì sheet tổng sẽ cập nhật theo.
- Khi chọn năm sinh ô H4 (tô vàng) sheet tổng thì sẽ lọc các bé ở sheet tổng theo năm sinh.
- Số thứ tự ở sheet tổng sẽ tự cập nhật tổng học sinh, và khi lọc năm sinh học sinh thì số thứ tự cũng lọc theo.

Nhấp chuột vào đây để mở rộng...

Ngày mai trời lại sáng đã viết:

Bác thử xem, cách dùng:
- Nhập/xoá ở sheet lớp nào cũng được, quay sang sheet TONG là thấy đủ ngay.
- Ô H4 (ô vàng) có menu xổ xuống, chọn "Tất cả" hoặc chọn năm sinh muốn xem.
Danh sách năm tự sinh từ dữ liệu, bác không phải khai báo tay.
- STT tự đánh lại 1, 2, 3... theo đúng danh sách đang hiện; ngay dưới bảng có
dòng "Tổng số: n" chạy theo luôn.

Nhấp chuột vào đây để mở rộng...

Ngày mai trời lại sáng đã viết:

Bác thử xem, cách dùng:
- Nhập/xoá ở sheet lớp nào cũng được, quay sang sheet TONG là thấy đủ ngay.
- Ô H4 (ô vàng) có menu xổ xuống, chọn "Tất cả" hoặc chọn năm sinh muốn xem.
Danh sách năm tự sinh từ dữ liệu, bác không phải khai báo tay.
- STT tự đánh lại 1, 2, 3... theo đúng danh sách đang hiện; ngay dưới bảng có
dòng "Tổng số: n" chạy theo luôn.

Nhấp chuột vào đây để mở rộng...

trum00thay đã viết:

File này cũng có thể xài Power Query và Pivlot table để tổng hợp nhanh nè. Gửi bác thêm thông tin để làm.

Nhấp chuột vào đây để mở rộng...

Gà Công Nghệ đã viết:

Bạn cho mình hỏi thêm là sheet phụ mình xoá dữ liệu nhưng không có phục hồi lại được, vậy có cách nào khi xoá dữ liệu vẫn phục hồi lại không bạn.

Bài đã được tự động gộp: 4/9/26

Cách này làm như thế nào vậy bạn, hướng dẫn mình với.

Nhấp chuột vào đây để mở rộng...

Ngày mai trời lại sáng đã viết:

Bạn tải file về rồi kiểm tra nhé.

Nhấp chuột vào đây để mở rộng...

Gà Công Nghệ đã viết:

Nhờ bạn sửa lại giùm mình file này với, sếp đổi ý đưa mẫu khác và bổ sung thêm các trường gộp lại. Dữ liệu khoảng 2000 học sinh khi tổng hợp ở sheet TONG. Ở Sheet phụ mình xóa hay sửa, khi qua sheet khác quay về sheet vừa xóa vẫn phục hồi lại được.

Nhấp chuột vào đây để mở rộng...

SA_DQ đã viết:

@Chủ bài đăng:
File nhân sự của bạn còn thiếu 1 trường dữ liệu quan trọng; đó là [Mã NS]

Bạn có thể chiêm nghiệm hệ mã sau (thực tiển đã xài cho 1 trương khoảng 5 ngàn học sinh)

View attachment 312570

Nhấp chuột vào đây để mở rộng...

Gà Công Nghệ đã viết:

Nhờ bạn sửa lại giùm mình file này với, sếp đổi ý đưa mẫu khác và bổ sung thêm các trường gộp lại. Dữ liệu khoảng 2000 học sinh khi tổng hợp ở sheet TONG. Ở Sheet phụ mình xóa hay sửa, khi qua sheet khác quay về sheet vừa xóa vẫn phục hồi lại được.

Nhấp chuột vào đây để mở rộng...

Gà Công Nghệ đã viết:

Bạn cho mình hỏi thêm là sheet phụ mình xoá dữ liệu nhưng không có phục hồi lại được, vậy có cách nào khi xoá dữ liệu vẫn phục hồi lại không bạn.

Bài đã được tự động gộp: 4/9/26

Cách này làm như thế nào vậy bạn, hướng dẫn mình với.

Nhấp chuột vào đây để mở rộng...

trum00thay đã viết:

Trong 4rum mình có đầy đủ tài liệu, bài chia sẽ rất có tâm của các thành viên, admin. Bạn tìm và xem nhé. Mình cũng học trong này!

Nhấp chuột vào đây để mở rộng...

HUONGHCKT đã viết:

........Còn đoạn code dùng để xóa bớt dữ liệu (ở sheet ThayDoi) sau 1 khoảng thời gian nhất định cho nhẹ file mà chán quá rồi. Thôi bỏ đi

Nhấp chuột vào đây để mở rộng...

Option Explicit

Sub XoaDuLieu()
Dim i&, Lr&, t&, DayNow As Date, Rng As Range
Dim Sh As Worksheet, ws As Worksheet
Set Sh = Sheets("ThayDoi")
Lr = Sh.Cells(Rows.Count, 2).End(xlUp).Row
DayNow = Date - 10  ' Điều chỉnh chỗ này để xóa số ngày truơc ngày  hiện tại
t = 0
For i = Lr To 4 Step -1
    If Sh.Range("B" & i) < DayNow Then
        If Rng Is Nothing Then
            Set Rng = Sh.Rows(i)
            t = t + 1
        Else
            Set Rng = Union(Rng, Sh.Rows(i))
            t = t + 1
        End If
    End If
Next i
If Not Rng Is Nothing Then Rng.Delete Shift:=xlUp
If t = 0 Then MsgBox " Khong có dong du liêu nao phu hop" Else MsgBox "Da xoa " & t & " dong du lieu cu truoc ngay hôm nay 10 ngày"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    XoaDuLieu
End Sub

Gà Công Nghệ đã viết:

Cách này làm như thế nào

Nhấp chuột vào đây để mở rộng...

let
    Source = Excel.Workbook(File.Contents("C:\Users\Ms.Vy\Downloads\DS HS GPE.xlsx"), null, true),
    FilteredRows = Table.SelectRows(Source, each Text.StartsWith([Name], "N") or Text.StartsWith([Name], "M") or Text.StartsWith([Name], "C") or Text.StartsWith([Name], "L")),
    AddCol = Table.AddColumn(FilteredRows, "ColTrans", each let
a= [Data],
b= Table.PromoteHeaders(Table.Skip(a,5)),
lColName= {"Họ và tên","Nữ","Năm sinh","SĐT","GHI CHÚ","LỚP"},
c= Table.SelectColumns(b,lColName),
d= Table.SelectRows(c, each ([Họ và tên] <> null and  not Text.Contains([Họ và tên],"Giáo viên chủ nhiệm") and not Text.StartsWith([Họ và tên] ,"Tổng số:"))),
e= Table.AddColumn(d,"YYYY", each Text.End(Text.From([Năm sinh]),4)),
f= Table.TransformColumns(e,{}, each Text.From(_))
in
e),
    TongHop = Table.Combine(AddCol[ColTrans]),
    Type = Table.TransformColumns(TongHop, {}, Text.From)
in
    Type

DeTong đã viết:

Đọc và thực hành; Từ khóa QUERY hoặc M code...
https://www.giaiphapexcel.com/diendan/threads/danh-sách-các-tài-liệu-và-bài-thực-hành-về-power-query-và-m-code-của-ptm0412.162699/
Áp dụng cho bài này:

Mã: Sao chép.

let
    Source = Excel.Workbook(File.Contents("C:\Users\Ms.Vy\Downloads\DS HS GPE.xlsx"), null, true),
    FilteredRows = Table.SelectRows(Source, each Text.StartsWith([Name], "N") or Text.StartsWith([Name], "M") or Text.StartsWith([Name], "C") or Text.StartsWith([Name], "L")),
    AddCol = Table.AddColumn(FilteredRows, "ColTrans", each let
a= [Data],
b= Table.PromoteHeaders(Table.Skip(a,5)),
lColName= {"Họ và tên","Nữ","Năm sinh","SĐT","GHI CHÚ","LỚP"},
c= Table.SelectColumns(b,lColName),
d= Table.SelectRows(c, each ([Họ và tên] <> null and  not Text.Contains([Họ và tên],"Giáo viên chủ nhiệm") and not Text.StartsWith([Họ và tên] ,"Tổng số:"))),
e= Table.AddColumn(d,"YYYY", each Text.End(Text.From([Năm sinh]),4)),
f= Table.TransformColumns(e,{}, each Text.From(_))
in
e),
    TongHop = Table.Combine(AddCol[ColTrans]),
    Type = Table.TransformColumns(TongHop, {}, Text.From)
in
    Type

Nhấp chuột vào đây để mở rộng...

HUONGHCKT đã viết:

Hôm nay, nhân có lúc rỗi rãi, thêm vào cho nó đủ bộ, hy vọng biết đâu có ai cần.
Tôi cho rằng file này sẽ cần cho các thầy cô giáo nhất là các cô giáo mầm non phải phụ trách công tác PCGD.
Mở 1 module nữa và paste code này vào.

Mã: Sao chép.

Option Explicit

Sub XoaDuLieu()
Dim i&, Lr&, t&, DayNow As Date, Rng As Range
Dim Sh As Worksheet, ws As Worksheet
Set Sh = Sheets("ThayDoi")
Lr = Sh.Cells(Rows.Count, 2).End(xlUp).Row
DayNow = Date - 10  ' Điều chỉnh chỗ này để xóa số ngày truơc ngày  hiện tại
t = 0
For i = Lr To 4 Step -1
    If Sh.Range("B" & i) < DayNow Then
        If Rng Is Nothing Then
            Set Rng = Sh.Rows(i)
            t = t + 1
        Else
            Set Rng = Union(Rng, Sh.Rows(i))
            t = t + 1
        End If
    End If
Next i
If Not Rng Is Nothing Then Rng.Delete Shift:=xlUp
If t = 0 Then MsgBox " Khong có dong du liêu nao phu hop" Else MsgBox "Da xoa " & t & " dong du lieu cu truoc ngay hôm nay 10 ngày"
End Sub

và thêm đoạn này vào trong module của ThisWorkbook

Mã: Sao chép.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    XoaDuLieu
End Sub

Nhấp chuột vào đây để mở rộng...

Ngày mai trời lại sáng đã viết:

Bạn kiểm tra lại . . .

Nhấp chuột vào đây để mở rộng...

Gà Công Nghệ đã viết:

Em có thêm nhiều cột (em tô màu xanh ở sheet phụ) anh có thể hỗ trợ code đến các cột tô màu xanh và sheet tổng lại giùm em với (sheet tổng em thêm cột không được). Em xin cám ơn.

Nhấp chuột vào đây để mở rộng...

HUONGHCKT đã viết:

Trả bài:
Tôi đã thêm vào cho bạn:định dạng 2 cột số điện thoại ở Sh Tong là 10 số (có số 0 là số đầu tiện : 0########); Cố định ngăn để khi lăn chuột không cuộn mất các dòng tiêu đề.
Bài này có thể từ Sh TONG nhập ngược lại các sheet có tên ở cột LOP. (sẽ rất là cần thiết khi sửa chữa dữ liệu trên sh TONG mà không cần sửa lại trên sh có tên ở cột LOP)

Nhấp chuột vào đây để mở rộng...

Gà Công Nghệ đã viết:

Anh ơi, ở phần địa chỉ nhà đưa ra mẫu kêu tách ra, cột G6 bây giờ chèn thêm 2 cột rồi gộp lại (gộp 3 cột thành 1 cột, địa chỉ nhà tách ra gồm có: tổ, ấp, xã). Anh có thể hỗ trợ giùm em với anh.

Nhấp chuột vào đây để mở rộng...

HUONGHCKT đã viết:

Bạn gủi file mới sửa lại theo yêu cầu của bạn (còn code cũ) lên nhé để tôi sửa lại từ đó. file cũ trên máy tôi đã xóa rồi. Giải thích kết quả mong muốn càng tỷ mỉ càng tốt nhé.

Nhấp chuột vào đây để mở rộng...

Gà Công Nghệ đã viết:

em có chèn thêm vài cột em tô màu vàng, em gửi anh xem giùm em với

Nhấp chuột vào đây để mở rộng...

Gà Công Nghệ đã viết:

em có chèn thêm vài cột em tô màu vàng, em gửi anh xem giùm em với

Nhấp chuột vào đây để mở rộng...

HUONGHCKT đã viết:

Trong file bạn vừa gửi tôi thấy:
1/Các cột G đến I là nối thông ô không có tên của từng cột và G7:I7 thì nối thông ô (mergeCell) ở cả sh TONG và các sh LOP. do vậy code sẽ không hiểu được. Nếu G7:I7 ở các sh này có tên hoặc số thì sẽ làm được.
2/ Và thấy cũng hơi vô lý là cũ là Cột G (G6=Chỗ ở Số nhà, tổ, ấp (khu phố), xã (phường, thị trấn), huyện, thị) và mới là nối thông ô Từ G6:I6 và có giá trị như trên. đó là địa chỉ của học sinh, vậy các cột W:Z thì là địa chỉ cụ thể của ai? Phải chăng là địa chỉ của Cha(mẹ) hoặc người đỡ đầu? và nếu chỗ ở của Cha(mẹ).. thì nếu là trẻ trong độ tuổi mầm non thì có bao giờ chỗ ở của trẻ khác với chỗ ở của Cha (mẹ) hoặc người đỡ đầu? Theo tôi thì được biết thì chỉ có bé Tý con của chị Dậu (Tắt đèn-Ngô Tất Tố) phải đi ở cho Bá kiến mới có địa chỉ chỗ ở khác với chỗ ở của Cha (mẹ).
3/cột S=Số điện thoại; cột AD cũng là số diện thoại; và cột AH cũng là số điện thoại 1: Cho rằng Số Đt ở cột AD là số của Hiệu trưởng (bên cạnh -cột AC = Hiệu trưởng 1) , vậy cho hỏi : Số Đt ở cột S và cột AD là của phụ huynh hay của học sinh hay của giáo viên?
Nếu đả thông được vấn đề 1 nêu trên (đặt tên cho các cột ) thì sửa lại code cũng không còn khó nữa.

Nhấp chuột vào đây để mở rộng...

Gà Công Nghệ đã viết:

Dạ, vâng. Em có sửa lại anh xem hộ giùm em với ạ. Cột Lớp code cũ cột P giờ thành cột T, dữ liệu cập nhật đến cột AD.

Nhấp chuột vào đây để mở rộng...

Ngày mai trời lại sáng đã viết:

Bạn kiểm tra lại . . .

Nhấp chuột vào đây để mở rộng...