Nhờ anh em trong diễn đàn giúp mình vấn đề tham chiếu có điều kiện (2 người xem)

  • Thread starter Thread starter anhdat89
  • Ngày gửi Ngày gửi
Liên hệ QC

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

anhdat89

Thành viên mới
Tham gia
7/12/11
Bài viết
22
Được thích
0
Xin chào toàn thể anh chị em trong diễn đàn và chúc anh chị em trong diễn đàn một ngày vui vẻ và hạnh phúc!
Mình có vấn đề không giải quyết được vì mình chỉ có kiến thức sơ đẳng excel , chưa biết cách kết hợp điêu luyện như anh em trên diễn đàn (có lẽ logic của mình hơi yếu) nên mình gửi kèm file đính kèm và mô tả vấn đề như sau:
- Mình muốn cụ thể là dữ liệu cột ngày, mã hàng, tên thành phẩm, số thùng nhập ở sheet nhập nhảy vào sheet sản xuất song ở sheet nhập sẽ có các mã hàng trùng nhau nhưng khác số lượng nhập thì mình muốn sang sheet sản xuất nó được gộp vào luôn để tổng hợp
Mình xin cảm ơn mọi người đã dành thời gian quan tâm và giúp đỡ!
 

File đính kèm

Xin chào toàn thể anh chị em trong diễn đàn và chúc anh chị em trong diễn đàn một ngày vui vẻ và hạnh phúc!
Mình có vấn đề không giải quyết được vì mình chỉ có kiến thức sơ đẳng excel , chưa biết cách kết hợp điêu luyện như anh em trên diễn đàn (có lẽ logic của mình hơi yếu) nên mình gửi kèm file đính kèm và mô tả vấn đề như sau:
- Mình muốn cụ thể là dữ liệu cột ngày, mã hàng, tên thành phẩm, số thùng nhập ở sheet nhập nhảy vào sheet sản xuất song ở sheet nhập sẽ có các mã hàng trùng nhau nhưng khác số lượng nhập thì mình muốn sang sheet sản xuất nó được gộp vào luôn để tổng hợp
Mình xin cảm ơn mọi người đã dành thời gian quan tâm và giúp đỡ!
Bạn mời đông anh em quá, chắc khó chen chân vào rồi! hu hu...:.,
 
Xin chào toàn thể anh chị em trong diễn đàn và chúc anh chị em trong diễn đàn một ngày vui vẻ và hạnh phúc!
Mình có vấn đề không giải quyết được vì mình chỉ có kiến thức sơ đẳng excel , chưa biết cách kết hợp điêu luyện như anh em trên diễn đàn (có lẽ logic của mình hơi yếu) nên mình gửi kèm file đính kèm và mô tả vấn đề như sau:
- Mình muốn cụ thể là dữ liệu cột ngày, mã hàng, tên thành phẩm, số thùng nhập ở sheet nhập nhảy vào sheet sản xuất song ở sheet nhập sẽ có các mã hàng trùng nhau nhưng khác số lượng nhập thì mình muốn sang sheet sản xuất nó được gộp vào luôn để tổng hợp
Mình xin cảm ơn mọi người đã dành thời gian quan tâm và giúp đỡ!
Câu trả lời của "1/500 anh em": Tìm hiểu và sử dụng pivot table
Chờ cho đủ 499/500 câu trả lời nữa rồi hãy quyết định cho chắc ăn nhé bạn--=0--=0--=0
 
Tôi hàng thứ 999, gần tới ngày thần tài rồi nên tôi chờ thêm 1 số nữa cho đủ 4 số 9 mới tình tiếp.
 
Tks các anh em đã quan tâm
 
Xin chào toàn thể anh chị em trong diễn đàn và chúc anh chị em trong diễn đàn một ngày vui vẻ và hạnh phúc!
- Mình muốn cụ thể là dữ liệu cột ngày, mã hàng, tên thành phẩm, số thùng nhập ở sheet nhập nhảy vào sheet sản xuất song ở sheet nhập sẽ có các mã hàng trùng nhau nhưng khác số lượng nhập thì mình muốn sang sheet sản xuất nó được gộp vào luôn để tổng hợp
Mình xin cảm ơn mọi người đã dành thời gian quan tâm và giúp đỡ!
Bạn chạy code này của 500 anh em nhé.
Mã:
Sub NamTram_Anh_Em_Tro_Giup()
Dim i As Long, k As Long, Tmp, t As Long
Dim Dic As Object
Set Dic = CreateObject("Scripting.dictionary")
Dim dArr(), sArr()
sArr = Sheet1.Range("A3:E" & Sheet1.[E65536].End(xlUp).Row).Value
ReDim dArr(1 To UBound(sArr), 1 To 4)
For i = 1 To UBound(sArr)
Tmp = sArr(i, 1) & "#" & sArr(i, 2)
If Not Dic.exists(Tmp) Then
    k = k + 1
    Dic.Add Tmp, k
    dArr(k, 1) = sArr(i, 1)
    dArr(k, 2) = sArr(i, 2)
    dArr(k, 3) = sArr(i, 3)
    dArr(k, 4) = sArr(i, 5)
Else
    t = Dic.Item(Tmp)
    dArr(t, 4) = dArr(t, 4) + sArr(i, 5)
End If
Next
Sheet3.Range("A5:D10000").ClearContents
Sheet3.[A5].Resize(k, 4) = dArr
End Sub
 

File đính kèm

Bạn chạy code này của 500 anh em nhé.
Mã:
Sub NamTram_Anh_Em_Tro_Giup()
Dim i As Long, k As Long, Tmp, t As Long
Dim Dic As Object
Set Dic = CreateObject("Scripting.dictionary")
Dim dArr(), sArr()
sArr = Sheet1.Range("A3:E" & Sheet1.[E65536].End(xlUp).Row).Value
ReDim dArr(1 To UBound(sArr), 1 To 4)
For i = 1 To UBound(sArr)
Tmp = sArr(i, 1) & "#" & sArr(i, 2)
If Not Dic.exists(Tmp) Then
    k = k + 1
    Dic.Add Tmp, k
    dArr(k, 1) = sArr(i, 1)
    dArr(k, 2) = sArr(i, 2)
    dArr(k, 3) = sArr(i, 3)
    dArr(k, 4) = sArr(i, 5)
Else
    t = Dic.Item(Tmp)
    dArr(t, 4) = dArr(t, 4) + sArr(i, 5)
End If
Next
Sheet3.Range("A5:D10000").ClearContents
Sheet3.[A5].Resize(k, 4) = dArr
End Sub
Cảm ơn bạn, nhưng mình ko hiểu code ý, bạn có thể dùng các hàm excell để ra kết quả được không bạn, dẫu sao cũng rất cảm ơn bạn đã dành thời gian để giúp đỡ mình!
 
Lần chỉnh sửa cuối:
Tôi hơi kỵ chuyện kêu gọi "500 anh em", một số thành viên khác chắc cũng thế. Do đó rất ít người trả lời.
Nội quy chưa quy định việc này nên tôi không làm gì, chỉ sửa tiêu đề lại.
 
Thiếu "500 anh em"... lại không gây được sự chú ý --> ít người xem bài. Nan giải...
 
Ý kiến cá nhân tôi thì cho là chủ thớt nên lập đề tài mới với tiêu đề là "Tổng hợp số lượng theo mã hàng" thì là hay hơn cả.

Tất nhiên là có thể đề nghị không dùng ( hoặc có ) VBA tùy theo
 
Ý kiến cá nhân tôi thì cho là chủ thớt nên lập đề tài mới với tiêu đề là "Tổng hợp số lượng theo mã hàng" thì là hay hơn cả.

Tất nhiên là có thể đề nghị không dùng ( hoặc có ) VBA tùy theo
Cảm ơn bác đã góp ý, dù sao em cũng lỡ đặt rùi! Mong được sự quan tâm của các bác!
 
Cảm ơn bác đã góp ý, dù sao em cũng lỡ đặt rùi! Mong được sự quan tâm của các bác!
Tại "500 anh em" nghe có vẻ "trên bến dưới thuyền" quá í mà.//**/--=0
Tôi làm thử theo cách pivottable. Hình thức hơi khác với yêu cầu ( cột ngày ) nhưng có lẽ là tạm chấp nhận được.
Có gì bạn tìm hiểu thêm.
Kết quả đặt tại sheet1

Vui vẻ nhé bạn!
 

File đính kèm

Lần chỉnh sửa cuối:
Tại "500 anh em" nghe có vẻ "trên bến dưới thuyền" quá í mà.//**/--=0
Tôi làm thử theo cách pivottable. Hình thức hơi khác với yêu cầu ( cột ngày ) nhưng có lẽ là tạm chấp nhận được.
Có gì bạn tìm hiểu thêm.
Kết quả đặt tại sheet1

Vui vẻ nhé bạn!
Cảm ơn sự quan tâm và dành thời gian của bác cho em, em sẽ nghiên cứu pivottable để hiểu cách làm của bác!
 
Web KT

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

Back
Top Bottom