Xin hỗ trợ hàm tổng hợp dữ liệu từ nhiều sheet vào sheet tổng (4 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
L

lemanhhung00000

Thành viên chính thức
Tham gia
20/7/11
Bài viết
94
Được thích
3
Kính gửi anh chị

Hiện tại sếp em yêu cầu nhân viên báo cáo từng ngày ạ

Nhưng em muốn gộp báo cáo từng ngày đó vào thành một bảng tổng hợp ạ

Trong file Excel của em có sheet tên là : Tong Hop

Em muốn làm thế nào để sheet (Tong Hop) tự động ghi lại dữ liệu báo cáo của từng ngày vào ạ (sẽ tổng kết thừ ngày 1 của đầu tháng và đến ngày 30 hoặc 31 cuối tháng vào sheet (Tong Hop)

Các sheet nhỏ sẽ có tên là : 15.12.18 đến 30.12.18


Rất mong anh chị xem có cách nào tìm hàm để tổng hợp vào được không ạ

Trân trọng cám ơn anh chị
 

File đính kèm

lemanhhung00000 đã viết:
Kính gửi anh chị

Hiện tại sếp em yêu cầu nhân viên báo cáo từng ngày ạ

Nhưng em muốn gộp báo cáo từng ngày đó vào thành một bảng tổng hợp ạ

Trong file Excel của em có sheet tên là : Tong Hop

Em muốn làm thế nào để sheet (Tong Hop) tự động ghi lại dữ liệu báo cáo của từng ngày vào ạ (sẽ tổng kết thừ ngày 1 của đầu tháng và đến ngày 30 hoặc 31 cuối tháng vào sheet (Tong Hop)

Các sheet nhỏ sẽ có tên là : 15.12.18 đến 30.12.18


Rất mong anh chị xem có cách nào tìm hàm để tổng hợp vào được không ạ

Trân trọng cám ơn anh chị
Nhấp chuột vào đây để mở rộng...
Tôi không biết hàm, chỉ giúp bạn bằng VBA thôi:
PHP: 
Public Sub sGpe()
Application.ScreenUpdating = False
Const Col As Long = 19
Dim Ws As Worksheet, sArr(), I As Long, J As Long, K As Long, R As Long
Dim dArr(1 To 50000, 1 To Col)
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Tong Hop" Then
        If Ws.Range("A50000").End(xlUp).Row > 5 Then
            sArr = Ws.Range("A6", Ws.Range("A50000").End(xlUp)).Resize(, Col).Value
            R = UBound(sArr)
            For I = 1 To R
                K = K + 1
                For J = 1 To Col
                    dArr(K, J) = sArr(I, J)
                Next J
            Next I
        End If
    End If
Next Ws
With Sheets("Tong Hop")
    .Range("A3").Resize(50000, Col).ClearContents
    .Range("A3").Resize(50000, Col).Borders.LineStyle = 0
    .Range("A3").Resize(K, Col) = dArr
    .Range("A3").Resize(K, Col).Borders.LineStyle = 1
End With
End Sub
 
Ba Tê đã viết:
Tôi không biết hàm, chỉ giúp bạn bằng VBA thôi:
PHP: 
Public Sub sGpe()
Application.ScreenUpdating = False
Const Col As Long = 19
Dim Ws As Worksheet, sArr(), I As Long, J As Long, K As Long, R As Long
Dim dArr(1 To 50000, 1 To Col)
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Tong Hop" Then
        If Ws.Range("A50000").End(xlUp).Row > 5 Then
            sArr = Ws.Range("A6", Ws.Range("A50000").End(xlUp)).Resize(, Col).Value
            R = UBound(sArr)
            For I = 1 To R
                K = K + 1
                For J = 1 To Col
                    dArr(K, J) = sArr(I, J)
                Next J
            Next I
        End If
    End If
Next Ws
With Sheets("Tong Hop")
    .Range("A3").Resize(50000, Col).ClearContents
    .Range("A3").Resize(50000, Col).Borders.LineStyle = 0
    .Range("A3").Resize(K, Col) = dArr
    .Range("A3").Resize(K, Col).Borders.LineStyle = 1
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn nhiều

Nhưng mình không am hiểu gì về VBA cả huhuhu
 
lemanhhung00000 đã viết:
Cám ơn bạn nhiều

Nhưng mình không am hiểu gì về VBA cả huhuhu
Nhấp chuột vào đây để mở rộng...
Từ từ tham khảo học hỏi.
Tạm thời có thì cứ xài.
- Khi mở file, chọn Enable Macros
- Bấm vào nút GPE 1 phát.
- Kiểm tra kết quả không đúng thì "la làng".
@ Yêu cầu:
- Trong file, ngoài sheet "Tong Hop" thì tất cả các sheet khác phải cùng biểu mẫu.
- Không có sheet "lạ" nào khác ngoài các sheet ngày cần tổng hợp.
 

File đính kèm

Ba Tê đã viết:
Từ từ tham khảo học hỏi.
Tạm thời có thì cứ xài.
- Khi mở file, chọn Enable Macros
- Bấm vào nút GPE 1 phát.
- Kiểm tra kết quả không đúng thì "la làng".
@ Yêu cầu:
- Trong file, ngoài sheet "Tong Hop" thì tất cả các sheet khác phải cùng biểu mẫu.
- Không có sheet "lạ" nào khác ngoài các sheet ngày cần tổng hợp.
Nhấp chuột vào đây để mở rộng...
Cám ơn bác nhiều ạ

Em đã dùng thử theo hướng dẫn của bác rồi ạ

Nhưng bác cho em hỏi chút là em muốn thêm cột ghi chú nữa, Vậy phiền bác thêm VBA cột ghi chú giúp em được không ạ

Em cám ơn bác nhiều
Bài đã được tự động gộp:

lemanhhung00000 đã viết:
Cám ơn bác nhiều ạ

Em đã dùng thử theo hướng dẫn của bác rồi ạ

Nhưng bác cho em hỏi chút là em muốn thêm cột ghi chú nữa, Vậy phiền bác thêm VBA cột ghi chú giúp em được không ạ

Em cám ơn bác nhiều
Nhấp chuột vào đây để mở rộng...


Bác ơi em làm được rồi ạ

Const Col As Long = 19


Em đoàn mò và chỉ thay số 19 thành 20 là được rồi ạ

Em cám ơn bác nhiều
 

File đính kèm

Lần chỉnh sửa cuối:
Ba Tê đã viết:
Tôi không biết hàm, chỉ giúp bạn bằng VBA thôi:
PHP: 
Public Sub sGpe()
Application.ScreenUpdating = False
Const Col As Long = 19
Dim Ws As Worksheet, sArr(), I As Long, J As Long, K As Long, R As Long
Dim dArr(1 To 50000, 1 To Col)
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Tong Hop" Then
        If Ws.Range("A50000").End(xlUp).Row > 5 Then
            sArr = Ws.Range("A6", Ws.Range("A50000").End(xlUp)).Resize(, Col).Value
            R = UBound(sArr)
            For I = 1 To R
                K = K + 1
                For J = 1 To Col
                    dArr(K, J) = sArr(I, J)
                Next J
            Next I
        End If
    End If
Next Ws
With Sheets("Tong Hop")
    .Range("A3").Resize(50000, Col).ClearContents
    .Range("A3").Resize(50000, Col).Borders.LineStyle = 0
    .Range("A3").Resize(K, Col) = dArr
    .Range("A3").Resize(K, Col).Borders.LineStyle = 1
End With
End Sub
Nhấp chuột vào đây để mở rộng...


Bác ơi phiền bác làm cho em thêm cái VBA cho file đính kèm em gửi cho bác được không ạ?

Trong file Excel của em có sheet tên là : T12

Em muốn làm thế nào để sheet (T12) tự động ghi lại dữ liệu báo cáo của từng ngày vào ạ (sẽ tổng kết thừ ngày 1 của đầu tháng và đến ngày 30 hoặc 31 cuối tháng vào sheet (T12)

Các sheet nhỏ sẽ có tên là : 01-07, 08-13, 14-21, 22-31


Rất bác hỗ trợ em ạ

Trân trọng cám ơn
 

File đính kèm

File đính kèm

Ba Tê đã viết:
Chỉ lấy trọn trong tháng 12.
Nhấp chuột vào đây để mở rộng...
Dạ em cám ơn bác ạ

Cho em hỏi nếu mai kia em thay đổi các sheet có tên : 01-07, 08-13, 14-21, 22-31 thành các tên khác thì có ảnh hưởng gì không bác nhỉ?
hoặc thêm sheet có ảnh hưởng đến sheet T12 không ạ?
Bài đã được tự động gộp:

lemanhhung00000 đã viết:
Dạ em cám ơn bác ạ

Cho em hỏi nếu mai kia em thay đổi các sheet có tên : 01-07, 08-13, 14-21, 22-31 thành các tên khác thì có ảnh hưởng gì không bác nhỉ?
hoặc thêm sheet có ảnh hưởng đến sheet T12 không ạ?
Nhấp chuột vào đây để mở rộng...
Bác ơi em đã test thử ở trong Sheet T12 không cập nhật được dữ liệu ở Shee : 01-07 từ dòng 15~19 ạ

Bác xem lại giúp em xem có bị lỗi gì không ạ

Em cám ơn bác nhiều
 

File đính kèm

Lần chỉnh sửa cuối:
lemanhhung00000 đã viết:
Bác ơi em đã test thử ở trong Sheet T12 không cập nhật được dữ liệu ở Shee : 01-07 từ dòng 15~19 ạ

Bác xem lại giúp em xem có bị lỗi gì không ạ
Nhấp chuột vào đây để mở rộng...
- Thay đổi các sheet có tên : 01-07, 08-13, 14-21, 22-31 thành các tên khác : không ảnh hưởng!
- hoặc thêm sheet có ảnh hưởng đến sheet T12 không ạ? Có ảnh hưởng!
- Sheet T12 không cập nhật được dữ liệu ở Shee : 01-07 từ dòng 15~19 ạ : Bạn yêu cầu lấy dữ liệu từ ngày đầu đến ngày cuối tháng 12, những dòng đó của tháng 11 mà.
Lu bu thiệt, muốn lấy tất cả thì cần gì ghi yêu cầu: (sẽ tổng kết thừ ngày 1 của đầu tháng và đến ngày 30 hoặc 31 cuối tháng vào sheet (T12)
Tôi tắt máy chuẩn bị lên lớp buổi chiều, có gì thì nhờ các bạn khác giúp tiếp.
 
Ba Tê đã viết:
- Thay đổi các sheet có tên : 01-07, 08-13, 14-21, 22-31 thành các tên khác : không ảnh hưởng!
- hoặc thêm sheet có ảnh hưởng đến sheet T12 không ạ? Có ảnh hưởng!
- Sheet T12 không cập nhật được dữ liệu ở Shee : 01-07 từ dòng 15~19 ạ : Bạn yêu cầu lấy dữ liệu từ ngày đầu đến ngày cuối tháng 12, những dòng đó của tháng 11 mà.
Lu bu thiệt, muốn lấy tất cả thì cần gì ghi yêu cầu: (sẽ tổng kết thừ ngày 1 của đầu tháng và đến ngày 30 hoặc 31 cuối tháng vào sheet (T12)
Tôi tắt máy chuẩn bị lên lớp buổi chiều, có gì thì nhờ các bạn khác giúp tiếp.
Nhấp chuột vào đây để mở rộng...
Kính chào bác

Vậy bác đã giúp em thì giúp em nốt cho xong ạ

- Vậy em xin yêu cầu lại ạ :
- Sheet có tên T12 : Vui lòng tổng kết tất cả dữ liệu tất cả cho em ạ (từ tháng 1~T12)

Em ngồi mò và đổi những không được ạ

Em cám ơn bác nhiều
 

File đính kèm

lemanhhung00000 đã viết:
Kính chào bác

Vậy bác đã giúp em thì giúp em nốt cho xong ạ

- Vậy em xin yêu cầu lại ạ :
- Sheet có tên T12 : Vui lòng tổng kết tất cả dữ liệu tất cả cho em ạ (từ tháng 1~T12)

Em ngồi mò và đổi những không được ạ

Em cám ơn bác nhiều
Nhấp chuột vào đây để mở rộng...
Bạn bỏ câu lệnh này đi là được.
Mã: 
If Month(sArr(I, 2)) = Thang Then
End If
 
snow25 đã viết:
Bạn bỏ câu lệnh này đi là được.
Mã: 
If Month(sArr(I, 2)) = Thang Then
End If
Nhấp chuột vào đây để mở rộng...
Bạn ơi mình đã bỏ dòng đó đi nhưng nó báo lỗi như vậy bạn ạ

Option Explicit

Public Sub s_Gpe()
Const Col As Long = 17
Dim Ws As Worksheet, sArr(), dArr(1 To 1000, 1 To Col), I As Long, J As Long, K As Long, R As Long, Thang As Long
Thang = 12
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "T12" Then
sArr = Ws.Range("A15", Ws.Range("B15").End(xlDown)).Resize(, Col).Value
R = UBound(sArr)
For I = 1 To R
K = K + 1
dArr(K, 1) = K
For J = 2 To Col
dArr(K, J) = sArr(I, J)
Next J
End If
Next I
End If
Next Ws
Sheets("T12").Range("A15").Resize(1000, Col).ClearContents
Sheets("T12").Range("A15").Resize(K, Col) = dArr
End Sub

20190102_172949.png
 

File đính kèm

lemanhhung00000 đã viết:
Bạn ơi mình đã bỏ dòng đó đi nhưng nó báo lỗi như vậy bạn ạ

Option Explicit

Public Sub s_Gpe()
Const Col As Long = 17
Dim Ws As Worksheet, sArr(), dArr(1 To 1000, 1 To Col), I As Long, J As Long, K As Long, R As Long, Thang As Long
Thang = 12
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "T12" Then
sArr = Ws.Range("A15", Ws.Range("B15").End(xlDown)).Resize(, Col).Value
R = UBound(sArr)
For I = 1 To R
K = K + 1
dArr(K, 1) = K
For J = 2 To Col
dArr(K, J) = sArr(I, J)
Next J
End If
Next I
End If
Next Ws
Sheets("T12").Range("A15").Resize(1000, Col).ClearContents
Sheets("T12").Range("A15").Resize(K, Col) = dArr
End Sub

View attachment 210328
Nhấp chuột vào đây để mở rộng...
Nó báo thừa 1 cái End if bạn xoá 1 cái ở trên đi xem đúng không.
 
lemanhhung00000 đã viết:
Kính chào bạn

Phiền bạn có thể hỗ trợ sử trong file đính kèm giúp mình được không ạ?

Vì mình không sành lắm về VBA ạ

Trân trọng cám ơn
Nhấp chuột vào đây để mở rộng...
Mã: 
Public Sub s_Gpe()
Const Col As Long = 17
Dim Ws As Worksheet, sArr(), dArr(1 To 1000, 1 To Col), I As Long, J As Long, K As Long, R As Long, Thang As Long
Thang = 12
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "T12" Then
        sArr = Ws.Range("A15", Ws.Range("B15").End(xlDown)).Resize(, Col).Value
        R = UBound(sArr)
        For I = 1 To R
                K = K + 1
                dArr(K, 1) = K
                For J = 2 To Col
                    dArr(K, J) = sArr(I, J)
                Next J
        Next I
    End If
Next Ws
Sheets("T12").Range("A15").Resize(1000, Col).ClearContents
Sheets("T12").Range("A15").Resize(K, Col) = dArr
End Sub
Đây bạn xem.
 
snow25 đã viết:
Mã: 
Public Sub s_Gpe()
Const Col As Long = 17
Dim Ws As Worksheet, sArr(), dArr(1 To 1000, 1 To Col), I As Long, J As Long, K As Long, R As Long, Thang As Long
Thang = 12
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "T12" Then
        sArr = Ws.Range("A15", Ws.Range("B15").End(xlDown)).Resize(, Col).Value
        R = UBound(sArr)
        For I = 1 To R
                K = K + 1
                dArr(K, 1) = K
                For J = 2 To Col
                    dArr(K, J) = sArr(I, J)
                Next J
        Next I
    End If
Next Ws
Sheets("T12").Range("A15").Resize(1000, Col).ClearContents
Sheets("T12").Range("A15").Resize(K, Col) = dArr
End Sub
Đây bạn xem.
Nhấp chuột vào đây để mở rộng...
Dạ cám ơn bạn ạ

Nó đã chạy rồi ạ

Chúc bạn một ngày làm việc hiệu quả

Trân trọng
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

N
tính thể tích bồn dầu hình trụ elip nằm ngang (1 người xem)
Trả lời
10
Đọc
47K
pvkiem
P
H
  • Question Question
Tô đậm tiêu đề cho cho các sheet
Trả lời
1
Đọc
35
Hoàng Tuấn 868
H
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện.
Trả lời
18
Đọc
308
tle2003
T
D
Nhờ trợ giúp xác định thứ tự của các từ và cụm từ trong 1 chuỗi văn bản. (1 người xem)
Trả lời
5
Đọc
74
huhumalu
H
GPE-Trợ Lý
Đăng ký tham dự hội thảo tại Hà Nội: Power Query - Công cụ quản lý dữ liệu
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
14
Đọc
2K
GPE-Trợ Lý
GPE-Trợ Lý
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ
Trả lời
17
Đọc
478
VetMini
V
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM (2 người xem)
Trả lời
0
Đọc
305
GPE-Trợ Lý
GPE-Trợ Lý
G
Xin Code xóa Module. (1 người xem)
Trả lời
10
Đọc
374
GCQ
G
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
348
Đọc
31K
ongke0711
ongke0711
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
23
Đọc
647
nguyendang95
N
G
Tách công thức ra khỏi chuỗi và tính kết quả?
2
Trả lời
26
Đọc
2K
thuytrangbp28
T
thlpro
Cách lập Công thức tính số ngày nghỉ AL, ưu tiên tính 2024 trước rồi mới tính 2025
Trả lời
8
Đọc
160
bebo021999
B
N
Hàm tăng số đếm theo điều kiện
Trả lời
4
Đọc
83
bebo021999
B
M
Xin giúp đỡ làm công thức điều kiện
    • Yêu thích
Trả lời
3
Đọc
169
tayGa
T
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính
    • Thích
Trả lời
2
Đọc
233
nguyendang95
N
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
5
Đọc
189
DeTong
D
Trungvt3
Công thức trả về định dạng không như mong muốn và viết phân số trong 1 ô.
Trả lời
5
Đọc
129
VetMini
V
N
Khắc phục lỗi "The picture is too large and will be truncated"
Trả lời
10
Đọc
5K
tle2003
T
C
  • Question Question
Xin hỏi Cách viết chú thích trong vba hiển thị tiếng việt
Trả lời
4
Đọc
200
ongke0711
ongke0711
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
28
Đọc
8K
Hoàng Tuấn 868
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom