Viết dùm Code lọc dữ liệu!

[yome]

Chào các anh chị GPE! Em có bài này em post lên nhà cả nhà viết dùm em đoạn code này nhé! Thanks

 

[cadafi]

Chào các anh chị GPE! Em có bài này em post lên nhà cả nhà viết dùm em đoạn code này nhé! Thanks

Code đơn giản mà bạn, Nếu ô G1 là rỗng thì lọc hết, nếu có giá trị thì lọc theo giá trị đó:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([G1], Target) Is Nothing Then
If [G1] = "" Then
Range("A3:K" & [D65536].End(xlUp).Row).AutoFilter Field:=4, Criteria1:="<>"
Else: Range("A3:K" & [D65536].End(xlUp).Row).AutoFilter Field:=4, Criteria1:=[G1]
End If
End If
End Sub

Bạn đặt Code vào trong sheet1, không phải trong Module nha! bạn xem thêm file đính kèm nhé!

 

[yome]

Giá mà mình biết được như bạn nhỉ! Mình cám ơn ban nhiều lắm!

 

[cadafi]

Giá mà mình biết được như bạn nhỉ! Mình cám ơn ban nhiều lắm!

Một trong những kinh nghiệm học nhanh VBA là bạn cứ việc record macro và xem nó viết lại những thao tác mình làm như thế nào? Rồi nghiền ngẫm nó một hồi là ra "chân lý" ngay thôi. Mình đâu có hơn gì bạn đâu!

Thân.

 

[yome]

Ca_dafi ơi, bạn có tài liệu nào học ghi marco tử đầu và dễ hiểu ko? Bạn gửi cho mình nhé!? Thanks

 

[yome]

ca_dafi ơi! Bạn có nick chat không cho mình xin? Mình sẽ nói chuyện cho tiện hơn!?

 

[cadafi]

ca_dafi ơi! Bạn có nick chat không cho mình xin? Mình sẽ nói chuyện cho tiện hơn!?

Bạn PM cho mình thì hay hơn! Ở ngoài này người ta biết hết thì sao?!

với lại post bài như vậy là spam đó!

Nhờ Mod xóa dùm các bài không liên quan nhé!

 

[ndu96081631]

Nếu là tôi thì tôi làm như sau:
- Chèn thêm 1 dòng để dử liệu cách biệt với từ : Tổng số CV đi (như thế mới dùng CurrentRegion được chứ)
- Cuối cùng là code sau:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$G$1" Then
    [A4].CurrentRegion.AutoFilter 4, IIf(Target = "", "<>", Target)
  End If
End Sub

Cực kỳ ngắn gọn
Nói thêm: Đã VBA rồi thì làm công thức điền STT chi vậy ---> Chuyển nó sang VBA luôn

 

[cadafi]

Nếu là tôi thì tôi làm như sau:
- Chèn thêm 1 dòng để dử liệu cách biệt với từ : Tổng số CV đi (như thế mới dùng CurrentRegion được chứ)

Đúng là một chiêu "thần sầu", thế mới biết lợi hại của CurrentRegion . Cái hay là biến hóa thêm 1 dòng cách biệt để ép vào khuôn khổ của CurrentRegion, không phải ai cũng nghĩ ra! Xin bái phục!

 

[yome]

ca_dafi ơi! bạn có tài liệu về marco gửi cho mình xin nhé! Tài liệu cho người mới học đó. Mình chưa biết nhiều về nó mà. Thanks

 

[Po_Pikachu]

Ở đây hoặc nhiều hơn nữa ở dưới. http://www.giaiphapexcel.com/forum/showthread.php?t=4863 http://www.google.com.vn/custom?dom...gười+bắt+đầu&sitesearch=www.giaiphapexcel.com Thân.

 

[ndu96081631]

Và còn món "gỏi" này:
http://www.giaiphapexcel.com/forum/showthread.php?t=650
Tráng miệng ngon tuyệt

 

[le tin]

Nếu là tôi thì tôi làm như sau:
- Chèn thêm 1 dòng để dử liệu cách biệt với từ : Tổng số CV đi (như thế mới dùng CurrentRegion được chứ)

Không chèn có được không bạn , mình làm thử thấy vẫn được mà

 

[ndu96081631]

Không chèn có được không bạn , mình làm thử thấy vẫn được mà

Đâu ai nói là không được... nhưng theo tôi, với cùng 1 loại cấu trúc dử liệu thì ta nên cho chúng nằm gần nhau, các loại dử liệu dạng khác nên cách ra ---> Có thể thì code của bạn mới tối ưu và gọn
Bạn để nguyên dử liệu như thế và viết code thế nào ngắn hơn tôi thử xem!

 

[le tin]

Đâu ai nói là không được... nhưng theo tôi, với cùng 1 loại cấu trúc dử liệu thì ta nên cho chúng nằm gần nhau, các loại dử liệu dạng khác nên cách ra ---> Có thể thì code của bạn mới tối ưu và gọn
Bạn để nguyên dử liệu như thế và viết code thế nào ngắn hơn tôi thử xem!

Ý tôi không hiểu là có gì khác nhau giữa chèn dòng và không ( khi dùng CurrentRegion ) mà khi thử tôi không phát hiện được,chứ đâu phải viết lại

 

[ndu96081631]

Ý tôi không hiểu là có gì khác nhau giữa chèn dòng và không ( khi dùng CurrentRegion ) mà khi thử tôi không phát hiện được,chứ đâu phải viết lại

Chèn dòng cho dử liệu cách biệt với những dử liệu khác... và khi đó ta có thể dùng CurrentRegion
Và chúng ta phải hiểu rằng: CurrentRegion thì tương đương với phím tắt Ctrl + Shift + *
Vậy bây giờ bạn thử 2 trường hợp nhé:
- Không chẻn dòng, đặt con trỏ tại A4 rồi bấm tổ hợp phím Ctrl + Shift + *
- Chèn thêm dòng, đặt con trỏ tại A4 rồi bấm tổ hợp phím Ctrl + Shift + *
2 vùng đang được Select có khác nhau không?
Và tôi cũng không hiểu tại sao bạn không chèn dòng vào mà vẫn có thể chạy được code? Bạn chạy được như thế nào? Gữi lên tôi xem thử

 

[le tin]

Bạn kiểm tra lại thử , đã bỏ dòng trống

 

[ndu96081631]

Bạn kiểm tra lại thử , đã bỏ dòng trống

Ẹc... Ẹc... Bạn làm thí nghiệm thế này nhé:
- Vào menu Data\ Filter và bỏ chọn AutoFilter
- Tiếp theo chọn vào Validation để chạy code xem thử
File của bạn sở dĩ chạy được vì.. hên... AutoFilter đang có sẳn
Nếu làm lại từ đầu, tức là từ lúc chưa có AutoFilter, chạy code xong nó cũng lọc.. nhưng nhìn chả giống ai...