Nhờ Anh Chị và các Bạn giúp Em viết thêm code gián giá trị danh sách mặt hàng (1 người xem)

[ndhmoney686]

Hiện tại Em đang sử dụng code hàm tự tạo siêu tầm trên GPE. Để lọc ra một danh sách duy nhất.

Nếu dùng hàm counta đếm vùng danh sách duy nhất đó từ A13:A29 thì nó cho kết quả 17 (cứ có công thức là nó đếm). Em muốn kết quả nó đếm là những mặt hàng thực có trong danh sách là 6 (ví dụ cột C).

Anh chị và các Bạn có thể giúp Em code vào cột C để cho kết quả như mong đợi và test thử Counta C13:C29 nó sẽ là 6

Mong Anh chị và các bạn giúp đỡ. Cám ơn Anh chị và các bạn nhiều!


p/s: Mục đích của em xử lý vấn đề trên để name động chọn vùng dữ liệu đc chính xác.

 

[hoamattroicoi]

Cám ơn các bạn! chớp mắt phát kết quả có ngay. Thật tuyệt vời.

Người bạn phải cảm ơn là anh bạn hpkhuong kìa viết cho bạn cái code chớp mắt có kết quả ngay chứ công thức của mình với 2000 dòng thì chớp đến lồi mắt nó vẫn chưa cho ra kết quả. hahahaha

 

[ndhmoney686]

Người bạn phải cảm ơn là anh bạn hpkhuong kìa viết cho bạn cái code chớp mắt có kết quả ngay chứ công thức của mình với 2000 dòng thì chớp đến lồi mắt nó vẫn chưa cho ra kết quả. hahahaha

Cám ơn bạn hpkhuong rất nhiều! GPE nhiều cao thủ võ lâm quá. Hihi....

 

[ndhmoney686]

Cám ơn Anh hpkhuong! Hôm cuối tuần may quá có Anh giúp đỡ viết code lọc ngày duy nhất và sắp xếp theo thứ tự tăng dần.

Em muốn nhờ Anh một chút là: Hôm trước cột giá trị nằm ở cột B, bây giờ em chuyển nó sang cột G thì mình phải sửa thông số nào ở trong code được Anh nhỉ? Mong Anh chỉ giúp Em. Cám ơn Anh!

Private Sub Worksheet_Activate()Dim sArr(), I&, J&, Dic As Object, dArr, K&, Tmp
With Sheet1
    sArr = .Range(.[A2], .[A65000].End(3)).Resize(, 2).Value
End With
ReDim dArr(1 To UBound(sArr), 1 To UBound(sArr, 2))
Set Dic = CreateObject("Scripting.Dictionary")
With Dic
    For I = 1 To UBound(sArr, 1)
        Tmp = sArr(I, 1)
        If Not .Exists(Tmp) Then
            K = K + 1
            .Add Tmp, K
            For J = 1 To UBound(sArr, 2)
                dArr(K, J) = sArr(I, J)
            Next J
        Else
            dArr(.Item(Tmp), 2) = dArr(.Item(Tmp), 2) + sArr(I, 2)
        End If
    Next I
End With
With Sheet3
        .Range("A2:B65000").ClearContents
    If K Then
        .Range("A2").Resize(K, 2).Value = dArr
        .Range("A2").Resize(K, 2).Sort Sheet3.Range("A1"), xlAscending
    End If
End With
Set Dic = Nothing
End Sub

[/QUOTE]

 

[ndhmoney686]

Bạn trích dẫn code trên post # 27 khác so với code trong file.
Vả lại cột giá trị bạn đang nói là ở sheet nào? Sheet chart hay data
Mà cột Ngày với cột giá trị nó phải đi chung chứ....

Bạn trình bày không rõ ràng thì thua...

Anh ơi cột giá trị ở sheet Data. Vùng tham chiếu Anh ạ. Cột ngày và cột giá trị cách nhau vài cột thì có sao ko ạ? Phần code trên em copy lại từ file đính kèm rồi ạ. Cám ơn Anh!