Xin giúp trích lọc dữ liệu theo nhiều cột (1 người xem)

[lionsaint]

Các bác giúp em vụ này với em đang bí quá
Em muốn trích lọc dữ liệu như sau:
Ví dụ điểm ARESI có ở nhiều cột POINT, em muốn trích lọc ra tất cả các hàng có điểm ARESI thì làm sao ạ? tương tự các điểm khác cũng vậy ạ?

E xin cám ơn các bác nhìu nhìu ạ!

 

[Hai Lúa Miền Tây]

Các bác giúp em vụ này với em đang bí quá
Em muốn trích lọc dữ liệu như sau:
Ví dụ điểm ARESI có ở nhiều cột POINT, em muốn trích lọc ra tất cả các hàng có điểm ARESI thì làm sao ạ? tương tự các điểm khác cũng vậy ạ?

E xin cám ơn các bác nhìu nhìu ạ!

Từ sheet nào qua sheet nào vậy bạn? Lấy cột số mấy của sheet nào làm điều kiện lọc?

 

[lionsaint]

ak sry bác,
sheet 1 là dữ liệu bác ạ, em mún lọc từ sheet 1 qua sheet 3
Ví dụ điểm ARESI ở cột POINT IN, POINT 4, 7 đều có, e mún lọc tất cả các hàng có điểm ARESI ra ạ
Bác giúp e với, thx bác ạ

P/s: e có sửa lại file bác xem cái này cho rõ hơn

 

[Hai Lúa Miền Tây]

ak sry bác,
sheet 1 là dữ liệu bác ạ, em mún lọc từ sheet 1 qua sheet 3
Ví dụ điểm ARESI ở cột POINT IN, POINT 4, 7 đều có, e mún lọc tất cả các hàng có điểm ARESI ra ạ
Bác giúp e với, thx bác ạ

P/s: e có sửa lại file bác xem cái này cho rõ hơn

Bạn dùng code như bên dưới nhé.
[GPECODE=sql]Sub Loc_HLMT()
Dim lsSQL As String, cnn As Object, lrs As Object
Set cnn = CreateObject("ADODB.Connection")
Set lrs = CreateObject("ADODB.Recordset")
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
.Open
End With

lsSQL = "SELECT * " & _
"FROM [Du Lieu$A3:AC1000] " & _
"where [point in] like 'ARESI' or [point 4] like 'ARESI' or [point 7] like 'ARESI'"
lrs.Open lsSQL, cnn
With Sheet1
.[A13:AC1000].ClearContents
.[A13].CopyFromRecordset lrs
End With
lrs.Close: Set lrs = Nothing
cnn.Close: Set cnn = Nothing

End Sub[/GPECODE]

 

[lionsaint]

cám ơn bác nhìu
nhưng sao e chạy thì không thấy lọc được dữ liệu ở cột POINT 7 vậy bác? Vì cột POINT 7 có điểm ARESI mà lọc ra cả cột POINT 7 không có gì
Bác coi lại giúp e với
e cám ơn nhìu

 

[Hai Lúa Miền Tây]

cám ơn bác nhìu
nhưng sao e chạy thì không thấy lọc được dữ liệu ở cột POINT 7 vậy bác? Vì cột POINT 7 có điểm ARESI mà lọc ra cả cột POINT 7 không có gì
Bác coi lại giúp e với
e cám ơn nhìu

Rõ ràng là tôi chạy có mà bạn.

 

[lionsaint]

Ah được roài thx bác nhìu nhìu

 

[ndu96081631]

Rõ ràng là tôi chạy có mà bạn.

Code này mình chạy cũng chẳng thấy POINT 7 đâu
Cụ thể mất dữ liệu từ dòng 288 đến 306

 

[Hai Lúa Miền Tây]

Code này mình chạy cũng chẳng thấy POINT 7 đâu
Cụ thể mất dữ liệu từ dòng 288 đến 306

Kỳ vậy ta, Thầy có coi kết quả #6 đó là file em đã chạy từ máy của em, phần tô màu vàng, chữ màu đỏ.

 

[hungpecc1]

Kỳ vậy ta, Thầy có coi kết quả #6 đó là file em đã chạy từ máy của em, phần tô màu vàng, chữ màu đỏ.

Em cũng test lại lần chạy đàu tiên không có !, nhưng nếu em copy ARIÉSI từ cột point 4 sang point 7 thì lại được,<-- cũng hông hiểu tại sao hết ?

 

[ndu96081631]

Kỳ vậy ta, Thầy có coi kết quả #6 đó là file em đã chạy từ máy của em, phần tô màu vàng, chữ màu đỏ.

Thấy thì có thấy... nhưng bấm nút lọc 1 phát là nó bay mất tiêu luôn
Tôi chẳng biết nữa
-------------
Mà bài này Advanced Filter cũng được vậy:

Sub Main()
  Dim rng As Range, rCrit As Range
  Set rng = Sheets("du lieu").Range("A3:AC10000")
  With Sheets("LOC")
    Set rCrit = .Range("IT1:IV4")
    rCrit(1, 1) = "POINT IN"
    rCrit(1, 2) = "POINT 4"
    rCrit(1, 3) = "POINT 7"
    Union(rCrit(2, 1), rCrit(3, 2), rCrit(4, 3)).Value = "ARESI"
    .Range("A11:AC10000").Clear
    rng.AdvancedFilter 2, rCrit, .Range("A11")
    rCrit.Clear
  End With
End Sub

Cũng có thể lọc bằng tay tùy thích