Lọc dữ liệu theo tuần và ẩn dòng không có giá trị

Liên hệ QC
A

Ai_Ma_Biet

Thành viên hoạt động
Tham gia
22/4/15
Bài viết
127
Được thích
20
Giới tính
Nam
Chào Anh, Chị.

Em có dữ liệu như file đính kèm,

Sheet "Chi tiết" có dữ liệu các tuần trong năm (từ cột P đến cột W).
Em muốn lọc dữ liệu theo tuần qua sheet "bang ke theo dữ liệu ở sheet "chi tiet" với điều kiện theo tuần như sau:
Nhập tuần vào ô H1 bên sheet "bang ke" thì dữ liệu bên sheet "chi tiet" sẽ lọc qua sheet "bang ke" từ dòng B9 đến H55.
A9 đến A55 sẽ hiện số thứ tự liên tục, nếu cột B tương ứng có dữ liệu thì sẽ có số thứ tự, còn không thì để trống.
Từ dòng A9 đến H55 nếu không có dữ liệu thì ẩn những dòng này đi.

Cám ơn Anh, Chị.

Chúc đầu tuần vui vẻ.
 

File đính kèm

Giúp mình với.
 
Ai_Ma_Biet đã viết:
Cái này mỗi lần thay đổi tuần phải lọc thủ công lại hả bạn, mình có thể cho nó tự động ẩn được không.
Nhấp chuột vào đây để mở rộng...
Bạn thử với:
PHP: 
  With Sheets("Chi tiet")
        a = .Range("P2", .Range("P65000").End(3)).Resize(, 8).Value
        LR = UBound(a)
    End With
    DK = Sheets("Bang ke").Range("H1")
    ReDim b(1 To LR, 1 To 8)
    With Sheets("Bang ke")
        For i = 1 To LR
            If a(i, 8) = DK Then
                k = k + 1: b(k, 1) = k
                For j = 2 To 8
                    b(k, j) = a(i, j - 1)
                Next j
            End If
        Next i
        Sheets("Bang ke").Range("A9:H54").ClearContents
        If k Then
            With Sheets("Bang ke")
                .Range("A9").Resize(k, 8) = b
               ' .Rows(k + 9 & ":55").Hidden = True
            End With
        End If
    End With
 
Lần chỉnh sửa cuối:
phulien1902 đã viết:
Bạn thử với:
PHP: 
  With Sheets("Chi tiet")
        a = .Range("P2", .Range("P65000").End(3)).Resize(, 8).Value
        LR = UBound(a)
    End With
    DK = Sheets("Bang ke").Range("H1")
    ReDim b(1 To LR, 1 To 8)
    With Sheets("Bang ke")
        For i = 1 To LR
            If a(i, 8) = DK Then
                k = k + 1: b(k, 1) = k
                For j = 2 To 8
                    b(k, j) = a(i, j - 1)
                Next j
            End If
        Next i
        Sheets("Bang ke").Range("A9:H54").ClearContents
        If k Then
            With Sheets("Bang ke")
                .Range("A9").Resize(k, 8) = b
                .Rows(k + 9 & ":55").Hidden = True
            End With
        End If
    End With
Nhấp chuột vào đây để mở rộng...
Không được bạn ơi.
 
Ai_Ma_Biet đã viết:
Chào Anh, Chị.

Em có dữ liệu như file đính kèm,

Sheet "Chi tiết" có dữ liệu các tuần trong năm (từ cột P đến cột W).
Em muốn lọc dữ liệu theo tuần qua sheet "bang ke theo dữ liệu ở sheet "chi tiet" với điều kiện theo tuần như sau:
Nhập tuần vào ô H1 bên sheet "bang ke" thì dữ liệu bên sheet "chi tiet" sẽ lọc qua sheet "bang ke" từ dòng B9 đến H55.
A9 đến A55 sẽ hiện số thứ tự liên tục, nếu cột B tương ứng có dữ liệu thì sẽ có số thứ tự, còn không thì để trống.
Từ dòng A9 đến H55 nếu không có dữ liệu thì ẩn những dòng này đi.

Cám ơn Anh, Chị.

Chúc đầu tuần vui vẻ.
Nhấp chuột vào đây để mở rộng...
xem file đính kèm nha bạn.
 

File đính kèm

thnghiachau đã viết:
xem file đính kèm nha bạn.
Nhấp chuột vào đây để mở rộng...
Mình chỉnh lại tí:
Sử dụng array như code bạn @phulien1902 đã làm, tốc độ tăng đáng kể so với việc copy từng dòng từ Sheet2 qua Sheet1.
Nhưng mình dùng "FIND" và vòng lập chỉ những hàng đúng với tuần mà mình cần filter thôi, do đó số vòng lập giảm đi đáng kể
Bạn coi file đính kèm nha
 

File đính kèm

Góp vui, đang thiếu một số điều kiện
 

File đính kèm

Ai_Ma_Biet đã viết:
Em copy cả vào Module hay Thisworkbook hay sheet Bang ke đều không được. Code bắt đầu bằng with hình như thiếu bước khai báo.
Nhấp chuột vào đây để mở rộng...
Chắc bạn không thêm sub, end sub theo code bạn @phulien1902 , và cũng thiếu module trong worksheet là change rồi
Bài đã được tự động gộp:

Ai_Ma_Biet đã viết:
Sửa thêm nếu tuần nào không có dữ liệu thì ẩn hết các dòng từ dòng 9 đến 55 giúp mình với.
Nhấp chuột vào đây để mở rộng...
Code của bạn @phulien1902 , mình thêm tí theo yêu cầu của bạn:
Mã: 
Sub Test()
    Dim a(), b(), i&, k%, LR, j%, DK
    With Sheets("Chi tiet")
        a = .Range("P2", .Range("P65000").End(3)).Resize(, 8).Value
        LR = UBound(a)
    End With
    DK = Sheets("Bang ke").Range("H1")
    ReDim b(1 To LR, 1 To 8)
    With Sheets("Bang ke")
    .Rows("8:56").Hidden = False
        For i = 1 To LR
            If a(i, 8) = DK Then
                k = k + 1: b(k, 1) = k
                For j = 2 To 8
                    b(k, j) = a(i, j - 1)
                Next j
            End If
        Next i
        Sheets("Bang ke").Range("A9:H54").ClearContents
        If k Then
            With Sheets("Bang ke")
                .Range("A9").Resize(k, 8) = b
            End With
        End If
        .Rows(k + 9 & ":55").Hidden = True
    End With
End Sub
Bài đã được tự động gộp:

phulien1902 đã viết:
Bạn thử với:
PHP: 
  With Sheets("Chi tiet")
        a = .Range("P2", .Range("P65000").End(3)).Resize(, 8).Value
        LR = UBound(a)
    End With
    DK = Sheets("Bang ke").Range("H1")
    ReDim b(1 To LR, 1 To 8)
    With Sheets("Bang ke")
        For i = 1 To LR
            If a(i, 8) = DK Then
                k = k + 1: b(k, 1) = k
                For j = 2 To 8
                    b(k, j) = a(i, j - 1)
                Next j
            End If
        Next i
        Sheets("Bang ke").Range("A9:H54").ClearContents
        If k Then
            With Sheets("Bang ke")
                .Range("A9").Resize(k, 8) = b
                .Rows(k + 9 & ":55").Hidden = True
            End With
        End If
    End With
Nhấp chuột vào đây để mở rộng...
Bạn @phulien1902 cho hỏi, code có màu chữ thì khi dán code mình chọn mục nào vậy?
1595302440827.png
 
Lần chỉnh sửa cuối:
Nhattanktnn đã viết:
Chắc bạn không thêm sub, end sub theo code bạn @phulien1902 , và cũng thiếu module trong worksheet là change rồi
Bài đã được tự động gộp:


Code của bạn @phulien1902 , mình thêm tí theo yêu cầu của bạn:
Mã: 
Sub Test()
    Dim a(), b(), i&, k%, LR, j%, DK
    With Sheets("Chi tiet")
        a = .Range("P2", .Range("P65000").End(3)).Resize(, 8).Value
        LR = UBound(a)
    End With
    DK = Sheets("Bang ke").Range("H1")
    ReDim b(1 To LR, 1 To 8)
    With Sheets("Bang ke")
    .Rows("8:56").Hidden = False
        For i = 1 To LR
            If a(i, 8) = DK Then
                k = k + 1: b(k, 1) = k
                For j = 2 To 8
                    b(k, j) = a(i, j - 1)
                Next j
            End If
        Next i
        Sheets("Bang ke").Range("A9:H54").ClearContents
        If k Then
            With Sheets("Bang ke")
                .Range("A9").Resize(k, 8) = b
            End With
        End If
        .Rows(k + 9 & ":55").Hidden = True
    End With
End Sub
Bài đã được tự động gộp:


Bạn @phulien1902 cho hỏi, code có màu chữ thì khi dán code mình chọn mục nào vậy?
View attachment 241540
Nhấp chuột vào đây để mở rộng...
Bạn Copy Code của bạn vào
Mã: 
[php] Code ở đây[/php]
Chúc bạn thành công!
 
phulien1902 đã viết:
Bạn dùng Code sau:
PHP: 
 Code của bạn đặt vào đây nhé
Chúc bạn thành công!
Nhấp chuột vào đây để mở rộng...
Mình có gửi cái hình đó, mình hay dùng biểu tượng "</>" để dán code nhưng nó không có màu giống như của bạn. Bạn chỉ cho mình cái biểu tượng nào với
 
Nhattanktnn đã viết:
Mình có gửi cái hình đó, mình hay dùng biểu tượng "</>" để dán code nhưng nó không có màu giống như của bạn. Bạn chỉ cho mình cái biểu tượng nào với
Nhấp chuột vào đây để mở rộng...
Tôi không biết nó đặt chỗ nào, tôi thường gõ tay thủ công thôi, có mấy ký tự thôi bạn ơi.
 
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

Thanh12Loan
Xin chào các bác. Em bị lỗi khung hiển thị excell Spreadsheet.
Trả lời
2
Đọc
53
Thanh12Loan
Thanh12Loan
LuuAnh980
Tham chiếu trong công thức bị giảm.
Trả lời
4
Đọc
79
Hoàng Tuấn 868
H
GPE-Trợ Lý
[GPE] TALK SHOW HÀM QUERY - BÍ KÍP BIẾN DỮ LIỆU KHỔNG LỒ THÀNH THÔNG TIN HỮU ÍCH TRONG TÍCH TẮC
    • Thích
    • Yêu thích
Trả lời
3
Đọc
1K
VetMini
V
PhanTuHuong
CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Cảm ơn
Trả lời
2
Đọc
668
PhanTuHuong
PhanTuHuong
N
Cách đánh số thứ tự không liên tục (đánh số lại từ đầu khi cột bên cạnh có giá trị)
Trả lời
8
Đọc
180
Phuocam
Phuocam
hoamattroicoi
Trích xuất file *.xml sang Excel cho hóa đơn điện tử áp dụng nghị định 123/2020
    • Thích
    • Yêu thích
    • Cảm ơn
5 6 7
Trả lời
123
Đọc
31K
kunkoi9390
K
H
file bị lỗi value khi copy qua file mới.
Trả lời
0
Đọc
36
hoanang_bn84
H
vanle33
File không thao tác gì khi mở ra vẫn hỏi lưu lại khi tắt đi.
Trả lời
9
Đọc
145
hoangtuan.net
hoangtuan.net
H
Cách tạo nhắc nhở trong excel và tự động mở file khi có nhắc nhở
Trả lời
18
Đọc
6K
ongke0711
ongke0711
G
Chuyển Data từ hàng và cột về dạng cột
Trả lời
11
Đọc
181
ptm0412
ptm0412
quangminhici
Tặng Addin Word xuất Mail Merge có chức năng cắt ra nhiều file và gửi mail.
    • Thích
    • Yêu thích
Trả lời
16
Đọc
2K
quyenpv
quyenpv
P
Tại sao khi đánh số thì bị mất hai số cuối
Trả lời
4
Đọc
18K
vanle33
vanle33
HeSanbi
  • Đã giải quyết
LocalizeXL v1.71 - Làm nổi bật ô đang chọn và cuộn trang tự động
    • Thích
    • Yêu thích
2 3
Trả lời
58
Đọc
9K
HeSanbi
HeSanbi
linhvu2807
Lỗi hàm công thức Querry
Trả lời
0
Đọc
53
linhvu2807
linhvu2807
C
Tìm dữ liệu khác nhau trong 2 file hoặc 2 sheet trong excel
Trả lời
2
Đọc
141
HUONGHCKT
H
D
Paste dữ liệu, bỏ qua các cell ẩn
2
Trả lời
30
Đọc
46K
HUONGHCKT
H
phatnguyen7301
  • Question Question
Tạo âm thanh khi nhấn vào một phím
Trả lời
3
Đọc
155
yaaasoo01
Y
B
Xin hàm đếm số lượng khách hàng theo 1 điều kiện và bỏ dữ liệu trùng.
Trả lời
11
Đọc
484
bipbo2008
B
HeSanbi
  • Question Question
VBA Nâng cao: Hướng dẫn tạo biểu thức tìm kiếm với Regular Expression
    • Thích
    • Yêu thích
Trả lời
2
Đọc
280
HeSanbi
HeSanbi
NguyenthiH
Sao dùng Ctl + H thay thế không đúng.
Trả lời
19
Đọc
272
NguyenthiH
NguyenthiH
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
Chúc mừng năm mới.
Back
Top Bottom