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

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
K

khibennhau

Thành viên mới
Tham gia
7/1/12
Bài viết
24
Được thích
1
Chào các bác,

Giả sử mình có một sheet có tên "Data" dữ liệu nhập theo ngày tháng năm, ở sheet "report" mình muốn mọi dữ liệu trong khoảng thời gian mình chọn sẽ xuất hiện ở sheet này. Mình phải làm sao, mong mọi người giúp. Cảm ơn mọi người nhiều.
 

File đính kèm

khibennhau đã viết:
Chào các bác,

Giả sử mình có một sheet có tên "Data" dữ liệu nhập theo ngày tháng năm, ở sheet "report" mình muốn mọi dữ liệu trong khoảng thời gian mình chọn sẽ xuất hiện ở sheet này. Mình phải làm sao, mong mọi người giúp. Cảm ơn mọi người nhiều.
Nhấp chuột vào đây để mở rộng...

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
 
gtri đã viết:
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
Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn, dữ liệu mình định làm hơn 20.000 dòng, kéo công thức chắc chết @$@!^%
 
hpkhuong đã viết:
Bạn có thể dùng công cụ Advanced Filter của Excel để trích lọc dữ liệu.
Nếu chưa biết sử dụng AF thì tham khảo link sau: http://www.giaiphapexcel.com/forum/...ìm-hiểu-trích-lọc-dữ-liệu-với-Advanced-Filter

Nếu muốn code thì thử đoạn này
Mã: 
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
    Dk1 = Sheet2.[B2].Value
    Dk2 = Sheet2.[D2].Value
    DL = Sheet1.Range("A2:D65000")
        For r = 2 To UBound(DL)
            If DL(r, 1) >= Dk1 And Dk1 <> Empty And DL(r, 1) <= Dk2 And Dk2 <> Empty 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("A5:D65000").ClearContents
        Sheet2.Range("A5").Resize(i, 4) = kq
    Else
        Sheet2.Range("A5:D65000").ClearContents
    End If
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn nhiều, đúng là mình đang cần code để chạy }}}}}, mình chạy code được rồi /-*+/
 
hpkhuong đã viết:
Bạn có thể dùng công cụ Advanced Filter của Excel để trích lọc dữ liệu.
Nếu chưa biết sử dụng AF thì tham khảo link sau: http://www.giaiphapexcel.com/forum/...ìm-hiểu-trích-lọc-dữ-liệu-với-Advanced-Filter

Nếu muốn code thì thử đoạn này
Mã: 
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
    Dk1 = Sheet2.[B2].Value
    Dk2 = Sheet2.[D2].Value
    DL = Sheet1.Range("A2:D65000")
        For r = 2 To UBound(DL)
            If DL(r, 1) >= Dk1 And Dk1 <> Empty And DL(r, 1) <= Dk2 And Dk2 <> Empty 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("A5:D65000").ClearContents
        Sheet2.Range("A5").Resize(i, 4) = kq
    Else
        Sheet2.Range("A5:D65000").ClearContents
    End If
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Bạn có thể giúp mình thêm xíu, cũng điều kiện lọc như trên, giờ mình muốn lọc thêm "venue" trong bảng đó thì phải sửa code như thế nào bạn. Cảm ơn bạn nhiều.
 

File đính kèm

hpkhuong đã viết:
[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("A2:D65000")
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("A5:D65000").ClearContents
Sheet2.Range("A5").Resize(i, 4) = kq
Else
Sheet2.Range("A5:D65000").ClearContents
End If
Application.ScreenUpdating = True
End Sub
[/GPECODE]
Nhấp chuột vào đây để mở rộng...

Bạn ơi cho mình hỏi, dữ liệu cột "Date" có nhiều ngày giống nhau, mình gộp lại, khi chạy bên sheet "report" thì nó chỉ hiện thị ngày đầu tiên. Vậy mình không gộp lại được hay phải sử dụng cấu trúc hàm khác. Cảm ơn bạn.
 
hpkhuong đã viết:
Nói vậy tôi không hiểu. Làm vào file. Gửi lên kèm giải thích thì mới có thể hiểu và giúp cho bạn dc
Nhấp chuột vào đây để mở rộng...

Ở sheet "data", cột "Date" có những ngày có nhiều sự kiện, mình "merge" những ngày đó lại. Khi chạy đoạn code thì nó chỉ hiện dữ liệu đầu tiên của ngày mà nó tìm thấy. Ví dụ: ngày 15/02/2015 có 4 sự kiện, khi chạy code thì nó chỉ hiện 1 sự kiện đầu tiên.

Mình muốn nó xuất dữ liệu giống như bên sheet "data" thì phải làm sao. Cảm ơn bạn.
 

File đính kèm

khibennhau đã viết:
Ở sheet "data", cột "Date" có những ngày có nhiều sự kiện, mình "merge" những ngày đó lại. Khi chạy đoạn code thì nó chỉ hiện dữ liệu đầu tiên của ngày mà nó tìm thấy. Ví dụ: ngày 15/02/2015 có 4 sự kiện, khi chạy code thì nó chỉ hiện 1 sự kiện đầu tiên.

Mình muốn nó xuất dữ liệu giống như bên sheet "data" thì phải làm sao. Cảm ơn bạn.
Nhấp chuột vào đây để mở rộng...

Tốt nhất cho bây giờ và cho sau này là đừng Merge Cells bên Data
 
khibennhau đã viết:
Ở sheet "data", cột "Date" có những ngày có nhiều sự kiện, mình "merge" những ngày đó lại. Khi chạy đoạn code thì nó chỉ hiện dữ liệu đầu tiên của ngày mà nó tìm thấy. Ví dụ: ngày 15/02/2015 có 4 sự kiện, khi chạy code thì nó chỉ hiện 1 sự kiện đầu tiên.

Mình muốn nó xuất dữ liệu giống như bên sheet "data" thì phải làm sao. Cảm ơn bạn.
Nhấp chuột vào đây để mở rộng...

ngồi buồi quá, nhiều chuyện chút
code trong file bạn, chỉnh lại chút
Mã: 
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
    Dk1 = Sheet2.[B2].Value
    Dk2 = Sheet2.[D2].Value
    With Sheet1
        DL = .Range(.[a3], .[d60000].End(3))
    End With
        For r = 2 To UBound(DL)
        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
                    For j = 1 To 4
                        kq(i, j) = DL(r, j)
                    Next j
            End If
        Next r
    If i Then
        Sheet2.Range("A5:D65000").ClearContents
        Sheet2.Range("A5").Resize(i, 4) = kq
    Else
        Sheet2.Range("A5:D65000").ClearContents
    End If
Application.ScreenUpdating = True
End Sub
 
Let'GâuGâu đã viết:
ngồi buồi quá, nhiều chuyện chút
code trong file bạn, chỉnh lại chút
Mã: 
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
    Dk1 = Sheet2.[B2].Value
    Dk2 = Sheet2.[D2].Value
    With Sheet1
        DL = .Range(.[a3], .[d60000].End(3))
    End With
        For r = 2 To UBound(DL)
        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
                    For j = 1 To 4
                        kq(i, j) = DL(r, j)
                    Next j
            End If
        Next r
    If i Then
        Sheet2.Range("A5:D65000").ClearContents
        Sheet2.Range("A5").Resize(i, 4) = kq
    Else
        Sheet2.Range("A5:D65000").ClearContents
    End If
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...

ủa code trong file là của ai làm vậy Let' Gâu Gâu ? --=0--=0
 
Let'GâuGâu đã viết:
ngồi buồi quá, nhiều chuyện chút
code trong file bạn, chỉnh lại chút
Mã: 
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
    Dk1 = Sheet2.[B2].Value
    Dk2 = Sheet2.[D2].Value
    With Sheet1
        DL = .Range(.[a3], .[d60000].End(3))
    End With
        For r = 2 To UBound(DL)
        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
                    For j = 1 To 4
                        kq(i, j) = DL(r, j)
                    Next j
            End If
        Next r
    If i Then
        Sheet2.Range("A5:D65000").ClearContents
        Sheet2.Range("A5").Resize(i, 4) = kq
    Else
        Sheet2.Range("A5:D65000").ClearContents
    End If
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...

Có "buồn quá" thì làm theo yêu cầu này luôn đi cho "trót"
Mình muốn nó xuất dữ liệu giống như bên sheet "data" thì phải làm sao. Cảm ơn bạn.
Nhấp chuột vào đây để mở rộng...
Người ta khoái cái "mẹc" đó.
 
doveandrose đã viết:
ủa code trong file là của ai làm vậy Let' Gâu Gâu ? --=0--=0
Nhấp chuột vào đây để mở rộng...

không có coi tập đâu, coi tập cuối à, nên hỏng có biết có cao thủ võ lâm nào..........chắc của GPE.........hehehheheheh
===================
Ba Tê đã viết:
Có "buồn quá" thì làm theo yêu cầu này luôn đi cho "trót"

Người ta khoái cái "mẹc" đó.
Nhấp chuột vào đây để mở rộng...

em xin cho nó chút mắm muối bọt ngọt nữa
Mã: 
Option Explicit
Sub Loc()
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
    Dk1 = Sheet2.[B2].Value
    Dk2 = Sheet2.[D2].Value
    With Sheet1
        DL = .Range(.[a3], .[d60000].End(3))
    End With
        For r = 1 To UBound(DL)
        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)
        Next r
    If i Then
        Sheet2.Range("A5:D65000").ClearContents
        Sheet2.Range("A5").Resize(i, 4) = kq
    Else
        Sheet2.Range("A5:D65000").ClearContents
    End If
Application.ScreenUpdating = True
End Sub
 
Lần chỉnh sửa cuối:
hpkhuong đã viết:
[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("A2:D65000")
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("A5:D65000").ClearContents
Sheet2.Range("A5").Resize(i, 4) = kq
Else
Sheet2.Range("A5:D65000").ClearContents
End If
Application.ScreenUpdating = True
End Sub
[/GPECODE]
Nhấp chuột vào đây để mở rộng...

Xin lỗi bạn, cho mình phiền thêm xíu, ở #7, bạn có giúp mình đoạn code lọc cho "venue" trong khoảng thời gian mình chọn. Giờ mình muốn thêm điều kiện là khi ô lọc theo "venue" trống thì nó vẫn lọc những sự kiện diễn ra trong khoảng thời gian mình chọn thì phải thêm hay sửa code thế nào. Cảm ơn bạn.
 

File đính kèm

hpkhuong đã viết:
[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
With Sheet1
DL = .Range(.[A3], .[D65000].End(3))
End With
For r = 2 To UBound(DL)
If DL(r, 1) >= Dk1 And DL(r, 1) <= Dk2 And (DL(r, 3) = Dk3 Or Dk3 = Empty) Then
i = i + 1
For j = 1 To 4
kq(i, j) = DL(r, j)
Next j
End If
Next r
With Sheet2
If i Then
.Range("A5:D65000").ClearContents
.Range("A5").Resize(i, 4) = kq
Else
.Range("A5:D65000").ClearContents
End If
End With
Application.ScreenUpdating = True
End Sub
[/GPECODE]
Nhấp chuột vào đây để mở rộng...

code dữ quá hic
mình chỉ biết làm cách "yếu đuối" vầy thôi . hi hi

Mã: 
Public Sub hello()
With Worksheets("report")
    .[H2].Value = "=AND( data!A3>=$B$2,data!A3<=$D$2,OR($F$2="""",data!C3=$F$2))"
    Sheet1.Range("A2:D" & Sheet1.[C1000000].End(xlUp).Row).AdvancedFilter xlFilterCopy, _
    .[H1:H2], .[A4:D4]
    .[H2].ClearContents
End With
End Sub
 
hpkhuong đã viết:
[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
With Sheet1
DL = .Range(.[A2], .[D65000].End(3))
End With
For r = 2 To UBound(DL)
If DL(r, 1) >= Dk1 And DL(r, 1) <= Dk2 And (DL(r, 3) = Dk3 Or Dk3 = Empty) Then
i = i + 1
For j = 1 To 4
kq(i, j) = DL(r, j)
Next j
End If
Next r
With Sheet2
If i Then
.Range("A5:D65000").ClearContents
.Range("A5").Resize(i, 4) = kq
Else
.Range("A5:D65000").ClearContents
End If
End With
Application.ScreenUpdating = True
End Sub
[/GPECODE]
Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn nhiều nha /-*+/
 
doveandrose đã viết:
code dữ quá hic
mình chỉ biết làm cách "yếu đuối" vầy thôi . hi hi

Mã: 
Public Sub hello()
With Worksheets("report")
    .[H2].Value = "=AND( data!A3>=$B$2,data!A3<=$D$2,OR($F$2="""",data!C3=$F$2))"
    Sheet1.Range("A2:D" & Sheet1.[C1000000].End(xlUp).Row).AdvancedFilter xlFilterCopy, _
    .[H1:H2], .[A4:D4]
    .[H2].ClearContents
End With
End Sub
Nhấp chuột vào đây để mở rộng...

Bạn giải thích đoạn code này giúp mình với, mình không hiểu gì hết (@$%@
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER (12 người xem)
Trả lời
0
Đọc
10
GPE-Trợ Lý
GPE-Trợ Lý
D
  • Question Question
Quản lý email outlook qua VBA cần giúp đỡ (1 người xem)
Trả lời
10
Đọc
137
nguyendang95
N
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
1
Đọc
75
khkkh
K
G
Xin Code xóa Module.
Trả lời
0
Đọc
34
GCQ
G
K
Xin dax tính tỷ trọng doanh thu
Trả lời
18
Đọc
750
SteveNguyen1991
S
F
  • Question Question
Tự động Merge Mail bằng VBA
Trả lời
6
Đọc
180
Hoàng Tuấn 868
H
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính
    • Thích
Trả lời
0
Đọc
76
nguyendang95
N
H
Nhờ anh/chị giúp đỡ em viết công thức trừ dữ liệu theo FiFo (1 người xem)
Trả lời
1
Đọc
94
HieuCD
H
BNTT
LockXLS - Chương trình bảo vệ an toàn cho các file bảng tính Excel
    • Thích
4 5 6
Trả lời
118
Đọc
73K
YêuCN
Y
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện.
Trả lời
14
Đọc
191
thuytrangbp28
T
micam111
  • Question Question
Cách chạy nhiều đồng hồ đếm giờ trong VBA
Trả lời
4
Đọc
690
thuytrangbp28
T
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
26
Đọc
7K
Tuấn Bụng Bự
Tuấn Bụng Bự
Emyeuexcel
  • Question Question
In tất cả các file trong cùng 1 thư mục
Trả lời
3
Đọc
205
Hoàng Tuấn 868
H
L
Lỗi font khi convert từ pdf
Trả lời
2
Đọc
101
DeTong
D
1
Hỏi về đánh dấu hàng ngang hàng dọc bằng màu khi kích chuột vào 1 ô
Trả lời
7
Đọc
198
Gà Công Nghệ
Gà Công Nghệ
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt (1 người xem)
    • Thích
    • Yêu thích
2
Trả lời
20
Đọc
1K
Mr.hieudoanxd
Mr.hieudoanxd
P
Excell code vba : Tìm Cell để sửa dữ liệu (1 người xem)
    • Buồn
2
Trả lời
26
Đọc
577
Phạm Trường 80
P
D
Nhờ anh em giúp đỡ.
    • Buồn
Trả lời
2
Đọc
92
SA_DQ
SA_DQ
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup
Trả lời
2
Đọc
101
DeTong
D
H
Đổi số thành chữ trong office 365
Trả lời
19
Đọc
1K
HoangTan891026
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom