Lọc dữ liệu theo khoảng thời gian mình chọn (3 người xem)

[khibennhau]

chức năng của nó y chang #21 thôi . nhưng mà nên sử dụng đoạn code #21

Mình biết là nó thực thi lệnh giống với code #21, mình muốn biết thêm ý nghĩa của đoạn code bạn viết , để có thêm kiến thức đó mà, chứ đọc vô không hiểu gì hết

 

[thanhtrung_kt_ht]

Xin lỗi, đọc toppic thấy hay nêu thêm trường hợp xảy ra nhờ mọi người xử lý dùm. Cũng muốn áp dụng vào công việc của mình. tks all

 

[thanhtrung_kt_ht]

Tự nhiên bạn chen ngang topic của người ta vậy???
[GPECODE=vb]
Option Explicit
Sub Loc3()
Application.ScreenUpdating = False
Dim DL, kq(1 To 65000, 1 To 4), Dk1, nextrow As Date, Dk2 As Date
Dim r As Long, i As Long, j As Long, Dk3 As String
Dk1 = Sheet2.[B2].Value
Dk2 = Sheet2.[D2].Value
Dk3 = Sheet2.[F2].Value
With Sheet1
DL = .Range(.[A3], .[D65000].End(3))
End With
For r = 1 To UBound(DL)
If Dk3 = Empty Then
If IsEmpty(DL(r, 1)) Then DL(r, 1) = DL(r - 1, 1)
If DL(r, 1) >= Dk1 And DL(r, 1) <= Dk2 Then
i = i + 1
If DL(r, 1) <> nextrow Then kq(i, 1) = DL(r, 1)
For j = 2 To 4
kq(i, j) = DL(r, j)
Next j
End If
nextrow = DL(r, 1)
Else
If DL(r, 3) = Dk3 Then
i = i + 1
For j = 2 To 4
kq(i, j) = DL(r, j)
Next j
End If
End If
Next r
With Sheet2
If i Then
.Range("A565000").ClearContents
.Range("A5").Resize(i, 4) = kq
Else
.Range("A565000").ClearContents
End If
End With
Application.ScreenUpdating = True
End Sub
[/GPECODE]

Không đc bạn ơi vì nếu con nó không hiện thị ngày tháng nếu chọn HN hay lao cai

 

[Elizabeth Joy]

Joy cũng có câu hỏi tương tự như bạn chủ Topic.
Dữ liệu: 23-1am: Tý , 1-3AM: Sửu, 3-5am: Dần
Có cách nào để khi Joy nhập giờ sinh: 2.30am thì ra được kết quả là : Dần
Joy ko biết về Code ạ.
Các sư huynh, tỷ, đệ, muội chỉ Joy với ạ. Thanks!

 

[chipham7777777]

[GPECODE=vb]
Option Explicit
Sub Loc()
Application.ScreenUpdating = False
Dim DL, kq(1 To 65000, 1 To 4), Dk1 As Date, Dk2 As Date
Dim r As Long, i As Long, j As Long, Dk3 As String
Dk1 = Sheet2.[B2].Value
Dk2 = Sheet2.[D2].Value
Dk3 = Sheet2.[F2].Value
DL = Sheet1.Range("A265000")
For r = 2 To UBound(DL)
If DL(r, 1) >= Dk1 And DL(r, 1) <= Dk2 And DL(r, 3) = Dk3 Then
i = i + 1
For j = 1 To 4
kq(i, j) = DL(r, j)
Next j
End If
Next r
If i Then
Sheet2.Range("A565000").ClearContents
Sheet2.Range("A5").Resize(i, 4) = kq
Else
Sheet2.Range("A565000").ClearContents
End If
Application.ScreenUpdating = True
End Sub
[/GPECODE]

khi mình không chọn venue nào thì tự hiểu là lọc tất cả venue thì thêm code như nào ạ, với code hiện tại thì khi không chọn venue thì nó không lọc bất cứ cái nào ạ. Cảm ơn bạn nhiều!

 

[namlun238]

Dùng công thức thì thử cái này
sheet report
A5=IFERROR(INDIRECT("data!"&ADDRESS(SUMPRODUCT(LARGE((data!$A$3:$A$9>=$B$2)*(data!$A$3:$A$9<=$D$2)*ROW(data!$A$3:$A$9),ROWS($A$5:A5))),COLUMN())),"")
copy xuống dưới và sang ngang

NẾU NHƯ DÙNG CÔNG THỨCTRÊN, THÌ VỪA DÒ TÌM NGÀY THÁNG VỪA TÌM THEO DỮ LIỆU " VENUE " NHƯ TRONG FILE CỦA BẠN KIA THÌ LÀM SAO Ạ? GIÚP EM Ạ. E CŨNG CẦN

 

[Hoàng Tuấn 868]

NẾU NHƯ DÙNG CÔNG THỨCTRÊN, THÌ VỪA DÒ TÌM NGÀY THÁNG VỪA TÌM THEO DỮ LIỆU " VENUE " NHƯ TRONG FILE CỦA BẠN KIA THÌ LÀM SAO Ạ? GIÚP EM Ạ. E CŨNG CẦN

Bạn nên tham khảo tại đây nhé.