làm sao tổng hợp tất cả dữ liệu của từng sheet? (1 người xem)

[cuongxmen]

tôi có một file tính lương công nhân, tôi làm bảng tính gồm 31 sheet ( là 31 ngày trong tháng). sau đó là một bảng tổng hợp sẽ cộng tất cả số lượng làm được trong 31 ngày. nhưng giờ có người muốn xem toàn bộ số lượng các ngày trong tháng. tôi muốn làm một sheet chi_tiet trong đó chỉ cần gõ tên người muốn tìm vào ô điều kiện ( tìm kiếm) sẽ hiện thị số lượng từng ngày.
các bạn giúp tôi với. thank các bạn nhiều.

 

[thanhsangnguyen1982]

Vlookup and Indirect

Bạn xem file có đúng ý bạn chưa

 

[vu_tuan_manh_linh]

tôi có một file tính lương công nhân, tôi làm bảng tính gồm 31 sheet ( là 31 ngày trong tháng). sau đó là một bảng tổng hợp sẽ cộng tất cả số lượng làm được trong 31 ngày. nhưng giờ có người muốn xem toàn bộ số lượng các ngày trong tháng. tôi muốn làm một sheet chi_tiet trong đó chỉ cần gõ tên người muốn tìm vào ô điều kiện ( tìm kiếm) sẽ hiện thị số lượng từng ngày.
các bạn giúp tôi với. thank các bạn nhiều.

Sao bạn không đưa luôn cái file mà bạn đang làm ấy. Đưa cái file này nhìn thấy "nhạt nhẽo" quá!

 

[Quang_Hải]

Bạn cần giúp mà đưa dữ liệu không mặn mà tí nào, làm rồi cũng chưa chắc sử dụng được

 

[Quang_Hải]

File kia viết code trật lất rồi, quên để ý tháng 1 và 10, 11,12 đều có số 1

 

[Ba Tê]

File kia viết code trật lất rồi, quên để ý tháng 1 và 10, 11,12 đều có số 1

Làm lại cũng "trật lất" luôn, người ta yêu cầu chi tiết ngày chứ không phải tháng, như vậy là tới 31 sheet lận.
Cấu trúc sheet chitiet chắc cũng không như vậy, chẳng lẽ in cho 1 người 1 miếng giấy vài dòng mà chiều ngang mấy chục cột sao.
Hỏi như "giỡn" thì cũng thử làm như giỡn luôn.
Yêu cầu: Tên các sheet ngày phải là số từ 1 đến 31, không có ký tự nào khác.
Nhớ Enable Macro.

 

[Quang_Hải]

Sao mình nghi là cả 2 người đều trật hết vì dữ liệu gốc sơ sài quá... hic. Tại yêu thích GPE nên cứ làm thôi.

 

[hoangvuluan]

Sao mình nghi là cả 2 người đều trật hết vì dữ liệu gốc sơ sài quá... hic. Tại yêu thích GPE nên cứ làm thôi.

Đúng là chỉ có dân GPE "Ghiền Phải E" nên mới như thế này

 

[cuongxmen]

cảm ơn đã góp ý, đúng như bạn đã nói, đúng là sheets chitiet tôi muốn thống kê dữ liệu từng ngày chứ ko phải tháng. các sheet ngày tôi làm từ 1....31 là số ( từ 1 tới 31). cái này ko cần phải in ra chỉ cần so sánh số lượng trên máy nếu công nhân yêu cầu thôi. cám ơn mọi người.
tôi gửi lại file dữ liệu các bạn giúp giùm.

 

[Ba Tê]

cảm ơn đã góp ý, đúng như bạn đã nói, đúng là sheets chitiet tôi muốn thống kê dữ liệu từng ngày chứ ko phải tháng. các sheet ngày tôi làm từ 1....31 là số ( từ 1 tới 31). cái này ko cần phải in ra chỉ cần so sánh số lượng trên máy nếu công nhân yêu cầu thôi. cám ơn mọi người.
tôi gửi lại file dữ liệu các bạn giúp giùm.

Nếu bài #6 không đúng yêu cầu của bạn thì nói rõ chưa đúng chỗ nào, còn nếu bạn "gửi file" để làm lại cái mà bạn chưa "kiểm định" thì ... Híc!
Chán quá, hổng hiểu!
------------------
Nói lại: Cái chuyện lấy dữ liệu theo Tên, bạn nên "xù" ý nghĩ đó đi. Trên đời này Nguyễn Văn A có đến hàng triệu người!.!.?!$#@!
cuongxmen!

 

[Quang_Hải]

cảm ơn đã góp ý, đúng như bạn đã nói, đúng là sheets chitiet tôi muốn thống kê dữ liệu từng ngày chứ ko phải tháng. các sheet ngày tôi làm từ 1....31 là số ( từ 1 tới 31). cái này ko cần phải in ra chỉ cần so sánh số lượng trên máy nếu công nhân yêu cầu thôi. cám ơn mọi người.
tôi gửi lại file dữ liệu các bạn giúp giùm.

Mình nghĩ thay đổi tí format của bạn sẽ dễ nhìn hơn
Muốn in ra cũng không thành vấn đề. Hỏng trúng thì thôi nghen.

 

[cuongxmen]

ok rồi, đúng theo í mình rồi. cám ơn tất cả. ko phải là mình ko xem, nhưng thật sự code mình ko biết. sử dụng hàm thì được chứ code ko biết.
thank all

 

[cuongxmen]

bị lỗi một chút xíu nữa mà ko bít sửa sao

cái file đó chạy tốt nếu họ tên gõ vào. chứ tham chiếu từ họ tên công nhân qua là ko tổng hợp được.
tức là các sheet từ 1..31 đều có cột họ tên và mình tham chiếu từ sheet congnhan qua. nhưng tham chiếu như vậy nó ko tổng hợp được số lượng. gõ tên cần tìm vào là ko tìm được gì hết.
mình đã thử rồi, mình ko tham chiếu mà mình copy cột họ tên trong sheet congnhan và dán vào các cột họ tên các sheet từ 1..31 thì được. nó tổng hợp được số lượng.
các bạn sửa giùm với nha

 

[Quang_Hải]

Bạn diễn giải mình không hiểu nên không biết fix thế nào. Đưa file lên mình xem cách bạn tham chiếu thế nào mà không được

 

[cuongxmen]

mọi người xem lại giúp vẫn bị lỗi xíu

lần này tôi đưa dữ liệu giống như file tôi đang sử dụng. file của có hơn 100 công nhân dung lượng nặng tôi chỉ đưa 10 người tựng trưng thôi.
lỗi như thế này: cái code anh làm thì chạy ok rồi, nhưng tham chiếu họ tên thì lại chạy ko được.
- cụ thể: các sheet từ 1-31 đều có cột họ tên tôi tham chiếu từ sheets congnhan qua ( bằng lệnh congnhan!..)thì ko được.
nhưng nếu copy hay gõ tên vào thì lại được. thiết nghĩ nếu như 31 sheet vậy và copy cột tên cũng đủ mệt rồi. a và mọi người xem giùm với
thank all

 

[Ba Tê]

lần này tôi đưa dữ liệu giống như file tôi đang sử dụng. file của có hơn 100 công nhân dung lượng nặng tôi chỉ đưa 10 người tựng trưng thôi.
lỗi như thế này: cái code anh làm thì chạy ok rồi, nhưng tham chiếu họ tên thì lại chạy ko được.
- cụ thể: các sheet từ 1-31 đều có cột họ tên tôi tham chiếu từ sheets congnhan qua ( bằng lệnh congnhan!..)thì ko được.
nhưng nếu copy hay gõ tên vào thì lại được. thiết nghĩ nếu như 31 sheet vậy và copy cột tên cũng đủ mệt rồi. a và mọi người xem giùm với
thank all

Vẫn không khoái dò tìm bằng Họ tên nhưng cũng làm luôn.
Thay đổi ô D3.
(Không thêm sheet nào nữa.)

Public Sub KhongKhoai()
Dim Arr(1 To 31, 1 To 4), WS As Worksheet, I As Long, K As Long
    For Each WS In Worksheets
        If WS.Name <> "congnhan" And WS.Name <> "tonghop" And WS.Name <> "chitiet" Then
            For I = 6 To WS.[B65000].End(xlUp).Row
                If WS.Cells(I, 2).Value = Sheets("chitiet").[D3].Value Then
                    K = K + 1
                    Arr(K, 1) = WS.Name
                    Arr(K, 2) = WS.Cells(I, 3).Value: Arr(K, 3) = WS.Cells(I, 5).Value
                    Arr(K, 4) = WS.Cells(I, 7).Value
                End If
            Next I
        End If
    Next
Sheets("chitiet").[A7].Resize(31, 4).ClearContents
If K Then Sheets("chitiet").[A7].Resize(K, 4).Value = Arr
End Sub

 

[Quang_Hải]

Lỡ viết code rồi nên cũng up lên cho vui

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = 0
If Target.Address <> [d3].Address Then Exit Sub
On Error Resume Next
Dim Arr(1 To 31, 1 To 5)
dk = Trim([d3])
Rows("7:37").ClearContents
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "tonghop" Then
If sh.Name <> "chitiet" Then
If sh.Name <> "congnhan" Then
vung = sh.Range(sh.[b6], sh.[g65536].End(3).Offset(, 1)).Value
For i = 1 To UBound(vung)
If vung(i, 1) = dk Then
k = k + 1
Arr(k, 1) = sh.Name
Arr(k, 2) = vung(i, 2)
Arr(k, 3) = vung(i, 4)
Arr(k, 4) = vung(i, 6)
Arr(k, 5) = vung(i, 7)
End If
Next
End If: End If: End If
Next
[a7].Resize(31, 5) = Arr
Application.ScreenUpdating = 1
End Sub

 

[cuongxmen]

lần này là ok thật rồi, cám ơn tất cả đã hết mình. kiểu này chắc cũng phải tự mò học code cho đỡ lúa tí. "ngắm" mãi đoạn code mà chẳng hiểu được gì