Viết code tự động tổng hợp số lượng

[tvxdgt]

Em có một vấn đề nhờ mọi người chỉ cho ạ, em có một bảng thống kê công trình giờ em muốn viết một đoạn code tự động tổng hợp số lượng từng loại cống được không ạ. Chứ mỗi lần thống kê làm bằng tay viết hàm counif thì lâu và sợ bị sót loại cống.

 

[ndu96081631]

Em có một vấn đề nhờ mọi người chỉ cho ạ, em có một bảng thống kê công trình giờ em muốn viết một đoạn code tự động tổng hợp số lượng từng loại cống được không ạ. Chứ mỗi lần thống kê làm bằng tay viết hàm counif thì lâu và sợ bị sót loại cống.

Cài này thì cần gì code! Sao bạn không dùng PivotTable mà tổng hợp
Với file của bạn, chỉ cần thêm 1 cột phụ xác định LOẠI CỐNG (là cống tròn hay cống hộp) sau đó PivotTable 1 phát xong ngay






















Sau này, dữ liệu thay đổi, chỉ cần Refresh Data là kết quả cập nhật ngay lập tức

 

[TrungChinhs]

Em có một vấn đề nhờ mọi người chỉ cho ạ, em có một bảng thống kê công trình giờ em muốn viết một đoạn code tự động tổng hợp số lượng từng loại cống được không ạ. Chứ mỗi lần thống kê làm bằng tay viết hàm counif thì lâu và sợ bị sót loại cống.

Nếu thích Code thì dùng thử củ chuối này xem có được không ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [c:c]) Is Nothing Then
    [e:f].ClearContents
    With Range([c1], [c65000].End(3))
        .AdvancedFilter 2, [e1], Unique:=True
        .Offset(1, 2).Sort [e2], 1
    End With
    With Range([e2], [e65000].End(3)).Offset(, 1)
        .Value = "=COUNTIF(R2C3:R" & [c65000].End(3).Row & "C3,RC[-1])"
        .Value = .Value
        .NumberFormat = "#"" cái"""
    End With
    [e1] = "TONG HOP"
End If
End Sub