nhờ mọi người giúp làm cách nào để tự động lọc bảng dữ liệu từ ngày A đến ngày B với ạ

Liên hệ QC

phamcong8x

Thành viên mới
Tham gia
10/8/10
Bài viết
9
Được thích
0
Nhờ mội người giúp mình làm thế nào để lọc dữ liệu tự động theo ngày tháng
 

File đính kèm

Dung VBA ban nhe, ban giai thich cho minh de hieu dc ko
PHP:
Option Explicit

Sub Filter_Date()

Dim SArr, Result
Dim DateStart, DateEnd As Date
Dim i, j, k As Integer

DateStart = Range("B5").Value
DateEnd = Range("D5").Value
SArr = Sheet1.Range("A8:C" & Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row).Value
ReDim Result(1 To UBound(SArr, 1), 1 To UBound(SArr, 2))
    For i = 1 To UBound(SArr, 1)
        If SArr(i, 1) >= DateStart And SArr(i, 1) <= DateEnd Then
            j = j + 1
            k = k + SArr(j, 3)
            Result(j, 1) = SArr(i, 1)
            Result(j, 2) = SArr(i, 2)
            Result(j, 3) = SArr(i, 3)
        End If
    Next
    Result(j + 1, 3) = k
Range("A8").Resize(UBound(Result, 1), UBound(Result, 2)).Value = Result
End Sub

Bạn nhập ngày vào 2 ô B5D5 nhé
 
Bài #5 cũng sai tuốt vì không có Comment chú thích (Bài 3 yêu cầu giải thích).
1. Tôi tin chắc là từ "giải thích" của thớt không giống như bạn nghĩ.
2. Tôi cũng tin chắc là tác giả bài #5 sẽ sẵn sàng nếu thớt hỏi tiếp. Lỡ leo lên đài rồi, xuống còn gì mặt mũi.
 
Thật ra là thấy mỗi chữ VBA nên là cứ gõ bừa ra chứ cũng không hiểu được câu bạn kia nói :))
 
Web KT

Bài viết mới nhất

Back
Top Bottom