Lọc dữ liệu bằng VBA

vanlan_ks · 28/8/21

Nhờ a / c lọc sheet sang giúp dữ liệu bằng VBA.
do yêu cầu lọc sang sheet và copy sang sheet khác hiển thị một số cột cần thiết thôi.

HUONGHCKT · 28/8/21

vanlan_ks đã viết:
Nhờ a / c lọc sheet sang giúp dữ liệu bằng VBA.
do yêu cầu lọc sang sheet và copy sang sheet khác hiển thị một số cột cần thiết thôi.

Thu xem. Hay thay doi o C2 va xem ket qua

Maika8008 · 28/8/21

HUONGHCKT đã viết:
Thu xem. Hay thay doi o C2 va xem ket qua

Bạn nên thêm hàm Ucase chỗ biến DK và so sánh mã số phòng trường hợp gõ Vp thì không có kết quả.
Và chỗ

Mã:

If t Then Sheet2.[A5].Resize(t, 10) = KQ
Sheet2.[H5].Resize(t).NumberFormat = "mm/dd/yyyy"

sửa thành

Mã:

If t Then 
     Sheet2.[A5].Resize(t, 10) = KQ
     Sheet2.[H5].Resize(t).NumberFormat = "mm/dd/yyyy"
end if

Chứ nếu t=0 thì dòng Sheet2.[H5].Resize(t).NumberFormat = "mm/dd/yyyy" bị lỗi

vanlan_ks · 28/8/21

Maika8008 đã viết:
Bạn nên thêm hàm Ucase chỗ biến DK và so sánh mã số phòng trường hợp gõ Vp thì không có kết quả.
Và chỗ

Mã:

If t Then Sheet2.[A5].Resize(t, 10) = KQ Sheet2.[H5].Resize(t).NumberFormat = "mm/dd/yyyy"

sửa thành

Mã:

If t Then Sheet2.[A5].Resize(t, 10) = KQ Sheet2.[H5].Resize(t).NumberFormat = "mm/dd/yyyy" end if

Chứ nếu t=0 thì dòng Sheet2.[H5].Resize(t).NumberFormat = "mm/dd/yyyy" bị lỗi

A cho e xin file đã sửa lại như trên giúp

Maika8008 · 28/8/21

vanlan_ks đã viết:
A cho e xin file đã sửa lại như trên giúp

Code đã sửa:

Rich (BB code):

Sub LOC()
    Dim j&, Lr&, t&, k&
    Dim Arr(), S, tmp, DK
    Lr = Sheet1.Cells(Rows.Count, 1).End(3).Row
    Arr = Sheet1.Range("A4:P" & Lr).Value
    ReDim KQ(1 To UBound(Arr), 1 To 10)
    DK = UCase(Sheet2.Cells(2, 3))
    For j = 1 To UBound(Arr)
        If UCase(Arr(j, 5)) = DK Then
            t = t + 1
            KQ(t, 1) = t
            For k = 2 To 7
                KQ(t, k) = Arr(j, k)
            Next k
            KQ(t, 8) = Arr(j, 12)
            KQ(t, 9) = Arr(j, 14)
            KQ(t, 10) = Arr(j, 15)
        End If
    Next j
    If t Then
        Sheet2.[A5].Resize(t, 10) = KQ
        Sheet2.[H5].Resize(t).NumberFormat = "mm/dd/yyyy"
    End If
End Sub

vanlan_ks · 28/8/21

Maika8008 đã viết:

Code đã sửa:

Rich (BB code):

Sub LOC()
    Dim j&, Lr&, t&, k&
    Dim Arr(), S, tmp, DK
    Lr = Sheet1.Cells(Rows.Count, 1).End(3).Row
    Arr = Sheet1.Range("A4:P" & Lr).Value
    ReDim KQ(1 To UBound(Arr), 1 To 10)
    DK = UCase(Sheet2.Cells(2, 3))
    For j = 1 To UBound(Arr)
        If UCase(Arr(j, 5)) = DK Then
            t = t + 1
            KQ(t, 1) = t
            For k = 2 To 7
                KQ(t, k) = Arr(j, k)
            Next k
            KQ(t, 8) = Arr(j, 12)
            KQ(t, 9) = Arr(j, 14)
            KQ(t, 10) = Arr(j, 15)
        End If
    Next j
    If t Then
        Sheet2.[A5].Resize(t, 10) = KQ
        Sheet2.[H5].Resize(t).NumberFormat = "mm/dd/yyyy"
    End If
End Sub

Cám ơn bạn nhiều

Bài đã được tự động gộp: 28/8/21

vanlan_ks đã viết:
Cám ơn bạn nhiều

Làm sao để xoá kết quả cũ (lọc điều kiện trước vậy bạn).

BuiQuangThuan · 28/8/21

vanlan_ks đã viết:
Cám ơn bạn nhiều

Bài đã được tự động gộp: 28/8/21

Làm sao để xoá kết quả cũ (lọc điều kiện trước vậy bạn).

Thử code

Mã:

Sub ABC()
    Dim Arr(), Res(), i&, BP$, K&, X&
    With Sheets("DATA")
        Arr = .Range("A4:O" & .Range("B" & Rows.Count).End(3).Row).Value
    End With
    BP = Sheets("L-BO PHAN").Range("C2").Value
    ReDim Res(1 To UBound(Arr, 1), 1 To 10)
    For i = 1 To UBound(Arr, 1)
        If Arr(i, 5) = BP Then
            K = K + 1
            Res(K, 1) = K
            For X = 2 To 7
                Res(K, X) = Arr(i, X)
            Next
            Res(K, 8) = Arr(i, 12)
            Res(K, 9) = Arr(i, 14)
            Res(K, 10) = Arr(i, 15)
        End If
    Next
    With Sheets("L-BO PHAN")
        .Range("A5:J1000").ClearContents
        If K Then .Range("A5").Resize(K, 10).Value = Res
    End With
End Sub

vanlan_ks · 28/8/21

buiquangthuan đã viết:

Try code

Mã:

 Sub ABC ()
    Dim Arr (), Res (), i &, BP $, K &, X &
    Với Trang tính ("DỮ LIỆU")
        Arr = .Range ("A4: O" & .Range ("B" & Rows.Count) .End (3) .Row). Giá trị
    Kết thúc với
    BP = Trang tính ("L-BO PHAN"). Phạm vi ("C2"). Giá trị
    ReDim Res (1 đến UBound (Arr, 1), 1 đến 10)
    Đối với i = 1 Đến UBound (Arr, 1)
        Nếu Arr (i, 5) = BP Thì
            K = K + 1
            Res (K, 1) = K
            Đối với X = 2 đến 7
                Res (K, X) = Arr (i, X)
            Kế tiếp
            Res (K, 8) = Arr (i, 12)
            Res (K, 9) = Arr (i, 14)
            Res (K, 10) = Arr (i, 15)
        Kết thúc nếu
    Kế tiếp
    Với Trang tính ("L-BO PHAN")
        .Range ("A5: J1000"). ClearContents
        If K Then .Range ("A5"). Thay đổi kích thước (K, 10) .Value = Res
    Kết thúc với
Kết thúc Sub
[/MÃ SỐ]
[/QUOTE]
Vâng cám ơn bạn đã giúp rất nhiều, mình mới chạy thử thấy ổn

HUONGHCKT · 28/8/21

Maika8008 đã viết:
Bạn nên thêm hàm Ucase chỗ biến DK và so sánh mã số phòng trường hợp gõ Vp thì không có kết quả.
Và chỗ

Mã:

If t Then Sheet2.[A5].Resize(t, 10) = KQ Sheet2.[H5].Resize(t).NumberFormat = "mm/dd/yyyy"

sửa thành

Mã:

If t Then Sheet2.[A5].Resize(t, 10) = KQ Sheet2.[H5].Resize(t).NumberFormat = "mm/dd/yyyy" end if

Chứ nếu t=0 thì dòng Sheet2.[H5].Resize(t).NumberFormat = "mm/dd/yyyy" bị lỗi

Cảm ơn anh đã chỉ giáo và cho tôi một kinh nghiệm quý báu.

Cá ngừ F1 · 28/8/21

Bài này dùng công cụ Advanced Filter cũng rất tuyệt vời mà, bạn thử nhé

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2]) Is Nothing Then
   Rows("5:1000").Clear
   Sheet1.[B3:Q10000].AdvancedFilter 2, [C1:C2], [B4:J4]
   [A4].CurrentRegion.Borders.Value = 1
   If [B5] <> "" Then Range([B5], [B65536].End(3)).Offset(, -1) = [row(a:a)]
End If
End Sub

HUONGHCKT · 28/8/21

vanlan_ks đã viết:
Cám ơn bạn nhiều

Bài đã được tự động gộp: 28/8/21

Làm sao để xoá kết quả cũ (lọc điều kiện trước vậy bạn).

Gửi lại bạn File đã sửa code theo gợi ý của anh Maika8008. Trong file đã làm thêm cho bạn Data validation ở ô C2. khi click chọn kết quả sẽ được thể hiện bên dưới.

tranhungdao12a3 · 29/8/21

Tạo một slicer trong Pivot là được rồi. Công việc này cần gì code kiếc cho phức tạp bạn:

Cá ngừ F1 · 29/8/21

Nói chung một bài toán sẽ có nhiều cách giải.
Tuy nhiên, nếu chủ topic mới làm quen với VBA, cùng với dữ liệu đầu vào khá đẹp này thì trước mắt nên thử với công cụ Advanced Filter.
Đầu tiên làm bằng tay từng bước, sau đó record macro lại, thế là có đoạn code VBA cho riêng mình.
Chúc thành công !!!

kimsontrai18 · 31/8/21

HUONGHCKT đã viết:
Gửi lại bạn File đã sửa code theo gợi ý của anh Maika8008. Trong file đã làm thêm cho bạn Data validation ở ô C2. khi click chọn kết quả sẽ được thể hiện bên dưới.

Anh cho hỏi, giờ muốn thay đổi cột lọc dữ liệu thì mình phải sửa code như thế nào (e tùy biến theo dữ liệu của mình).
Giả sử em lọc cột Trình độ NV.
Cám ơn

Cá ngừ F1 · 31/8/21

kimsontrai18 đã viết:
Anh cho hỏi, giờ muốn thay đổi cột lọc dữ liệu thì mình phải sửa code như thế nào (e tùy biến theo dữ liệu của mình).
Giả sử em lọc cột Trình độ NV.
Cám ơn

Với File bài #10
ô C1 bản sửa thành Trình độ NV
ô C2 Clear Data Validation (vì đang là Validation cho Bộ phận), xong nhập trình độ muốn lọc vào C2 => xong.

huonglien1901 · 31/8/21

kimsontrai18 đã viết:
Anh cho hỏi, giờ muốn thay đổi cột lọc dữ liệu thì mình phải sửa code như thế nào (e tùy biến theo dữ liệu của mình).
Giả sử em lọc cột Trình độ NV.
Cám ơn

Taọ 01 validation rồi sửa đoạn này!
If Arr(j, 9) = DK Then Thay số 5 thành số 9.

Cá ngừ F1 · 31/8/21

huonglien1901 đã viết:
Taọ 01 validation rồi sửa đoạn này!
If Arr(j, 9) = DK Then Thay số 5 thành số 9.

Dùng mảng để lọc với bài này là giải pháp tốt, tuy nhiên mà tác giả muốn đảo vị trí các cột kết quả, bổ sung thêm trường và một vài điều kiện lọc nữa thì sửa code cũng khá nhọc.

kimsontrai18 · 31/8/21

huonglien1901 đã viết:
Taọ 01 validation rồi sửa đoạn này!
If Arr(j, 9) = DK Then Thay số 5 thành số 9.

Em còn một vấn đề nữa là nếu điều kiện lọc là số thì không ra được kết quả, không chạy được.
Vì máy dùng chung nhiều người, một số thì biết chút ít excel nên lọc thủ công được, số còn lại không làm được, nên e trích lọc sang sheet khác là vậy. E dùng công thức nhưng chạy chậm quá nên nhờ giúp VBA.
Trân trọng cám ơn

huonglien1901 · 31/8/21

kimsontrai18 đã viết:
Em còn một vấn đề nữa là nếu điều kiện lọc là số thì không ra được kết quả, không chạy được.
Vì máy dùng chung nhiều người, một số thì biết chút ít excel nên lọc thủ công được, số còn lại không làm được, nên e trích lọc sang sheet khác là vậy. E dùng công thức nhưng chạy chậm quá nên nhờ giúp VBA.
Trân trọng cám ơn

bạn muốn lọc gì? bạn gửi yêu cầu lên đi.

Cá ngừ F1 · 31/8/21

kimsontrai18 đã viết:
Em còn một vấn đề nữa là nếu điều kiện lọc là số thì không ra được kết quả, không chạy được.
Vì máy dùng chung nhiều người, một số thì biết chút ít excel nên lọc thủ công được, số còn lại không làm được, nên e trích lọc sang sheet khác là vậy. E dùng công thức nhưng chạy chậm quá nên nhờ giúp VBA.
Trân trọng cám ơn

Yêu cầu của bạn cụ thể như thế nào?
Bạn nên mở một chủ để mới và hỏi cụ thể hơn, đừng chèn vào Topic của người khác.

Lọc dữ liệu bằng VBA

Thành viên chính thức

File đính kèm

Zalo 0986997214

File đính kèm

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên chính thức

Zalo 0986997214

( ͡° ͜ʖ ͡°)

File đính kèm

Zalo 0986997214

File đính kèm

Thành viên thường trực

File đính kèm

( ͡° ͜ʖ ͡°)

Thành viên mới

( ͡° ͜ʖ ͡°)

GPE là ngôi nhà thứ 2 của tôi!!!

File đính kèm

( ͡° ͜ʖ ͡°)

Thành viên mới

GPE là ngôi nhà thứ 2 của tôi!!!

( ͡° ͜ʖ ͡°)

Facebook

Group