Nhờ viết code trích xuất dữ liệu (1 người xem)

xumipham1 · 13/6/22

Xin chào các Anh/Chị,

Em có một file tổng hợp dữ liệu, và có một form sẵn theo yêu cầu, đề bài yêu cầu khi tìm kiếm một giá trị (tức là đơn hàng ạ_Số OC) thì sẽ ra các thông số như file đính kèm.
Em rất mong được các anh/chị, các bạn hỗ trợ giúp em với ạ.
File em có 3 sheet, một sheet data (dữ liệu em lấy đại diện thôi ạ, còn số liệu thực tế khá nhiều ạ), 1 sheet form mẫu và 1 sheet em muốn ra kết quả.
Vậy nhờ các anh/chị hỗ trợ giúp giùm em với ạ, hoặc nếu có chỗ nào không ổn anh/chị góp ý giùm em với.
Em xin chân thành cảm ơn cả nhà.

HUONGHCKT · 13/6/22

xumipham1 đã viết:
Dear các Anh/Chị,

Em có một file tổng hợp data, và có một form sẵn theo yêu cầu, đề bài yêu cầu khi tìm kiếm một giá trị (tức là đơn hàng ạ_Số OC) thì sẽ ra các thông số như file đính kèm.
Em rất mong được các anh/chị, các bạn hỗ trợ giúp em với ak.
File em có 3 sheet, một sheet data (dữ liệu em lấy đại diện thôi ak, còn số liệu thực tế khá nhiều ak), 1 sheet form mẫu và 1 sheet em muốn ra kết quả.
Vậy nhờ các anh/chị hỗ trợ giúp giùm em với ak, hoặc nếu có chỗ nào không ổn anh/chị góp ý giùm em với ak.
Em xin chân thành cảm ơn cả nhà.

Bạn sửa lại bài viết, chỉ dùng dùng tiếng Việt và không có ngôn từ của chat, chít (ak...) gì thì chắc rằng sẽ nhận được hỗ trợ.

xumipham1 · 13/6/22

HUONGHCKT đã viết:
Bạn sửa lại bài viết, chỉ dùng dùng tiếng Việt và không có ngôn từ của chat, chít (ak...) gì thì chắc rằng sẽ nhận được hỗ trợ.

Em đã sửa một số lỗi, cảm ơn chị nhiều.

htin1997 · 14/6/22

Dữ liệu này luôn luôn là Actual hay sao vậy thớt?

HUONGHCKT · 14/6/22

xumipham1 đã viết:
Em đã sửa một số lỗi, cảm ơn chị nhiều.

Hãy nhấn vào mặt cười ở Sheet Form để xem và kiểm tra kết quả.
Các vấn đề về định dạng tự bạn làm nhé.

htin1997 · 14/6/22

HUONGHCKT đã viết:
Hãy nhấn vào mặt cười ở Sheet Form để xem và kiểm tra kết quả.
Các vấn đề về định dạng tự bạn làm nhé.

Mỗi lần anh giúp là mỗi lần "cười" --=0

HUONGHCKT · 14/6/22

htin1997 đã viết:
Mỗi lần anh giúp là mỗi lần "cười"

Mỗi lần giúp được người khác (đúng- sai nói sau) là mình thấy vui (cười), còn người được giúp (dù chưa biết kết quả) không biết họ có "cười" không?

xumipham1 · 14/6/22

htin1997 đã viết:
Dữ liệu này luôn luôn là Actual hay sao vậy thớt?

Dạ đúng rồi ạ. Bên em luôn lấy dữ liệu Actual ạ.

Bài đã được tự động gộp: 14/6/22

HUONGHCKT đã viết:
Hãy nhấn vào mặt cười ở Sheet Form để xem và kiểm tra kết quả.
Các vấn đề về định dạng tự bạn làm nhé.

Dạ em cảm ơn "anh" nhiều ạ. Có gì không biết "anh" chỉ giúp giùm em với ạ. Xin lỗi anh em không biết lần trước gọi là chị ạ.

xumipham1 · 14/6/22

HUONGHCKT đã viết:
Hãy nhấn vào mặt cười ở Sheet Form để xem và kiểm tra kết quả.
Các vấn đề về định dạng tự bạn làm nhé.

Anh ơi, trước tiên em cảm ơn anh rất nhiều vì đã bỏ thời gian ra hỗ trợ giúp em. Tuy nhiên em là một đứa mù vba nên liên quan đến code em thực sự không biết luôn ạ.
Về lời giải của anh em thấy đáp ứng được hầu hết rồi ạ, tuy nhiên anh có thể chỉnh sửa sao cho khi em nhập thêm dữ liệu vào sheet Data thì bên kết quả sẽ hiển thị theo được không ạ? Còn phần OC qty có thể chỉ lấy dòng total ở bên phía dưới không ạ? Vì nếu hiện ra sẽ rối ạ, hoặc nếu vì điều kiện gì đó thì em sẽ tự động xóa bằng tay cũng được ạ.
Và có thể nào những công đoạn nếu cùng ngày sản xuất thì sẽ nằm chung một hàng và ngày tháng chỉ xuất hiện 1 lần nếu trùng ngày không ạ?
Rất mong anh hỗ trợ giúp em ạ. Em cảm ơn anh nhiều nhiều.

HUONGHCKT · 14/6/22

xumipham1 đã viết:
Anh ơi, trước tiên em cảm ơn anh rất nhiều vì đã bỏ thời gian ra hỗ trợ giúp em. Tuy nhiên em là một đứa mù vba nên liên quan đến code em thực sự không biết luôn ạ.
Về lời giải của anh em thấy đáp ứng được hầu hết rồi ạ, tuy nhiên anh có thể chỉnh sửa sao cho khi em nhập thêm dữ liệu vào sheet Data thì bên kết quả sẽ hiển thị theo được không ạ? Còn phần OC qty có thể chỉ lấy dòng total ở bên phía dưới không ạ? Vì nếu hiện ra sẽ rối ạ, hoặc nếu vì điều kiện gì đó thì em sẽ tự động xóa bằng tay cũng được ạ.
Và có thể nào những công đoạn nếu cùng ngày sản xuất thì sẽ nằm chung một hàng và ngày tháng chỉ xuất hiện 1 lần nếu trùng ngày không ạ?
Rất mong anh hỗ trợ giúp em ạ. Em cảm ơn anh nhiều nhiều.

Bạn viết: "....sao cho khi em nhập thêm dữ liệu vào sheet Data thì bên kết quả sẽ hiển thị theo được không ạ?..." có nghĩa là khi bạn thêm 1 dòng dữ liệu hoàn chỉnh của sh All Data thì Bên sh Form sẽ tổng hợp thêm dòng đó? -Cái này phải mô tả kỹ thì code mới chính xác.
"...Còn phần OC qty có thể chỉ lấy dòng total ở bên phía dưới...."có nghĩa là như hình 1,hay là như hình 2
Tốt nhất là bạn đưa kết quả mong muốn lên (bằng ảnh chụp màn hình cũng được)

xumipham1 · 14/6/22

HUONGHCKT đã viết:
Bạn viết: "....sao cho khi em nhập thêm dữ liệu vào sheet Data thì bên kết quả sẽ hiển thị theo được không ạ?..." có nghĩa là khi bạn thêm 1 dòng dữ liệu hoàn chỉnh của sh All Data thì Bên sh Form sẽ tổng hợp thêm dòng đó? -Cái này phải mô tả kỹ thì code mới chính xác.
"...Còn phần OC qty có thể chỉ lấy dòng total ở bên phía dưới...."có nghĩa là như hình 1,hay là như hình 2
Tốt nhất là bạn đưa kết quả mong muốn lên (bằng ảnh chụp màn hình cũng được)

- "có nghĩa là khi bạn thêm 1 dòng dữ liệu hoàn chỉnh của sh All Data thì Bên sh Form sẽ tổng hợp thêm dòng đó? -Cái này phải mô tả kỹ thì code mới chính xác."
=> Dạ đúng rồi anh ạ. Do sheet data bên em nhập dữ liệu hàng ngày ứng với từng công đoạn ạ. Do lỗi em chưa mô tả kỹ ạ, xin lỗi anh.
- Em gửi anh hình ảnh mà em muốn thể hiện trong form đó nha ạ. Chủ yếu em muốn hiển thị Actual Qty chi tiết ạ, còn phần OC qty em muốn nằm phía dưới phần total của Actual để có thể so sánh trực quan anh ạ. Làm phiền anh hỗ trợ ạ.
Em cảm ơn anh.

HUONGHCKT · 14/6/22

xumipham1 đã viết:
- "có nghĩa là khi bạn thêm 1 dòng dữ liệu hoàn chỉnh của sh All Data thì Bên sh Form sẽ tổng hợp thêm dòng đó? -Cái này phải mô tả kỹ thì code mới chính xác."
=> Dạ đúng rồi anh ạ. Do sheet data bên em nhập dữ liệu hàng ngày ứng với từng công đoạn ạ. Do lỗi em chưa mô tả kỹ ạ, xin lỗi anh.
- Em gửi anh hình ảnh mà em muốn thể hiện trong form đó nha ạ. Chủ yếu em muốn hiển thị Actual Qty chi tiết ạ, còn phần OC qty em muốn nằm phía dưới phần total của Actual để có thể so sánh trực quan anh ạ. Làm phiền anh hỗ trợ ạ.
Em cảm ơn anh.

Chả lẽ nào dữ liệu chỉ có 2 loại ở cột Classify (cột A/Sh AllData) là Actual Qty và OC Qty? Bạn cho biết là nếu chỉ có 2 loại này thì cột OC No (cột D) có những Actual Qty hay OC Qty khác nhau không? Và giờ chỉ cần lấy dữ liệu của Actual Qty (kể cả những Actual Qty có OC no khác nhau). Việc phân biệt số loại của Classify và số loại OC No sẽ ảnh hưởng đến code ra kết quả thế nào.

HUONGHCKT · 14/6/22

HUONGHCKT đã viết:
Chả lẽ nào dữ liệu chỉ có 2 loại ở cột Classify (cột A/Sh AllData) là Actual Qty và OC Qty? Bạn cho biết là nếu chỉ có 2 loại này thì cột OC No (cột D) có những Actual Qty hay OC Qty khác nhau không? Và giờ chỉ cần lấy dữ liệu của Actual Qty (kể cả những Actual Qty có OC no khác nhau). Việc phân biệt số loại của Classify và số loại OC No sẽ ảnh hưởng đến code ra kết quả thế nào.

Làm đại, Trong khi chờ bạn trả lời.
Nhấn nút Tổng họp Actual để xem kết quả.
Thử thay đổi 1 ô trong vùng L7: L....(cột Output 2)/sh All Data và kiểm tra lại kết quả ỏ Sh Form

xumipham1 · 14/6/22

HUONGHCKT đã viết:
Chả lẽ nào dữ liệu chỉ có 2 loại ở cột Classify (cột A/Sh AllData) là Actual Qty và OC Qty? Bạn cho biết là nếu chỉ có 2 loại này thì cột OC No (cột D) có những Actual Qty hay OC Qty khác nhau không? Và giờ chỉ cần lấy dữ liệu của Actual Qty (kể cả những Actual Qty có OC no khác nhau). Việc phân biệt số loại của Classify và số loại OC No sẽ ảnh hưởng đến code ra kết quả thế nào.

Dạ cột classify chỉ có 2 loại là Actual qty và oc qty thôi ạ. Phần oc qty mỗi một công đoạn sẽ chỉ nhập số liệu 1 lần thôi ạ. Hiểu đơn giản là đó là plan và actual qty là thực tế ạ. Và mỗi một đơn hàng (gọi là Oc no) là kết nối chung giữa 2 classify đó ạ.

HUONGHCKT · 14/6/22

xumipham1 đã viết:
Dạ cột classify chỉ có 2 loại là Actual qty và oc qty thôi ạ. Phần oc qty mỗi một công đoạn sẽ chỉ nhập số liệu 1 lần thôi ạ. Hiểu đơn giản là đó là plan và actual qty là thực tế ạ. Và mỗi một đơn hàng (gọi là Oc no) là kết nối chung giữa 2 classify đó ạ.

Tức là một đơn hàng có thể có nhiều OC No đúng không? Bạn đã thử file chưa? đã đúng ý chưa?
Tải lại file này nhé. Bạn thử thay đổi ô D3 của sh Form xem sao.

xumipham1 · 14/6/22

HUONGHCKT đã viết:
Tức là một đơn hàng có thể có nhiều OC No đúng không? Bạn đã thử file chưa? đã đúng ý chưa?
Tải lại file này nhé. Bạn thử thay đổi ô D3 của sh Form xem sao.

Dạ file mới phần Oc qty đã thể hiện đúng ý em luôn rồi ạ, em cảm ơn anh.
Tuy nhiên em thử thêm dữ liệu vào sheet data ngày 29/5/22 mà file Form không có cập nhật anh ạ.
Và ngày tháng thì hình như vẫn trùng nhau ạ.
Một đơn hàng có 1 số OC chung thôi ạ, nhưng nó chia ra theo từng công đoạn ạ. Với mỗi lần nhập số OC no (1 đơn hàng) bên sheet Form thì nó sẽ hiện ra các thông tin như em trình bày lúc trước ạ.
Em gửi anh hình 2 và hình 3 là em thêm vô sheet data và sheet form thể hiện theo file a gửi ạ.
Em cảm ơn anh.

HUONGHCKT · 14/6/22

xumipham1 đã viết:
Dạ file mới phần Oc qty đã thể hiện đúng ý em luôn rồi ạ, em cảm ơn anh.
Tuy nhiên em thử thêm dữ liệu vào sheet data ngày 29/5/22 mà file Form không có cập nhật anh ạ.
Và ngày tháng thì hình như vẫn trùng nhau ạ.
Một đơn hàng có 1 số OC chung thôi ạ, nhưng nó chia ra theo từng công đoạn ạ. Với mỗi lần nhập số OC no (1 đơn hàng) bên sheet Form thì nó sẽ hiện ra các thông tin như em trình bày lúc trước ạ.
Em gửi anh hình 2 và hình 3 là em thêm vô sheet data và sheet form thể hiện theo file a gửi ạ.
Em cảm ơn anh.

Chỗ này thì bạn phải gửi file có chỗ sai (và có chú dẫn theo ý bạn phải là thế này mới đúng) để xem lại, chứ bạn gửi ảnh lên (anh không bao quát đến cột BM (cái chỉ tiêu mà bạn đánh dấu là ??? ấy).
Gửi cái file có nhiều công đoạn ấy nhé. Thế nhé. gửi lên đi.

xumipham1 · 14/6/22

HUONGHCKT đã viết:
Chỗ này thì bạn phải gửi file có chỗ sai (và có chú dẫn theo ý bạn phải là thế này mới đúng) để xem lại, chứ bạn gửi ảnh lên (anh không bao quát đến cột BM (cái chỉ tiêu mà bạn đánh dấu là ??? ấy).
Gửi cái file có nhiều công đoạn ấy nhé. Thế nhé. gửi lên đi.

Anh cho em gửi lại file, em có chỉ ra những điểm cần chỉnh trong sheet form ạ, vậy phiền anh hỗ trợ ạ.
Em cảm ơn anh.

htin1997 · 15/6/22

xumipham1 đã viết:
Anh cho em gửi lại file, em có chỉ ra những điểm cần chỉnh trong sheet form ạ, vậy phiền anh hỗ trợ ạ.
Em cảm ơn anh.

Em chia sẽ thật nha thớt, nếu đây là form báo cáo thì em không thấy trực quan hơn là mấy.
Form của thớt sẽ có những ô trống, người đọc còn phải nhìn làm sao để canh từ ô dữ liệu nhìn qua ô ngày để không bị lệch ngày nữa.
Không phải em không giúp mà còn bày đặt ý kiến, nhưng chỉ là em chia sẽ quan điểm cá nhân thôi.

HUONGHCKT · 15/6/22

xumipham1 đã viết:
Anh cho em gửi lại file, em có chỉ ra những điểm cần chỉnh trong sheet form ạ, vậy phiền anh hỗ trợ ạ.
Em cảm ơn anh.

Xem file đính kèm. hy vọng lần này đúng ý. Nếu có vấn đề gì nữa thì liên hệ với tôi qua số zalo 0986997214
Lần sau phải mô tả kết quả mong muốn ngay từ đầu, và khi đưa file giả định lên cũng cần đưa thêm cả các trường hợp đặc biệt nữa thì người giúp mới hình dung được và code chính xác ý định.

xumipham1 · 15/6/22

HUONGHCKT đã viết:
Xem file đính kèm. hy vọng lần này đúng ý. Nếu có vấn đề gì nữa thì liên hệ với tôi qua số zalo 0986997214
Lần sau phải mô tả kết quả mong muốn ngay từ đầu, và khi đưa file giả định lên cũng cần đưa thêm cả các trường hợp đặc biệt nữa thì người giúp mới hình dung được và code chính xác ý định.

Dạ em cám ơn anh nhiều ạ, em sẽ rút kinh nghiệm ạ.

Bài đã được tự động gộp: 15/6/22

htin1997 đã viết:
Em chia sẽ thật nha thớt, nếu đây là form báo cáo thì em không thấy trực quan hơn là mấy.
Form của thớt sẽ có những ô trống, người đọc còn phải nhìn làm sao để canh từ ô dữ liệu nhìn qua ô ngày để không bị lệch ngày nữa.
Không phải em không giúp mà còn bày đặt ý kiến, nhưng chỉ là em chia sẽ quan điểm cá nhân thôi.

Cảm ơn bạn nhiều, tuy nhiên mỗi một đặc thù công ty có yêu cầu riêng bạn ạ.

HieuCD · 15/6/22

xumipham1 đã viết:
Xin chào các Anh/Chị,

Em có một file tổng hợp dữ liệu, và có một form sẵn theo yêu cầu, đề bài yêu cầu khi tìm kiếm một giá trị (tức là đơn hàng ạ_Số OC) thì sẽ ra các thông số như file đính kèm.
Em rất mong được các anh/chị, các bạn hỗ trợ giúp em với ạ.
File em có 3 sheet, một sheet data (dữ liệu em lấy đại diện thôi ạ, còn số liệu thực tế khá nhiều ạ), 1 sheet form mẫu và 1 sheet em muốn ra kết quả.
Vậy nhờ các anh/chị hỗ trợ giúp giùm em với ạ, hoặc nếu có chỗ nào không ổn anh/chị góp ý giùm em với.
Em xin chân thành cảm ơn cả nhà.

Thử với sub khác tí

Mã:

Option Explicit
Sub XYZ()
  Dim sRow&, sR&, i&, j&, k&, ik&, jC&
  Dim arr(), td(), Res(), dic As Object
  Dim process$, ocNo$, act$, oc$, aName$, iTem$

  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  Set dic = CreateObject("Scripting.Dictionary")
  dic.CompareMode = vbTextCompare
  act = "Actual Qty":         oc = "OC Qty"
  With Sheets("All Data")
    arr = .Range("A6:L" & .Cells(Rows.Count, 1).End(3).Row).Value
  End With
  With Sheets("Form")
    td = .Range("C4:V6").Value
    ocNo = Range("D3").Value
  End With
  For j = 2 To UBound(td, 2)
    If td(1, j) <> Empty Then process = td(1, j)
    dic(process & td(3, j)) = j
  Next j
 
  sRow = UBound(arr)
  sR = sRow + 4
  ReDim Res(1 To sR, 1 To 21)
 
  For i = 2 To sRow
    If arr(i, 4) = ocNo Then
      If arr(i, 1) = act Then
        If Not dic.Exists(arr(i, 3)) Then
          k = k + 1
          dic.Add arr(i, 3), k
          Res(k, 1) = arr(i, 3)
        End If
        ik = dic(arr(i, 3))
      ElseIf arr(i, 1) = oc Then
        ik = sR
      End If
      For j = 10 To 12
        If arr(i, j) > 0 Then
          jC = dic(arr(i, 2) & arr(1, j))
          Res(ik, jC) = Res(ik, jC) + arr(i, j)
          If ik < sR Then Res(sR - 1, jC) = Res(sR - 1, jC) + arr(i, j)
        End If
      Next j
      If aName = Empty Then aName = arr(i, 9): iTem = arr(i, 6)
    End If
  Next i
  Res(k + 2, 1) = act: Res(k + 3, 1) = oc
  For j = 2 To 21
    Res(k + 2, j) = Res(sR - 1, j)
    Res(k + 3, j) = Res(sR, j)
  Next j
  With Sheets("Form")
    .Range("C7").Resize(1000, 21).ClearContents
    .Range("C7").Resize(k + 3, 21) = Res
    .Range("D2") = aName:   .Range("F3") = iTem
  End With
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
End Sub

VetMini · 15/6/22

xumipham1 đã viết:
...

Cảm ơn bạn nhiều, tuy nhiên mỗi một đặc thù công ty có yêu cầu riêng bạn ạ.

Làm đến cỡ code thế này mà còn phải "công ty có yêu cầu riêng"?

xumipham1 · 15/6/22

HieuCD đã viết:

Thử với sub khác tí

Mã:

Option Explicit
Sub XYZ()
  Dim sRow&, sR&, i&, j&, k&, ik&, jC&
  Dim arr(), td(), Res(), dic As Object
  Dim process$, ocNo$, act$, oc$, aName$, iTem$

  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  Set dic = CreateObject("Scripting.Dictionary")
  dic.CompareMode = vbTextCompare
  act = "Actual Qty":         oc = "OC Qty"
  With Sheets("All Data")
    arr = .Range("A6:L" & .Cells(Rows.Count, 1).End(3).Row).Value
  End With
  With Sheets("Form")
    td = .Range("C4:V6").Value
    ocNo = Range("D3").Value
  End With
  For j = 2 To UBound(td, 2)
    If td(1, j) <> Empty Then process = td(1, j)
    dic(process & td(3, j)) = j
  Next j
 
  sRow = UBound(arr)
  sR = sRow + 4
  ReDim Res(1 To sR, 1 To 21)
 
  For i = 2 To sRow
    If arr(i, 4) = ocNo Then
      If arr(i, 1) = act Then
        If Not dic.Exists(arr(i, 3)) Then
          k = k + 1
          dic.Add arr(i, 3), k
          Res(k, 1) = arr(i, 3)
        End If
        ik = dic(arr(i, 3))
      ElseIf arr(i, 1) = oc Then
        ik = sR
      End If
      For j = 10 To 12
        If arr(i, j) > 0 Then
          jC = dic(arr(i, 2) & arr(1, j))
          Res(ik, jC) = Res(ik, jC) + arr(i, j)
          If ik < sR Then Res(sR - 1, jC) = Res(sR - 1, jC) + arr(i, j)
        End If
      Next j
      If aName = Empty Then aName = arr(i, 9): iTem = arr(i, 6)
    End If
  Next i
  Res(k + 2, 1) = act: Res(k + 3, 1) = oc
  For j = 2 To 21
    Res(k + 2, j) = Res(sR - 1, j)
    Res(k + 3, j) = Res(sR, j)
  Next j
  With Sheets("Form")
    .Range("C7").Resize(1000, 21).ClearContents
    .Range("C7").Resize(k + 3, 21) = Res
    .Range("D2") = aName:   .Range("F3") = iTem
  End With
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
End Sub

Dạ em đa tạ anh ạ, bài toán của em đã được giải đáp gọn gàng ạ. Có một chút xíu là trên sheet Form hình như đang lấy dữ liệu nào nhập trước chứ không tự động Sort ngày tháng từ old đến new ạ. Tuy nhiên cũng đã giải đáp được mong muốn của em rồi. Em cảm ơn anh và mọi người đã tận tình giúp đỡ ạ.

Bài đã được tự động gộp: 15/6/22

VetMini đã viết:
Làm đến cỡ code thế này mà còn phải "công ty có yêu cầu riêng"?

Dạ, em cũng tìm cách giải quyết bài toán mà sếp em yêu cầu ạ nên phải xin nhận sự giúp đỡ của mọi người ạ. Em cảm ơn.

xumipham1 · 15/6/22

HieuCD đã viết:

Thử với sub khác tí

Mã:

Option Explicit
Sub XYZ()
  Dim sRow&, sR&, i&, j&, k&, ik&, jC&
  Dim arr(), td(), Res(), dic As Object
  Dim process$, ocNo$, act$, oc$, aName$, iTem$

  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  Set dic = CreateObject("Scripting.Dictionary")
  dic.CompareMode = vbTextCompare
  act = "Actual Qty":         oc = "OC Qty"
  With Sheets("All Data")
    arr = .Range("A6:L" & .Cells(Rows.Count, 1).End(3).Row).Value
  End With
  With Sheets("Form")
    td = .Range("C4:V6").Value
    ocNo = Range("D3").Value
  End With
  For j = 2 To UBound(td, 2)
    If td(1, j) <> Empty Then process = td(1, j)
    dic(process & td(3, j)) = j
  Next j
 
  sRow = UBound(arr)
  sR = sRow + 4
  ReDim Res(1 To sR, 1 To 21)
 
  For i = 2 To sRow
    If arr(i, 4) = ocNo Then
      If arr(i, 1) = act Then
        If Not dic.Exists(arr(i, 3)) Then
          k = k + 1
          dic.Add arr(i, 3), k
          Res(k, 1) = arr(i, 3)
        End If
        ik = dic(arr(i, 3))
      ElseIf arr(i, 1) = oc Then
        ik = sR
      End If
      For j = 10 To 12
        If arr(i, j) > 0 Then
          jC = dic(arr(i, 2) & arr(1, j))
          Res(ik, jC) = Res(ik, jC) + arr(i, j)
          If ik < sR Then Res(sR - 1, jC) = Res(sR - 1, jC) + arr(i, j)
        End If
      Next j
      If aName = Empty Then aName = arr(i, 9): iTem = arr(i, 6)
    End If
  Next i
  Res(k + 2, 1) = act: Res(k + 3, 1) = oc
  For j = 2 To 21
    Res(k + 2, j) = Res(sR - 1, j)
    Res(k + 3, j) = Res(sR, j)
  Next j
  With Sheets("Form")
    .Range("C7").Resize(1000, 21).ClearContents
    .Range("C7").Resize(k + 3, 21) = Res
    .Range("D2") = aName:   .Range("F3") = iTem
  End With
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
End Sub

Anh ơi làm ơn cho em hỏi chút, khi em coppy thêm một số sheet vào và nhập dữ liệu vào thì báo lỗi như hình đính kèm, anh chỉ giúp giùm em lỗi khác phục được không ạ.
em cảm ơn nhiều ạ.

HieuCD · 15/6/22

xumipham1 đã viết:
Anh ơi làm ơn cho em hỏi chút, khi em coppy thêm một số sheet vào và nhập dữ liệu vào thì báo lỗi như hình đính kèm, anh chỉ giúp giùm em lỗi khác phục được không ạ.
em cảm ơn nhiều ạ.

Lỗi do nhiều nguyên nhân, thường do dữ liệu không chuẩn
Thay 2 lệnh bị lỗi

Mã:

Res(ik, jC) = Res(ik, jC) + arr(i, j)
If ik < sR Then Res(sR - 1, jC) = Res(sR - 1, jC) + arr(i, j)

bằng các lệnh sau

Mã:

          If dic.exists(arr(i, 2) & arr(1, j)) Then
            jC = dic(arr(i, 2) & arr(1, j))
            If IsNumeric(arr(i, j)) Then
              arr(i, j) = Val(arr(i, j))
              Res(ik, jC) = Res(ik, jC) + arr(i, j)
              If ik < sR Then Res(sR - 1, jC) = Res(sR - 1, jC) + arr(i, j)
            End If
          End If

xumipham1 · 16/6/22

HieuCD đã viết:
Lỗi do nhiều nguyên nhân, thường do dữ liệu không chuẩn
Thay 2 lệnh bị lỗi

Mã:

Res(ik, jC) = Res(ik, jC) + arr(i, j) If ik < sR Then Res(sR - 1, jC) = Res(sR - 1, jC) + arr(i, j)

bằng các lệnh sau

Mã:

If dic.exists(arr(i, 2) & arr(1, j)) Then jC = dic(arr(i, 2) & arr(1, j)) If IsNumeric(arr(i, j)) Then arr(i, j) = Val(arr(i, j)) Res(ik, jC) = Res(ik, jC) + arr(i, j) If ik < sR Then Res(sR - 1, jC) = Res(sR - 1, jC) + arr(i, j) End If End If

Dạ em cảm ơn nhiều anh nhiều ạ.

Nhờ viết code trích xuất dữ liệu (1 người xem)

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

Thành viên chính thức

File đính kèm

Zalo 0986997214

Thành viên chính thức

Dậm chân tại chỗ là đi lùi.

Zalo 0986997214

File đính kèm

Dậm chân tại chỗ là đi lùi.

Zalo 0986997214

Thành viên chính thức

Thành viên chính thức

Zalo 0986997214

File đính kèm

Thành viên chính thức

File đính kèm

Zalo 0986997214

Zalo 0986997214

File đính kèm

Thành viên chính thức

Zalo 0986997214

File đính kèm

Thành viên chính thức

File đính kèm

Zalo 0986997214

Thành viên chính thức

File đính kèm

Dậm chân tại chỗ là đi lùi.

Zalo 0986997214

File đính kèm

Thành viên chính thức

Chuyên gia GPE

File đính kèm

Đang đi tìm hòn đá

Thành viên chính thức

Thành viên chính thức

File đính kèm

Chuyên gia GPE

Thành viên chính thức

Thời gian đếm ngược.