Cộng dồn Mã hàng hàng hóa theo ngày (chuyển từ cột ngang sang cột dọc)

AnhThu-1976 · 21/4/17

Các bạn giúp tôi viết code như sau:
Tôi có Sheet NhapBan, từ sheet này tôi muốn cộng dồn số lượng theo ngày và theo mã hàng hóa (Mã hàng hóa có thể nhiều hơn, đây chỉ là file demo)
Tôi muốn kết quả chạy code như ở sheet KQ
Cảm ơn các bạn!

ndu96081631 · 22/4/17

AnhThu-1976 đã viết:
Em đang chập chững mà

Bạn cứ tìm hiểu PivotTable đi, sẽ không phải hối hận đâu
Có rất nhiều sư phụ trên diễn đàn này (như thầy ptm0412) dùng PivotTable đến mức "xuất quỷ nhập thần". Riêng ta thì không mong đạt khả năng đó, chỉ cần học đủ dùng là ổn rồi
Cái hay của PivotTable là:
- Bạn chỉ cực 1 lần duy nhất rồi dùng mãi mãi. Bạn cứ ung dung pha ly cafe ngồi tán gẫu, dữ liệu có thêm bớt gì thì PivotTable cũng tự cập nhật cho bạn đầy đủ
- Tốc độ nhanh nhất so với tất cả các giải pháp khác (công thức hay VBA)
- Giao diện báo cáo rất đa dạng và thẫm mỹ, mặc sức mà lựa chọn
vân vân... và... mây mây...

AnhThu-1976 · 22/4/17

ndu96081631 đã viết:
Bạn cứ tìm hiểu PivotTable đi, sẽ không phải hối hận đâu
Có rất nhiều sư phụ trên diễn đàn này (như thầy ptm0412) dùng PivotTable đến mức "xuất quỷ nhập thần". Riêng ta thì không mong đạt khả năng đó, chỉ cần học đủ dùng là ổn rồi
Cái hay của PivotTable là:
- Bạn chỉ cực 1 lần duy nhất rồi dùng mãi mãi. Bạn cứ ung dung pha ly cafe ngồi tán gẫu, dữ liệu có thêm bớt gì thì PivotTable cũng tự cập nhật cho bạn đầy đủ
- Tốc độ nhanh nhất so với tất cả các giải pháp khác (công thức hay VBA)
- Giao diện báo cáo rất đa dạng và thẫm mỹ, mặc sức mà lựa chọn
vân vân... và... mây mây...

Dạ cảm ơn thầy! em sẽ tìm hiểu

HieuCD · 22/4/17

AnhThu-1976 đã viết:
Dạ cảm ơn thầy! em sẽ tìm hiểu

PivotTable là chức năng cực mạnh góp phần không nhỏ làm nên tên tuổi của Excel, nhưng thuần hóa PivotTable theo ý riêng như trong bài nầy không phải là vấn đề đơn giản
lưu ý PivotTable làm kích thước file tăng lên đáng kể, nếu bảng tổng hợp nào cũng chơi PivotTable thì...

ndu96081631 · 22/4/17

HieuCD đã viết:
lưu ý PivotTable làm kích thước file tăng lên đáng kể, nếu bảng tổng hợp nào cũng chơi PivotTable thì...

Thì vậy thôi! Công cụ mãi mãi vẫn là công cụ, tùy chuyện mà dùng cho hợp lý (của bền tại người)
------------------------------------------

HieuCD đã viết:
nhưng thuần hóa PivotTable theo ý riêng như trong bài nầy không phải là vấn đề đơn giản

Nghe bạn nói vậy khiến tôi nghi ngờ rằng: Có thể rất nhiều người không biết làm cách nào để ra được kết quả giống như tôi chăng?
Ẹc... Ẹc...

HieuCD · 22/4/17

ndu96081631 đã viết:
Thì vậy thôi! Công cụ mãi mãi vẫn là công cụ, tùy chuyện mà dùng cho hợp lý (của bền tại người)
------------------------------------------

Nghe bạn nói vậy khiến tôi nghi ngờ rằng: Có thể rất nhiều người không biết làm cách nào để ra được kết quả giống như tôi chăng?
Ẹc... Ẹc...

làm được như bạn có mấy người, mình không dùng PivotTable nên cũng không biết, thử bấm vào dấu +, - các dòng ngày tháng phía dưới biến mất, bấm chuột phải chuột trái lung tung, nắm trên nắm dưới kéo thả đủ chổ, bảng chạy tưng lên mà cũng không chịu ra, cuối cùng tắt file không lưu

ndu96081631 · 22/4/17

HieuCD đã viết:
làm được như bạn có mấy người, mình không dùng PivotTable nên cũng không biết, thử bấm vào dấu +, - các dòng ngày tháng phía dưới biến mất, bấm chuột phải chuột trái lung tung, nắm trên nắm dưới kéo thả đủ chổ, bảng chạy tưng lên mà cũng không chịu ra, cuối cùng tắt file không lưu

Không biết có thể học bạn à! (mọi thứ đều có trên mạng)
Mình tin rằng mình là người tệ nhất về vụ PivotTable và Chart (không tin cứ hỏi sư phụ ptm0412), vậy mà mình cũng "mò" được bài này (hú hồn) thì mình tin rằng những thành viên thông minh như bạn sẽ là chuyện nhỏ
-----------------------
Gợi ý thêm: Bài này mình không chèn PivotTable theo cách thông thường mà bấm tổ hợp phím Alt + D + P (mở PivotTable and PivotChart Wizard) rồi check mục Mutiple consolidation range ---> Next ---> Check mục I will create the page fields ---> Next ---> Chọn vùng NhapBan!$G$17:$U$10000 ---> Add ---> Next
Từ giờ bắt đầu kéo thả các kiểu để hiệu chỉnh (bằng cách kéo mục Column xuống dưới Row, chỉnh hiển thị trong PivotTable Option theo kiểu "Classic PivotTable layout")
Đại khái vậy!
Nay mai nếu các bạn vẫn chưa làm được và còn quan tâm, mình sẽ quay video toàn bộ quá trình gửi lên cho các bạn tham

HieuCD · 22/4/17

ndu96081631 đã viết:
Không biết có thể học bạn à! (mọi thứ đều có trên mạng)
Mình tin rằng mình là người tệ nhất về vụ PivotTable và Chart (không tin cứ hỏi sư phụ ptm0412), vậy mà mình cũng "mò" được bài này (hú hồn) thì mình tin rằng những thành viên thông minh như bạn sẽ là chuyện nhỏ
-----------------------
Gợi ý thêm: Bài này mình không chèn PivotTable theo cách thông thường mà bấm tổ hợp phím Alt + D + P (mở PivotTable and PivotChart Wizard) rồi check mục Mutiple consolidation range ---> Next ---> Check mục I will create the page fields ---> Next ---> Chọn vùng NhapBan!$G$17:$U$10000 ---> Add ---> Next
Từ giờ bắt đầu kéo thả các kiểu để hiệu chỉnh (bằng cách kéo mục Column xuống dưới Row, chỉnh hiển thị trong PivotTable Option theo kiểu "Classic PivotTable layout")
Đại khái vậy!
Nay mai nếu các bạn vẫn chưa làm được và còn quan tâm, mình sẽ quay video toàn bộ quá trình gửi lên cho các bạn tham

có được video thì quá tuyệt vời, mình và các bạn trên diễn đàn dể thực hiện hơn.
cám ơn bạn, chúc bạn một ngày vui /-*+/

PacificPR · 22/4/17

ndu96081631 đã viết:
Không biết có thể học bạn à! (mọi thứ đều có trên mạng)
Mình tin rằng mình là người tệ nhất về vụ PivotTable và Chart (không tin cứ hỏi sư phụ ptm0412), vậy mà mình cũng "mò" được bài này (hú hồn) thì mình tin rằng những thành viên thông minh như bạn sẽ là chuyện nhỏ
-----------------------
Gợi ý thêm: Bài này mình không chèn PivotTable theo cách thông thường mà bấm tổ hợp phím Alt + D + P (mở PivotTable and PivotChart Wizard) rồi check mục Mutiple consolidation range ---> Next ---> Check mục I will create the page fields ---> Next ---> Chọn vùng NhapBan!$G$17:$U$10000 ---> Add ---> Next
Từ giờ bắt đầu kéo thả các kiểu để hiệu chỉnh (bằng cách kéo mục Column xuống dưới Row, chỉnh hiển thị trong PivotTable Option theo kiểu "Classic PivotTable layout")
Đại khái vậy!
Nay mai nếu các bạn vẫn chưa làm được và còn quan tâm, mình sẽ quay video toàn bộ quá trình gửi lên cho các bạn tham

Thầy ơi hình như PivotTable biết em nhưng em lại không biết nó. Làm mãi mà không ra được như bài của thầy.
Thầy có thể làm một Topic hướng dẫn về cái này được không ạ

ndu96081631 · 22/4/17

PacificPR đã viết:
Thầy ơi hình như PivotTable biết em nhưng em lại không biết nó. Làm mãi mà không ra được như bài của thầy.
Thầy có thể làm một Topic hướng dẫn về cái này được không ạ

Trên diễn đàn đã có nhiều rồi bạn à, chẳng hạn ở đây:
http://www.giaiphapexcel.com/forum/...7-Từ-căn-bản-đến-nâng-cao&p=105863#post105863
Còn riêng với bài này, cụ thể cách làm thế nào tôi sẽ upload video sau nhé. Tuy nhiên các bạn cứ làm trước theo hướng dẫn sơ bộ ở bài 26 xem thế nào đã

ndu96081631 · 22/4/17

Đã quay xong video, mời các bạn xem toàn bộ quá trình:

Hoang2013 · 24/4/17

Giành cho những thành viên chưa thạo Dictionary

PHP Code:
Sub CongSoLuongHangTungNgay()
Dim WF As Object, Rng As Range, sRng As Range, CSDL As Range, Sh As Worksheet
Dim MyFormat As String, MyAdd As String
Dim J As Integer, W As Integer, fCol As Byte, lCol As Byte, Rw As Long
Dim Dat As Date, SoNgay As Integer, Cot As Byte, DSm As Double

Sheets("NhapBan").Select: fCol = [s17].Column
Set Rng = Range([G18], [G18].End(xlDown))
MyFormat = Rng.NumberFormat: lCol = [s17].End(xlToRight).Column
Rng.NumberFormat = "mm/dd/yyyy": Rw = Rng.Rows.Count
Set WF = Application.WorksheetFunction
Dat = WF.Min(Rng): SoNgay = WF.Max(Rng) - Dat
ReDim dArr(1 To Rw * lCol, 1 To 3): Set Sh = ThisWorkbook.Worksheets("KQ")
Sh.[b5].CurrentRegion.Offset(1).ClearContents
Set CSDL = [g17].Resize(Rw + 9, fCol): Sh.[b5].Value = [g17]
For J = 0 To SoNgay
Set sRng = Rng.Find(Format(Dat + J, "mm/dd/yyyy"), , xlValues, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
For Cot = fCol To lCol
Sh.[b6].Value = Format(Dat + J, "mm/dd/yyyy")
DSm = WF.DSum(CSDL, Cells(17, Cot), Sh.[B5:B6])
If DSm > 0 Then
W = W + 1: dArr(W, 2) = Cells(17, Cot).Value
dArr(W, 1) = Format(Dat + J, "dd/MM/yyyy")
dArr(W, 3) = DSm + dArr(W, 3)
End If
Next Cot
' Set sRng = Rng.FindNext(sRng) '
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
Next J
If W Then
Sh.[a5].Resize(W, 3).Value = dArr()
End If
Rng.NumberFormat = MyFormat
End Sub

AnhThu-1976 · 2/6/17

PacificPR đã viết:

Dựa vào góp ý của anh và thầy Ba tê.Em thử sưa như thế này có được không anh:

Mã:

Sub Tonghop()
    Dim Dic As Object, Tem As String
    Dim sArr(), tArr(), dArr(1 To 65535, 1 To 3)
    Dim i As Long, j As Long, K As Long, C As Long
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("NhapBan")
    C = .Range("IV17").End(xlToLeft).Column - 6
    tArr = .Range("S17", .Range("IV17").End(xlToLeft)).Value
    sArr = .Range("G18", .Range("G65535").End(3)).Resize(, C).Value
    For i = 1 To UBound(sArr)
        For j = 1 To UBound(tArr, 2)
            If sArr(i, j + 12) <> Empty Then
                Tem = sArr(i, 1) & "#" & tArr(1, j)
                If Not Dic.Exists(Tem) Then
                    K = K + 1
                    Dic.Add Tem, K
                    dArr(K, 1) = sArr(i, 1)
                    dArr(K, 2) = tArr(1, j)
                    dArr(K, 3) = sArr(i, j + 12)
                Else
                    dArr(Dic.Item(Tem), 3) = dArr(Dic.Item(Tem), 3) + sArr(i, j + 12)
                End If
            End If
        Next j
    Next i
End With
With Sheets("KQ")
    With .Range("A5:C65535")
        .ClearContents
        .Borders.LineStyle = xlNone
    End With
    .Range("A5").Resize(K, 3) = dArr
    With .Range("A5").Resize(K, 3)
        .Borders.LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).Weight = xlHairline
    End With
End With
End Sub

Code của bạn cho kết quả đúng như ở sheet KQ.
Từ code của bạn, tôi sửa lại để cho phù hợp với sheet MongMuon. Tôi đã sửa nhưng chưa được kết quả như mong muốn.
Các bạn vui lòng giúp tôi sửa code để kết quả chạy đúng như ở sheet MongMuon
Xin cảm ơn!

kbw1 · 2/6/17

ndu96081631 đã viết:
Đã quay xong video, mời các bạn xem toàn bộ quá trình:

E cảm ơn thầy ạ!
Nghe thầy nói đến thầy ptm0412 có khả năng dùng PivotTable như vậy e cũng muốn được chứng kiến và học hỏi ạ,
Không biết trên diễn đàn có bài viết nào của thầy ptm0412 không ạ?
Vì công cụ thì nhiều người biết, nhưng giá trị nằm ở cách sử dụng của mỗi người ạ!

PacificPR · 2/6/17

AnhThu-1976 đã viết:
Code của bạn cho kết quả đúng như ở sheet KQ.
Từ code của bạn, tôi sửa lại để cho phù hợp với sheet MongMuon. Tôi đã sửa nhưng chưa được kết quả như mong muốn.
Các bạn vui lòng giúp tôi sửa code để kết quả chạy đúng như ở sheet MongMuon
Xin cảm ơn!

Mã:

Option Explicit
Sub Tonghop()
    Dim Dic As Object, Tem As String
    Dim sArr(), tArr(), dArr(1 To 65535, 1 To 16)
    Dim i As Long, j As Long, K As Long, C As Long
    Set Dic = CreateObject("Scripting.Dictionary")
    With Sheets("NhapBan")
        C = .Range("IV17").End(xlToLeft).Column - 6
        tArr = .Range("S17", .Range("IV17").End(xlToLeft)).Value
        sArr = .Range("G18", .Range("G65535").End(3)).Resize(, C).Value
        For i = 1 To UBound(sArr)
            For j = 1 To UBound(tArr, 2)
                If sArr(i, j + 12) <> Empty Then
                    Tem = sArr(i, 1) & "#" & tArr(1, j)
                    If Not Dic.Exists(Tem) Then
                        K = K + 1
                        Dic.Add Tem, K
                        dArr(K, 1) = sArr(i, 1)
                        dArr(K, 10) = tArr(1, j)
                        dArr(K, 15) = sArr(i, j + 12)
                    Else
                        dArr(Dic.Item(Tem), 15) = dArr(Dic.Item(Tem), 15) + sArr(i, j + 12)
                    End If
                End If
            Next j
        Next i
    End With
    With Sheets("KQ")
        With .Range("A8:Q65535")
            .ClearContents
            .Borders.LineStyle = xlNone
        End With
        .Range("B8").Resize(K, 16) = dArr
        With .Range("B8").Resize(K, 16)
            .Borders.LineStyle = xlContinuous
            .Borders(xlInsideHorizontal).Weight = xlHairline
        End With
    End With
End Sub

AnhThu-1976 · 2/6/17

Cảm ơn bạn PacificRP nhiều!

AnhThu-1976 · 8/9/19

Ba Tê đã viết:
Nếu nhiều hơn 3 mã hàng thì các con số 15 trong này không chính xác:

PHP:

sArr = .Range("G18", .Range("G65535").End(3)).Resize(, 15).Value For i = 1 To UBound(sArr) For j = 13 To 15

Phải cho nó là một biến nào đó khác con số cố định 15, ví dụ:

PHP:

C = .Range("IV17").End(xlToLeft).Column - 6

Cho em hỏi
C = .Range("IV17").End(xlToLeft).Column - 6
Có ý nghĩa gì ạ, Thầy hay các anh/chị giải thích giùm em, em cảm ơn!

Hong.Van · 8/9/19

AnhThu-1976 đã viết:
Cho em hỏi
C = .Range("IV17").End(xlToLeft).Column - 6
Có ý nghĩa gì ạ, Thầy hay các anh/chị giải thích giùm em, em cảm ơn!

- 6: nghĩa là trừ 6 cột (tính cột hóa đơn trở đi)

Cộng dồn Mã hàng hàng hóa theo ngày (chuyển từ cột ngang sang cột dọc)

Thành viên tích cực

File đính kèm

Huyền thoại GPE

Thành viên tích cực

Chuyên gia GPE

Huyền thoại GPE

Chuyên gia GPE

Huyền thoại GPE

Chuyên gia GPE

Thành viên mới

Huyền thoại GPE

Huyền thoại GPE

Thành viên gắn bó

Thành viên tích cực

File đính kèm

Thành viên tích cực

Thành viên mới

Thành viên tích cực

Thành viên tích cực

Busy

Facebook

Group