Cập nhật dữ liệu theo nhiều tiêu chí (3 người xem)

khi ta 20 · 9/5/18

Chào mọi người trên diễn đàn ! Em hiện có 1 việc như sau muốn nhờ giúp đỡ
......................................
Cập nhật vùng dữ liệu từ A:L sang P:W
Em muốn hàng ngày khi nhập hàng vào vùng A:L thì dữ liệu sẽ tự động lọc(Remove Duplicates) sang vùng P:W
Lọc danh sách thỏa nhiều tiêu chí sau:
Cột C: Tên Công Ty thì không lấy Cty Hoàng Liên
Cột D: Tên Hàng chỉ lấy loại "Thanh gỗ"
Cột I:Nguyên liệu chỉ lấy: Cao Su Thân,Tràm sấy, Xoài
Cột V,W tính tổng xuất , tổng nhập
Xin cám nhiều !

befaint · 9/5/18

khi ta 20 đã viết:
Lọc danh sách thỏa nhiều tiêu chí sau:
Cột C: Tên Công Ty thì không lấy Cty Hoàng Liên
Cột D: Tên Hàng chỉ lấy loại "Thanh gỗ"
Cột I:Nguyên liệu chỉ lấy: Cao Su Thân,Tràm sấy, Xoài
Cột V,W tính tổng xuất , tổng nhập

Pivot Table chuẩn GPE nuôn!

Mộng Thường 2001 · 9/5/18

befaint đã viết:
Pivot Table chuẩn GPE nuôn!

nàm nuôn cho bạn đi em trai!
Khà khà khà!
}}}}}

♫ђöล♥ßล†♥†µ♫ · 9/5/18

befaint đã viết:
Pivot Table chuẩn GPE nuôn!

Anh làm nuôn đi anh $-\\/.$

khi ta 20 · 9/5/18

befaint đã viết:
Pivot Table chuẩn GPE nuôn!

Pivot table em cũng làm rùi, nhưng em chưa biết tính cho 3 cột cuối ra sau. nhờ anh giúp

khi ta 20 · 9/5/18

Em làm pivot table mà còn bị dính ở cột cuối(cột G) ,nhờ anh chị giúp em với
Cột G=Cột E-Cột F
Cám ơn nhiều

Mộng Thường 2001 · 9/5/18

khi ta 20 đã viết:
Em làm pivot table mà còn bị dính ở cột cuối(cột G) ,nhờ anh chị giúp em với
Cám ơn nhiều

Click chuột phải vào bảng chọn "Remove Grand total"
Cột cuối cùng tự khắc bạn sẽ biết xử lý.
hihi ^o^

khi ta 20 · 10/5/18

Mộng Thường 2001 đã viết:
Click chuột phải vào bảng chọn "Remove Grand total"
Cột cuối cùng tự khắc bạn sẽ biết xử lý.
hihi ^o^

Cám ơn Mộng Thường nhiều nha

khi ta 20 · 10/5/18

hpkhuong đã viết:
Cột cuối sao lại để mồ côi vậy?

Cột cuối có thể cho vào bảng pivot table được không anh ?
Cám ơn anh nhiều !

Mộng Thường 2001 · 10/5/18

khi ta 20 đã viết:
Cột cuối có thể cho vào bảng pivot table được không anh ?
Cám ơn anh nhiều !

Thử đề nghị cách: tự phân loại cột "Thể tích"

Nếu "Nhập": thì mang số Dương
Nếu "Xuất": thì mang số Âm
Tận dụng "Grand Total" thành cột "Tồn"

Bạn có thể tham khảo file kèm.
hihi ^o^

khi ta 20 · 10/5/18

Mộng Thường 2001 đã viết:
Thử đề nghị cách: tự phân loại cột "Thể tích"

Nếu "Nhập": thì mang số Dương

Nếu "Xuất": thì mang số Âm

Tận dụng "Grand Total" thành cột "Tồn"

Bạn có thể tham khảo file kèm.
hihi ^o^

Bạn cho mình hỏi:
a)Không Refresh được
b)Không lọc được
c)Không giống như 1 bản Pivottable thông thường quá ?
Cám ơn sự nhiệt tình của bạn

Mộng Thường 2001 · 10/5/18

khi ta 20 đã viết:
Bạn cho mình hỏi:
a)Không Refresh được
b)Không lọc được
c)Không giống như 1 bản Pivottable thông thường quá ?
Cám ơn sự nhiệt tình của bạn

Chắc do bạn xài Excel cũ hơn.
Bạn xem file kèm, bản này tôi cập nhật theo file bạn cung cấp tại bài #6
hihi ^o^

khi ta 20 · 10/5/18

hpkhuong đã viết:

Tôi e với Pivot thì không được. (Nhưng đối với ai đó rành Pivot thì họ xử được thì sao - Tôi ít dùng nên cũng không rành)
Thôi thì xài VBA vậy, bạn thử:

Mã:

Option Explicit

Public Sub GPE()
Dim Dic As Object, sArr, dArr, I As Long, K As Long, Tem As String, J As Long, R As Long
sArr = Range("A4", Range("A" & Rows.Count).End(3)).Resize(, 12).Value
ReDim dArr(1 To UBound(sArr), 1 To 9)
Set Dic = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
For I = 1 To UBound(sArr)
    If sArr(I, 3) <> "G" & ChrW(7895) & " Hoàng Liên" Then
        If sArr(I, 4) = "Thanh g" & ChrW(7895) Then
            If sArr(I, 9) = "Cao Su thân" Or sArr(I, 9) = "Tràm s" & ChrW(7845) & "y" Or sArr(I, 9) = "Xoài" Then
                Tem = sArr(I, 3) & "#" & sArr(I, 4) & "#" & sArr(I, 5) & "#" & sArr(I, 6) & "#" & sArr(I, 7) & "#" & sArr(I, 9)
                If Not Dic.exists(Tem) Then
                    K = K + 1
                    Dic.Add Tem, K
                    For J = 1 To 5
                        dArr(K, J) = sArr(I, J + 2)
                    Next
                        dArr(K, 6) = sArr(I, 9)
                        If sArr(I, 10) = "Nh" & ChrW(7853) & "p" Then dArr(K, 7) = sArr(I, 11): dArr(K, 9) = sArr(I, 11)
                        If sArr(I, 10) = "Xu" & ChrW(7845) & "t" Then dArr(K, 8) = sArr(I, 11): dArr(K, 9) = -sArr(I, 11)
                Else
                    R = Dic.Item(Tem)
                    If sArr(I, 10) = "Nh" & ChrW(7853) & "p" Then dArr(R, 7) = dArr(R, 7) + sArr(I, 11): dArr(R, 9) = dArr(R, 9) + sArr(I, 11)
                    If sArr(I, 10) = "Xu" & ChrW(7845) & "t" Then dArr(R, 8) = dArr(R, 8) + sArr(I, 11): dArr(R, 9) = dArr(R, 9) - sArr(I, 11)
                End If
            End If
        End If
    End If
Next
If K Then
    Range("P4").Resize(1000, 9).ClearContents
    Range("P4").Resize(K, 9).Value = dArr
  
    Dim SortRng As Range, ColSort
    ColSort = Array(0, 1, 2, 3, 4, 5)
    With ActiveSheet
    Set SortRng = .Range("P3").Resize(K + 1)
        With .Sort
            .SortFields.Clear
            For R = LBound(ColSort) To UBound(ColSort)
                .SortFields.Add SortRng.Offset(, ColSort(R))
            Next
            .SetRange SortRng.Resize(, 9)
            .Header = xlYes
            .Apply
        End With
    End With
End If
Application.ScreenUpdating = True
End Sub

Tiếng Việt mà đưa vào để khiển được code quả là kỳ công. Rất trân trọng sự nhiệt tình của anh lắm.
Anh cho em hỏi thêm 1 tý :Khi em nhập thêm dữ liệu ở vùng A:L thì khi chạy code lại sẽ cập nhật tiếp cho vùng P:X chứ anh ?

khi ta 20 · 10/5/18

Mộng Thường 2001 đã viết:
Chắc do bạn xài Excel cũ hơn.
Bạn xem file kèm, bản này tôi cập nhật theo file bạn cung cấp tại bài #6
hihi ^o^

Mình xài Excel 2010 đó bạn. Thân !

Mộng Thường 2001 · 10/5/18

khi ta 20 đã viết:
Mình xài Excel 2010 đó bạn. Thân !

Vậy file mới "capnhat(3).xls" xem được chưa!?

khi ta 20 · 10/5/18

Mộng Thường 2001 đã viết:
Vậy file mới "capnhat(3).xls" xem được chưa!?

Ý tưởng chọn dấu cho xuất nhập của bạn lạ và hay, mình xin học bạn.
Bản pivot này thì không có gì, chỉ có pivot của bài #11 nhìn dể thương hơn, mà mình không biết cách làm.
Nhờ Mộng Thường bật mí tý xíu nha $//\\$ $//\\$

khi ta 20 · 10/5/18

hpkhuong đã viết:
Với tôi. Đừng hỏi...khi chưa thử. Thử rồi mới hỏi tiếp nhé...!

Cám ơn anh,Em đã kiểm tra không ngờ hay đến thế .
Vèo lẹ ghê

Mộng Thường 2001 · 10/5/18

khi ta 20 đã viết:
Ý tưởng chọn dấu cho xuất nhập của bạn lạ và hay, mình xin học bạn.
Bản pivot này thì không có gì, chỉ có pivot của bài #11 nhìn dể thương hơn, mà mình không biết cách làm.
Nhờ Mộng Thường bật mí tý xíu nha $//\\$ $//\\$

Tôi đang xài phiên bản 2016 thì có một số tính năng bổ sung cho Pivot, mà phiên bản 2010 không có.
Muốn "dể thương" thì phải "mách cúp" excel của bạn lại.

Riêng phiên bản 2010, chờ tối về nhà, do máy cùng phiên bản với bạn, tôi sẽ xem khả năng "làm đẹp" của Pivot đến đâu thì tôi sẽ gửi cho bạn cách thức đến đó.

hihi ^o^

khi ta 20 · 10/5/18

Mộng Thường 2001 đã viết:
Tôi đang xài phiên bản 2016 thì có một số tính năng bổ sung cho Pivot, mà phiên bản 2010 không có.
Muốn "dể thương" thì phải "mách cúp" excel của bạn lại.

Riêng phiên bản 2010, chờ tối về nhà, do máy cùng phiên bản với bạn, tôi sẽ xem khả năng "làm đẹp" của Pivot đến đâu thì tôi sẽ gửi cho bạn cách thức đến đó.

hihi ^o^

Thì ra là rứa,cám ơn bạn nhiều

Cập nhật dữ liệu theo nhiều tiêu chí (3 người xem)

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

Thành viên thường trực

File đính kèm

|||||||||||||

Thành viên tiêu biểu

Thành viên tiêu biểu

Thành viên thường trực

Thành viên thường trực

File đính kèm

Thành viên tiêu biểu

File đính kèm

Thành viên thường trực

Thành viên thường trực

Thành viên tiêu biểu

File đính kèm

Thành viên thường trực

Thành viên tiêu biểu

File đính kèm

Thành viên thường trực

Thành viên thường trực

Thành viên tiêu biểu

Thành viên thường trực

Thành viên thường trực

Thành viên tiêu biểu

Thành viên thường trực

Đếm ngược thời gian