Giúp em tổng hợp (4 người xem)

[Hoangjia]

Em phải làm thống kê thi đua toàn ngành mà ngồi copy thì mệt quá, bác nào có giải pháp nào hay thì giúp em với. Điều kiện như sau: em có các sheet mỗi sheet là 01 huyện khác nhau làm thế nào để khi nhập dữ liệu vào các sheet của Huyện thì dự liệu tự dồn về bảng tổng hợp ( tự động nhận số lượng của các huyện) cảm ơn các bác nhiều

 

[bebo021999]

Em phải làm thống kê thi đua toàn ngành mà ngồi copy thì mệt quá, bác nào có giải pháp nào hay thì giúp em với. Điều kiện như sau: em có các sheet mỗi sheet là 01 huyện khác nhau làm thế nào để khi nhập dữ liệu vào các sheet của Huyện thì dự liệu tự dồn về bảng tổng hợp ( tự động nhận số lượng của các huyện) cảm ơn các bác nhiều

Bạn xem file dùng hàm đính kèm nhé. Chỉ dùng nếu bạn có ít huyện, nếu nhiều huyện thì dùng code.

 

[SA_DQ]

Mình nêu 2 trong các fương án khả thi để bạn cho í kiến:

(|) Tao các macro sự kiện tại cột 'D' của tất thẩy các trang tính;
Khi bạn nhập hết nội dung của record này (Nhập số liệu vô 'D' & {ENTER}) thì dòng đó sẽ được đem sang "TongHop"

(|) Khi bạn kích hoạt (mở) trang tính 'TongHop' thì các records ở mọi trang tính khác sẽ được copy sang & hiện thị tại 'TongHop'
(Bạn có quyền không ưng 1 fương án nào trong ni!)


(húc vui!


Bổ sung: Lần sau nên viết tiêu đề rõ ràng hơn nữa, bạn nha!

 

[concogia]

Em phải làm thống kê thi đua toàn ngành mà ngồi copy thì mệt quá, bác nào có giải pháp nào hay thì giúp em với. Điều kiện như sau: em có các sheet mỗi sheet là 01 huyện khác nhau làm thế nào để khi nhập dữ liệu vào các sheet của Huyện thì dự liệu tự dồn về bảng tổng hợp ( tự động nhận số lượng của các huyện) cảm ơn các bác nhiều

Cái này phải "chơi" nó bằng VBA thôi

Private Sub Worksheet_Activate()
    Dim Vung, Ws
    [a4:d10000].ClearContents
        For Each Ws In Worksheets
            If Ws.Name <> "Tong hop" Then
                Set Vung = Ws.Range(Ws.[a3], Ws.[a10000].End(xlUp)).Resize(, 4)
                [a10000].End(xlUp)(2).Resize(Vung.Rows.Count, Vung.Columns.Count).Value = Vung.Value
            End If
        Next
    Range([a4], [a10000].End(xlUp)) = [row(A:A)]
End Sub

Cứ nhập dữ liệu ở các sheet khác "Tong hop", chọn sheet "Tong hop" xem kết quả
Thêm bao nhiêu sheet nữa cũng được, miễn cấu trúc giống như sheet "Trùng khánh" là Ok

 

[Hoangjia]

Cảm ơn

Cái này phải "chơi" nó bằng VBA thôi

Private Sub Worksheet_Activate()
    Dim Vung, Ws
    [a4:d10000].ClearContents
        For Each Ws In Worksheets
            If Ws.Name <> "Tong hop" Then
                Set Vung = Ws.Range(Ws.[a3], Ws.[a10000].End(xlUp)).Resize(, 4)
                [a10000].End(xlUp)(2).Resize(Vung.Rows.Count, Vung.Columns.Count).Value = Vung.Value
            End If
        Next
    Range([a4], [a10000].End(xlUp)) = [row(A:A)]
End Sub

Cứ nhập dữ liệu ở các sheet khác "Tong hop", chọn sheet "Tong hop" xem kết quả
Thêm bao nhiêu sheet nữa cũng được, miễn cấu trúc giống như sheet "Trùng khánh" là Ok

Bác ơi em muốn bác giải thích giúp em thêm về Code này nhé, em chưa rõ lắm, em muốn tìm hiểu để có thể mở rộng thêm nữa, nhân tiện bác có giáo trình gì hay hay về VBA bác post lên anh em cùng học nhé. Cảm ơn bác nhiều