Trích lọc dữ liệu bằng Dictionay (1 người xem)

[bongmaihung]

Ở trong sheet Doanhthu_Ch, em đã ghi yêu cầu cần trợ giúp
Nhờ mọi người giúp đỡ ah.

 

[phihndhsp]

có 1 dòng thôi cần chi tới VBA bạn, sử dụng hàm được rồi

 

[bongmaihung]

có 1 dòng thôi cần chi tới VBA bạn, sử dụng hàm được rồi

Dữ liệu thực tế rất nhiều. Em nhờ anh chị giúp ah, Hàm em làm được rồi.

 

[phihndhsp]

theo như bạn nói thì chọn ngày nào nó ra ngày đó mà nhiều cái gì?

 

[bongmaihung]

theo như bạn nói thì chọn ngày nào nó ra ngày đó mà nhiều cái gì?

Trong một ngày có thể nhập rất nhiều lần anh ah,
Ví dụ BH ngày 15/12/2015 nhập số lượng 15, doanh thu 15. sau đó có nhập hàng khác nhập chen vào,
khoảng 20 dòng sau lại nhập lại BH cũng ngày 15/12/2015 , doanh thu 15 thì giờ em muốn ssang sheet tổng hợp
Ngày 15/12/2015, BH tổng nhập là 30, doanh thu là 30 (mặt hàng khác tương tự. lọc ngày nào ra chi tiết tổng hợp từng mặt hàng ngày đó)
Do file của kế toán cũ làm thế rồi nên giờ em cần vba để tổng hợp, vừa để học hỏi thêm
Thực tế dùng pivot hay sumif vẫn ra bình thường nhưng muốn xem nếu VBA thì giải quyết thế nào

 

[phihndhsp]

thêm dữ liệu đi, tôi sẽ làm cho bạn, ý bạn nói là trong một ngày có rất nhiều mặt hàng, mà nó được nhập nhiều lần, bạn muốn hiện ra một mã hàng duy nhất trong nhiều lần nhập và tính tổng tiền mã hàng đó ?

 

[bongmaihung]

hêm dữ liệu đi, tôi sẽ làm cho bạn, ý bạn nói là trong một ngày có rất nhiều mặt hàng, mà nó được nhập nhiều lần, bạn muốn hiện ra một mã hàng duy nhất trong nhiều lần nhập và tính tổng tiền mã hàng đó ?

Em đang đi ra ngoài và vào bằng điện t hoại, anh nói đúng rồi đấy ah, lọc mặt hàng duy nhất, tính tổng theo ngày. File thực tế y hệt file vừa rồi, anh làm giúp em trên file này, em biết qua vba nên có thể sửa được ah. Em cảm ơn anh

 

[ChanhTQ@]

/(/ếu là mình thì sẽ thực hiện như vầy:

Lọc (AdvancedFilter) từ CSDL theo ngày đến 1 nơi trống nào đó sau cột [Z] tại trang đó;

Kế tiếp sắp xếp dữ liệu vừa lọc được theo mã hàng
Lọc duy nhất mã hàng để chép sang trang 'BCao'
Dùng hàm DSUM() để tính ra các kết quả cần thiết.

Cách này chỉ cần kiến thức tối thiểu của VBA là được.

 

[VetMini]

Thường thường ba cái quản lý mua bán này bạn phải biết cách tự viết lấy code. Có một vài chỗ bí thì nhờ bà con GPE chỉ dẫn.
Một đống dữ liệu, một đống quy trình, bạn nhờ viết từ A đến Z thì lúc sếp bạn hỏi một vài con số đáng nghi ngờ, bạn phải chứng mình cách nào? Ví dụ nó có chỗ sai thật, và sở thuế bảo rằng bạn cố tình tính gian để trốn thuế thì bạn biện hộ cách nào?

 

[bongmaihung]

Thường thường ba cái quản lý mua bán này bạn phải biết cách tự viết lấy code. Có một vài chỗ bí thì nhờ bà con GPE chỉ dẫn.
Một đống dữ liệu, một đống quy trình, bạn nhờ viết từ A đến Z thì lúc sếp bạn hỏi một vài con số đáng nghi ngờ, bạn phải chứng mình cách nào? Ví dụ nó có chỗ sai thật, và sở thuế bảo rằng bạn cố tình tính gian để trốn thuế thì bạn biện hộ cách nào?

Em thử dùng Dictionary rồi nhưng chắc sai chỗ nào đó, còn số liệu thì cũng minh bạch thôi anh, lọc trùng rồi tính t ổng số lượng và doanh thu theo ngày thôi ah

 

[phihndhsp]

Gởi bạn, bạn xem đúng ý không, bạn muốn DIC thì tôi làm DIC cho bạn
code bạn tự phát triển nha, tôi không bẫy lỗi gì nhiều, tôi chỉ làm cái sườn theo yêu cầu của bạn thôi

Public Sub GPE()
Dim Dic As Object, Arr(), I As Long, J As Long, K As Long
Dim rng As Range
Dim DK
Dim Tem
    Application.ScreenUpdating = False
    Set Dic = CreateObject("Scripting.Dictionary")
    Dongcuoi = Sheet5.Range("B65000").End(xlUp).Row
    Set rng = Sheet5.Range("B3:I" & Dongcuoi)
    DK = Sheet6.Range("D2")
    ReDim Arr(1 To Dongcuoi, 1 To 6)
    K = 0
    For I = 1 To Dongcuoi - 2
        If (rng(I, 1) = DK) Then
            Tem = rng(I, 2)
            If Not Dic.Exists(Tem) Then
                K = K + 1
                Dic.Add Tem, K
                Arr(K, 1) = K
                Arr(K, 2) = rng(I, 2)
                Arr(K, 3) = rng(I, 3)
                Arr(K, 4) = rng(I, 4)
                Arr(K, 5) = rng(I, 6)
                Arr(K, 6) = rng(I, 8)
            Else
                J = Dic.Item(Tem)
                Arr(K, 5) = Arr(J, 5) + rng(I, 6)
                Arr(K, 6) = Arr(J, 6) + rng(I, 8)
            End If
        End If
    Next I


    Sheet6.Range("A6:F10000").ClearContents
    Sheet6.Range("A6:F10000").Borders.LineStyle = 0
    If (K > 0) Then
        Sheet6.Range("A6").Resize(K, 6) = Arr
        Sheet6.Range("A6").Resize(K, 6).Borders.LineStyle = 1
    End If
    Set Dic = Nothing
    Application.ScreenUpdating = True
End Sub

P/S lâu ngày viết lại cái DIC hơi bị rung tay rung chân

 

[bongmaihung]

Gởi bạn, bạn xem đúng ý không, bạn muốn DIC thì tôi làm DIC cho bạn
code bạn tự phát triển nha, tôi không bẫy lỗi gì nhiều, tôi chỉ làm cái sườn theo yêu cầu của bạn thôi

Public Sub GPE()
Dim Dic As Object, Arr(), I As Long, J As Long, K As Long
Dim rng As Range
Dim DK
Dim Tem
    Application.ScreenUpdating = False
    Set Dic = CreateObject("Scripting.Dictionary")
    Dongcuoi = Sheet5.Range("B65000").End(xlUp).Row
    Set rng = Sheet5.Range("B3:I" & Dongcuoi)
    DK = Sheet6.Range("D2")
    ReDim Arr(1 To Dongcuoi, 1 To 6)
    K = 0
    For I = 1 To Dongcuoi - 2
        If (rng(I, 1) = DK) Then
            Tem = rng(I, 2)
            If Not Dic.Exists(Tem) Then
                K = K + 1
                Dic.Add Tem, K
                Arr(K, 1) = K
                Arr(K, 2) = rng(I, 2)
                Arr(K, 3) = rng(I, 3)
                Arr(K, 4) = rng(I, 4)
                Arr(K, 5) = rng(I, 6)
                Arr(K, 6) = rng(I, 8)
            Else
                J = Dic.Item(Tem)
                Arr(K, 5) = Arr(J, 5) + rng(I, 6)
                Arr(K, 6) = Arr(J, 6) + rng(I, 8)
            End If
        End If
    Next I


    Sheet6.Range("A6:F10000").ClearContents
    Sheet6.Range("A6:F10000").Borders.LineStyle = 0
    If (K > 0) Then
        Sheet6.Range("A6").Resize(K, 6) = Arr
        Sheet6.Range("A6").Resize(K, 6).Borders.LineStyle = 1
    End If
    Set Dic = Nothing
    Application.ScreenUpdating = True
End Sub

Đúng yêu cầu rồi anh. Cảm ơn anh nhiều ah
Lúc đầu em đã tham khảo trên GPE và viết được kiểu t hế này. Để em xem lại bài của em sai chỗ nào để rút kinh nghiệm
Một lần nữa, cảm ơn anh