Lọc dữ liệu vào.

[math.art90]

Em muốn lọc dữ liệu giống như video em đính kém các anh xem giúp em. Em cám ơn
http://www.screencast.com/t/UM14tk23VBk

 

[nmhung49]

Mình nhìn video bạn mình cũng đón được như ko có file mình giả lập ví dụ nho nhỏ bạn gửi file lên để làm cho dễ. Nhấn vào đổi khung lớn chọn tải file từ máy rồi nhấn nút tải lên, nếu file nặng bạn nên nén lại. Đây là đoạn code trong file, bạn xem file đính kèm

Sub loc()
Dim Code As Range, rng As Range
Sheet2.Range("A1").CurrentRegion.Offset(1).ClearContents
With Sheet1
    .Columns("A:A").Copy .Range("L1")
    .Columns("L:L").RemoveDuplicates 1, xlNo
Set Code = .Range("L2:L" & .Range("l2").End(xlDown).Row)
    For Each rng In Code
        .Range("G2").Value = rng
        .Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, .Range("G1:H3"), .Range("G8:I8")
        .Range("G9").CurrentRegion.Offset(1).Copy Sheet2.Range("A65000").End(xlUp).Offset(1)
    Next
End With
End Sub

 

[math.art90]

Dạ. EM cám ơn nhiều lắm nếu dc anh làm giúp em trong file này luôn nha. em đính kèm theo.

 

[math.art90]

Em xin nói rõ hơn cách cần lọc của em mong các GPE giúp em ạ. Bước đầu em dùng công cụ filter. Để lọc ô beam 8 ( để chỉ lấy giá trị trong vùng beam 8 thôi), sau đó em dung filter tiếp để lọc Mymax và Mymin của beam 8. Rồi tiếp đến các beam 9,17,25...... cũng lọc tương tự như beam 8 như vậy. mong các anh cho em hướng ạ. File em có đính kem theo.

 

[math.art90]

Anh chị em nào rãnh vào giúp em cái code với ạ, em đang cần . em cám ơn

 

[nmhung49]

Anh chị em nào rãnh vào giúp em cái code với ạ, em đang cần . em cám ơn

Sorry, Bạn xem code trong file đáp ứng được không, dựa vào code file trên chỉnh lại chút

 

[math.art90]

file chạy rất tốt anh, nhưng được có 1 bar 54, anh có thể làm cho nó tự động, đếm tiếp them các bar có trong bang không, như là bar 8,9,17,25......Em cám ơn anh nhiều

 

[nmhung49]

Dữ liệu mình để bên sheet KQ bạn có xem bên sheet đó không nếu đúng thì OK còn không thi cố gắng làm tiếp.

 

[math.art90]

Tuyệt vời anh ơi. Cái này độ dài của nó tới bao nhiêu vậy anh. sao em bấm vào coi code chỉ coi dc có 1 code này à.

Sub loc()
Dim Code As Range, rng As Range
Sheet4.Range("A1").CurrentRegion.Offset(1).ClearContents
With Sheet3
    .Columns("A:A").Copy .Range("S1")
    .Columns("S:S").RemoveDuplicates 1, xlNo
Set Code = .Range("S2:S" & .Range("S2").End(xlDown).Row)
    For Each rng In Code
        .Range("O2:O3").Value = rng
        .Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, .Range("O1:P3"), .Range("W1:AG1")
        .Range("W1").CurrentRegion.Offset(1).Copy Sheet4.Range("A65000").End(xlUp).Offset(1)
    Next
End With
End Sub

anh chỉ dùng 1 code này thôi hả anh.cám ơn anh nhiều

 

[math.art90]

Cac anh giúp em, em cố gắng thử làm cại cái "sub loc" giống ở trên mà không dc, em không hiểu sao nữa. Có thể chỉ giúp em dc ko ạ, hic, em mò mấy bửa rồi, em cám ơn

 

[math.art90]

hic, sao ko ai giúp em vậy,hic