phamcong8x
Thành viên mới
- Tham gia
- 10/8/10
- Bài viết
- 9
- Được thích
- 0
dùng vba được không bạn ? hay chỉ dùng công thức bình thườngNhờ 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
Dung VBA ban nhe, ban giai thich cho minh de hieu dc kodùng vba được không bạn ? hay chỉ dùng công thức bình thường
Dung VBA ban nhe, ban giai thich cho minh de hieu dc ko
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ài #5 chứng minh là bạn saiKhông ai giải thích được khi bạn viết bài không có dấu tiếng Việt.
...
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).Bài #5 chứng minh là bạn sai
1. Tôi tin chắc là từ "giải thích" của thớt không giống như bạn nghĩ.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).
Bạn xem thử, không biết đã đúng ý chưa.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