Tổng hợp số liệu trên nhiều Sheet (3 người xem)

[cugia_codon_khatty]

Nhờ mọi người trên diễn đàn xem có cách nào tổng hợp giúp em số liệu trên nhiều sheet theo yêu cầu không nhé.

 

[MinhCong]

Nhờ mọi người trên diễn đàn xem có cách nào tổng hợp giúp em số liệu trên nhiều sheet theo yêu cầu không nhé.

Cách đơn giản nhất là nhập công thức chon từng cột tương ứng cho từng sheet bằng dùng hàm VLOOKUP.
VD: tại ô D5 (Trực bảo vệ) tức nó thuộc sheet ThemgioBve chẳng hạn

D5 =VLOOKUP($B5;'Them gioBVe'!$B$9:$Q$12;16;0)

Tương tự lập công thức cho các ô E5, F5, G5 sau đó copy công thức cho các ô còn lại.

 

[cugia_codon_khatty]

Cách đơn giản nhất là nhập công thức chon từng cột tương ứng cho từng sheet bằng dùng hàm VLOOKUP.
VD: tại ô D5 (Trực bảo vệ) tức nó thuộc sheet ThemgioBve chẳng hạn

D5 =VLOOKUP($B5;'Them gioBVe'!$B$9:$Q$12;16;0)

Tương tự lập công thức cho các ô E5, F5, G5 sau đó copy công thức cho các ô còn lại.

Cám ơn MinhCong nhưng làm như vậy thì dễ sai địa chỉ lắm vì dòng có thể khác nhau,

 

[Ba Tê]

Nhờ mọi người trên diễn đàn xem có cách nào tổng hợp giúp em số liệu trên nhiều sheet theo yêu cầu không nhé.

Xin chào Bạn thân mến.
Mình lại không biết code, tiếp tục dùng cột phụ và các hàm đơn giản của Excel, thử xem nhé!

 

[SA_DQ]

Option Explicit
Sub TongHopTruc()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Clls As Range
 Dim cCol As Byte, pCol As Byte
 Dim ShN As String
 On Error GoTo LoiTH
  Sheets("Tong hop").Select
 Range("d5:D" & [b65500].End(xlUp).Row).Resize(, 4).ClearContents
 For Each Clls In Range([C5], [c65500].End(xlUp))
   For Each Sh In Worksheets
      If Sh.Name <> "Tong hop" And Sh.Name <> "THE" Then
      
         Select Case Sh.Name
         Case "BVe"
            cCol = 13:                 pCol = 1
         Case "CMn", "ThG"
            cCol = 8:                  pCol = IIf(Sh.Name = "CMn", 2, 3)
         Case "TTh"
            cCol = 11:                 pCol = 4
         End Select
         
         Set Rng = Sh.Range(Sh.[D8], Sh.[D65500].End(xlUp))
         Set sRng = Rng.Find(Clls.Value, , xlValues, xlWhole)
         If Not sRng Is Nothing Then
            Clls.Offset(, pCol).Value = sRng.Offset(, cCol).Value
         End If
      End If
   Next Sh
 Next Clls
Err_:                Exit Sub
LoiTH:
   MsgBox ShN, , "Erl: " & Erl:        Resume Err_
End Sub

 

[khieukienag]

Không thích VLOOKUP thì dùng SUMPRODUCT vậy.View attachment 42230

Lỗi về gửi ảnh đính kèm

 

[candoi]

cả nhà ơi em cung muốn tổng hợp dữ liệu từ nhiều sheet trên excel nhưng dữ liệu của em là bảng lương nên em chỉ muốn cộng cột còn nhân giữa các tháng với nhau tương ứng với từng người thì làm thế nào?

 

[Lê Duy Thương]

tôi đồng ý với anh công . theo tôi mỗi cột nên tham chiếu 1 sheet va dùng hàm vlookup là dễ nhất và chính xác nhất

 

[cugia_codon_khatty]

tôi đồng ý với anh công . theo tôi mỗi cột nên tham chiếu 1 sheet va dùng hàm vlookup là dễ nhất và chính xác nhất

Cách anh Công làm thì chính xác nhưng do anh chưa hiểu hết yêu cầu của bài thôi, làm theo cách của anh Công thì những người trùng tên trên nhiều sheet sẽ khó lọc.

 

[MinhCong]

Cách anh Công làm thì chính xác nhưng do anh chưa hiểu hết yêu cầu của bài thôi, làm theo cách của anh Công thì những người trùng tên trên nhiều sheet sẽ khó lọc.

Nếu Bạn sợ trùng tên khó lọc thì có thể căn cứ vào số tài khoản để lọc vậy. Không lẽ số tài khoản cũng trùng sao?

 

[SA_DQ]

alô
Cám ơn đã quan tâm tới bài tập của tôi nhưng phần code bạn đưa vào mình tải về không dùng được là sao nhỉ? khi thay đổi số liệu thì nó cũng không thay đổi theo bạn có thể làm hoàn thiện giúp mình một file khác nhé. Thanks

Bạn cho biết, trên file đính kèm nó làm việc ra sao đi?!

 

[cugia_codon_khatty]

Bạn cho biết, trên file đính kèm nó làm việc ra sao đi?!

Gần như không chạy mặc dù đã kiểm tra rất kỹ vẫn không biết nguyên nhân tại sao???

 

[ChanhTQ@]

Tại trang 'TongHop' bạn xóa các ký số có trên cột D => G; Sau đó bấm tổ hợp fím {CTRL}+{SHIFT}+T xem sao;
Mình vừa thử thấy OK mà!

 

[dinhtrong]

Chào các bạn, mình là thành viên mới mình không biết nhiều về excel lắm nên mỗi lần trích lọc và tổng hợp dữ liệu rất thủ công,mình gửi file đính kèm các bạn giúp mình làm cách nào nhanh nhất và khoa học nhé, bảng dữ liệu này là tổng hợp nhu cầu nguyên liệu cần mua và là định mức cấp phát cho sản xuất, mỗi lệnh sản xuất cũng sẽ có các mã hàng giống nhau nên sẽ sử dụng nguyên vật liệu giống nhau , mình đã có sheet định mức nguyên vật liệu của từng sản phẩm, làm thế nào sheet tổng hợp mình liệt kê ra được số lượng sản phẩm sản xuất ,tổng cộng nguyên vật liệu cần mua của các sản phẩm. Xin được các bạn hỗ trợ giúp mình mình đang cần gấp nhưng không biết làm thế nào .
xin cảm ơn các bạn
chờ kết qủa của các bạn

các bạn ơi mình vẫn chưa nhận được sự hỗ trợ từ các bạn,mình đang cần gấp xin được sự giúp đỡ từ các bạn , cảm ơn các bạn nhiều

 

[SA_DQ]

Từ từ, khoai cũng cần có thời gian để nhừ chứ!

các bạn ơi mình vẫn chưa nhận được sự hỗ trợ từ các bạn,mình đang cần gấp xin được sự giúp đỡ từ các bạn

Macro của bạn đây & coi thêm trong file đính kèm (chú ý tại trang 'TongHop')

Option Explicit
Sub TongHopVT()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Const Dong As Long = 12:                 Dim Cot As Byte
    
 Set Sh = Sheets("DinhMuc"):              Set Rng = Sh.Range(Sh.[A4], Sh.[A11])
 For Each Cls In Range("B2:B8")
1 'Tìm Mã Hàng Tai Trang DinhMuc & Gán Só Luong:'
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      Exit For
   Else
      sRng.Offset(, 2).Value = Cls.Offset(, 2).Value
   End If
 Next Cls
2 ' Tìm Só Luong Tai DinhMuc & Gán:'
 Set Rng = Sh.Range(Sh.[D3], Sh.[iV3].End(xlToLeft))
 For Each Cls In Range([B11], [B11].End(xlDown))
   Set sRng = Rng.Find(Cls.Value)
   If Not sRng Is Nothing Then
      Cot = sRng.Column + 1
      Cls.Offset(, 1).Value = Sh.Cells(Dong, Cot).Value
   End If
 Next Cls
End Sub

Có biếu thêm 1 macro chép các vật tư để bạn ngâm cứu thêm.

2uan có cần nhưng dân chưa vội!
@uan có vội, 2uan lội quan sang!
​

 

[dinhtrong]

Rất cám ơn ban SA_DQ đã giúp đỡ mình nhưng khi mình chèn thêm mã sản phẩm thì bảng tính lại không chạy chắc do mình làm sai động tác gì đó nhưng mình kg biết gì về Macro ,cho mình hỏi ngòai bảng tính viết bằng macro có thể sử dụng công thức Excel được không bạn ? nếu là excel trường hợp lỗi mình có thể mò mẫm ra được phần bị lỗi bạn giúp mình nhé , cám ơn bạn nhiều

 

[SA_DQ]

Lập hàm excel (Công thức) thì mình chịu vì trình độ cũng chưa chắc hơn hay bằng bạn!

Nhưng khi mình chèn thêm mã sản phẩm thì bảng tính lại không chạy chắc do mình làm sai động tác gì đó nhưng mình kg biết gì về Macro ,cho mình hỏi ngòai bảng tính viết bằng macro có thể sử dụng công thức Excel được không bạn ? nếu là excel trường hợp lỗi mình có thể mò mẫm ra được phần bị lỗi bạn giúp mình nhé , cám ơn bạn nhiều

Khi chén thêm mã SF mới, thì bạn fải thực hiện những công việc sau:

Tại trang tính 'DinhMuc':
(*) Thêm dữ liệu cho dòng kế tiếp kể từ dòng 7 đến dòng 11 (Vì dòng 12 đã là dòng tổng)
(*) Thêm các trị của những cột định mức thuộc dòng đó;


Tại trang 'TongHop':

Thêm mã SF vô hàng trống cuối trong vùng B2:B8; (Khống chế đến B8 vì bên 'DanhMuc' bạn tự khống chế đến dòng 11 - không vượt được)

Sau khi thêm/thay trị tương ứng tại cột c (từ C2:C8) ta nhấn nút chạy macro

Bạn thử theo hướng dẫn lại 1 lần xem sao?!

Mong rằng bạn gặt hái được thành công.

 

[dinhtrong]

Bạn chỉ giúp mình cách thêm dòng bên sheet định mức và sheet TH thì thêm mã SP và mã nguyên vật liệu ,vì mã sản phẩm bên mình khỏang 300 mã,nếu gặp 1 đơn hàng khỏang 50 mã sản phẩm thì mình làm thế nào? vì đơn hàng mẫu thường sảy ra ,cám ơn bạn nhiều

 

[TongDe]

Theo mình thì bố trí dữ liệu logic thì mới tổng hợp bằng công thức được
Mình tạm sửa file của bạn để giải quyết vấn đề.
Nễu có gì chưa ổn thì post tiếp nha
Mở Sheet NVLCanNhap thay đổi số lượng sãn xuất trong G7;H7;I7
Bạn test lại nha
Làm sơ sơ cho bạn ngâm cứu
Không biết giúp được gì không ?

 

[SA_DQ]

Bạn chỉ giúp mình cách thêm dòng bên sheet định mức và sheet TH thì thêm mã SP và mã nguyên vật liệu ,vì mã sản phẩm bên mình khỏang 300 mã,nếu gặp 1 đơn hàng khỏang 50 mã sản phẩm thì mình làm thế nào? vì đơn hàng mẫu thường sảy ra ,cám ơn bạn nhiều

(*) Bên trang 'DinhMuc':

Nếu khoảng 300 mã thì fải dời dòng 12 đến dòng 400 cho chắc ăn. (Từ dòng 300 không có dữ liệu trở đi bạn đem ẩn nó đi;

Nhập đủ các mã hàng & định mức như bài trên đã nói;

(*) Ben trang 'THop' Bạn cần đến gần 100 dòng nên fải dời cụm vùng A hay B sang các cột khác.

Nếu dời cụm vùng A (Hiện đang là A29 sang [F2] trở đi. Fương án này cũng fải sửa macro 1 tẹo;
Còn fương án kia thì dời cụm dưới cụm A sang cột F, có thể từ [F2] cũng không sao. Nhưng chuyện này thì macro đổi sẽ nhiều hơn.

Nhưng giành ưu tiên cho bạn chọn 1 trong 2 fương án. Rất hân hạnh được giúp bạn thời gian gần!