Hỏi các cao thủ về cách lọc các dữ kiện ko đồng bộ

[sakuraa]

Chào các tiền bối,

Tình hình là trên tinh thần chập chững vào VBA, mà gặp khúc xương khó nuốt, nhờ các cao thủ chỉ giáo !!!.
[Giả thuyết]
1. File A là file nguồn, file B là file đích.
2. Nguồn trích lọc dữ liệu là trong worksheet.A. các cột X/Y/Z.
3. Các giá trị dữ kiện trích lọc là 1 => 9.
4. Các số liệu đc trích ra là A/B/C/D.
[Lọc]
- Khi để con trỏ tại 1 ô bất kỳ trong cột X/Y/Z (VD ô có giá trị 4), click chọn Filter, thì tất cả các giá trị thỏa bên A/B/C/D đều đc copy qua file B.xls (5 giá trị thỏa)...

Chân thành cám ơn các cao thủ GPE!!

 

[huuthang_bd]

Chào các tiền bối,

Tình hình là trên tinh thần chập chững vào VBA, mà gặp khúc xương khó nuốt, nhờ các cao thủ chỉ giáo !!!.
[Giả thuyết]
1. File A là file nguồn, file B là file đích.
2. Nguồn trích lọc dữ liệu là trong worksheet.A. các cột X/Y/Z.
3. Các giá trị dữ kiện trích lọc là 1 => 9.
4. Các số liệu đc trích ra là A/B/C/D.
[Lọc]
- Khi để con trỏ tại 1 ô bất kỳ trong cột X/Y/Z (VD ô có giá trị 4), click chọn Filter, thì tất cả các giá trị thỏa bên A/B/C/D đều đc copy qua file B.xls (5 giá trị thỏa)...

Chân thành cám ơn các cao thủ GPE!!

Cái này dùng Advance Filter là được. Bạn dùng Record Macro ghi lại quá trình lọc bằng Advance Filter rồi sửa code lại theo nhu cầu.

 

[sakuraa]

Cái này dùng Advance Filter là được. Bạn dùng Record Macro ghi lại quá trình lọc bằng Advance Filter rồi sửa code lại theo nhu cầu.

Mình cũng đã thử rùi, nhưng bị vướng phần chọn dữ liệu để copy sau khi filter ...
Vì file nguồn dữ liệu (như file A) của mình rất nhiều, lên đến 5-600 dòng, nếu chọn từ dòng 1 -> dòng 900 chẳng hạn thì sau khi copy sẽ còn dư ra nhiều dòng thừa phía dưới ...
Thông cảm em hơi gà, có ji chỉ dẫn dùm ha.

 

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

Mình cũng đã thử rùi, nhưng bị vướng phần chọn dữ liệu để copy sau khi filter ...
Vì file nguồn dữ liệu (như file A) của mình rất nhiều, lên đến 5-600 dòng, nếu chọn từ dòng 1 -> dòng 900 chẳng hạn thì sau khi copy sẽ còn dư ra nhiều dòng thừa phía dưới ...
Thông cảm em hơi gà, có ji chỉ dẫn dùm ha.

Code củ chuối sau là dùng 1 cột phụ nối 3 cột màu xanh để làm điều kiện filter, bạn click vào 1 cell nào đó ở cột màu vàng rồi nhấn filter, Lưu ý là file B.xls đã mở nhé.

Private Sub Filter_Click()
On Error Resume Next
    Range("f1").CurrentRegion.AutoFilter 4, IIf(ActiveCell = "*", "<>", ActiveCell), , , False
    Workbooks("B").Sheets("Sheet1").Cells.Delete
    Range("A1").CurrentRegion.SpecialCells(12).Copy Workbooks("B").Sheets("Sheet1").Range("a2")
    Sheet1.ShowAllData
    Workbooks("B").Activate

End Sub

 

[sakuraa]

cảm ơn bạn,

Tò mò down file bạn về, chạy mà ko thấy ji hết ..
Với lại nếu làm thêm 1 cột = f&g&h vậy thì mỗi dòng sẽ có 1 đk khác nhau rồi, đâu còn mang ý nghĩa lọc theo các giá trị 1=>9 của cột f,g,h nữa ta?

 

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

cảm ơn bạn,

Tò mò down file bạn về, chạy mà ko thấy ji hết ..
Với lại nếu làm thêm 1 cột = f&g&h vậy thì mỗi dòng sẽ có 1 đk khác nhau rồi, đâu còn mang ý nghĩa lọc theo các giá trị 1=>9 của cột f,g,h nữa ta?

Ý bạn là điều kiện lấy đi là từ 1 đến 9 của 3 cột cộng lại?

 

[huuthang_bd]

Mình cũng đã thử rùi, nhưng bị vướng phần chọn dữ liệu để copy sau khi filter ...
Vì file nguồn dữ liệu (như file A) của mình rất nhiều, lên đến 5-600 dòng, nếu chọn từ dòng 1 -> dòng 900 chẳng hạn thì sau khi copy sẽ còn dư ra nhiều dòng thừa phía dưới ...
Thông cảm em hơi gà, có ji chỉ dẫn dùm ha.

Tôi làm ví dụ, copy qua một sheet khác cùng file. Bạn tự tùy biến tiếp nhé.

 

[sakuraa]

To: Domfootware
Ko phải bạn ơi, mình để từ 1=>9 cho dễ làm thui, chứ từng cái riêng biệt, ko phải là tổng hay ghép nhau ji cả?

To bạn HuuThang_bd
Bravo, bạn làm trúng ý mình rồi !!!
Cám ơn bạn rất nhiều, mình sẽ tùy biến vào file of mình..
Ah, "_bd" ý nghĩa là Bình Dương ? mình cũng ở B.D đó...

 

[huuthang_bd]

To: Domfootware
Ko phải bạn ơi, mình để từ 1=>9 cho dễ làm thui, chứ từng cái riêng biệt, ko phải là tổng hay ghép nhau ji cả?

To bạn HuuThang_bd
Bravo, bạn làm trúng ý mình rồi !!!
Cám ơn bạn rất nhiều, mình sẽ tùy biến vào file of mình..
Ah, "_bd" ý nghĩa là Bình Dương ? mình cũng ở B.D đó...

"_bd" là Bình Định chứ không phải Bình Dương đâu bạn

 

[sakuraa]

"_bd" là Bình Định chứ không phải Bình Dương đâu bạn

Trùi, tưởng bở .. ko ngờ xa dữ