Lọc dữ liệu theo năm mà không cần phải insert thêm 1 cột năm (2 người xem)

[kevin_mn]

Làm cách nào để lọc dữ liệu theo năm mà không cần phải insert thêm 1 cột và dùng công thức =year() nữa. Có ai biết không Chỉ mình với!

 

[cadafi]

Làm cách nào để lọc dữ liệu theo năm mà không cần phải insert thêm 1 cột và dùng công thức =year() nữa. Có ai biết không Chỉ mình với!

Bạn dùng chức năng AutoFilter với Customs như sau:
Đổi năm 2009 thành năm mà bạn cần lọc.

 

[ndu96081631]

Làm cách nào để lọc dữ liệu theo năm mà không cần phải insert thêm 1 cột và dùng công thức =year() nữa. Có ai biết không Chỉ mình với!

Format cột dử liệu thành yyyy là AutoFilter thoải mái ---> Chiêu này cực đơn giản
Sau khi lọc, copy/paste gì đó, ta lại Format dử liệu như củ

 

[kevin_mn]

Cám ơn các bạn nhiều. ndu96081631 ơi có cách nào mà Giống như Data Valilation dạng list ko. Có nghĩa là mình chỉ cần Chọn năm trong list thì tự động data lọc ra. Ai biết chỉ mình với

 

[ndu96081631]

Cám ơn các bạn nhiều. ndu96081631 ơi có cách nào mà Giống như Data Valilation dạng list ko. Có nghĩa là mình chỉ cần Chọn năm trong list thì tự động data lọc ra. Ai biết chỉ mình với

Đương nhiên là được, nhưng bạn phải gữi file lên... Và nói trước, yêu cầu của bạn phải làm bằng VBA đấy nhé

 

[kevin_mn]

File của mình đó ndu96081631 làm bằng VBA cũng được, nhưng bạn giúp mình đừng đặt pas macro nha. Nếu được, bạn có thể CHỉ giúp mình về từng bước làm cái đó luôn nha. Thanks Bạn nhiều!

 

[ndu96081631]

File của mình đó ndu96081631 làm bằng VBA cũng được, nhưng bạn giúp mình đừng đặt pas macro nha. Nếu được, bạn có thể CHỉ giúp mình về từng bước làm cái đó luôn nha. Thanks Bạn nhiều!

Làm cho bạn trên cả 2 sheet:
- Sheet1: lọc trực tiếp
- Sheet2: Lọc và copy sang
---------------------------
Các file tôi gữi lên chưa từng đặt pass bao giờ (bấm Atl + F11 xem code nhé)

 

[sealand]

Mình kế thừa Ndu gọn thêm chút nữa. Không phải định dang, cũng chẳng còn dấu vết của Filter. Bổ xung không cập nhật màn hình cho đỡ nhấp nháy.

 

[kevin_mn]

Cám ơn bác ndu96081631 rất nhiều nha! Làm hay lắm Bác

 

[kevin_mn]

Bác sealand góp sức hay đó....Thanks Bác nhé!

 

[ndu96081631]

Mình kế thừa Ndu gọn thêm chút nữa. Không phải định dang, cũng chẳng còn dấu vết của Filter

Muốn không còn dấu tích của Filter thì AutoFilter vẫn làm được anh à (dể nữa là đàng khác) Bằng cách cho VisibleDropdown = False
Anh xem nhé:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$2" Then
    With Range("A6").CurrentRegion.Resize(, 1)
      If Target = "" Then
        .Parent.AutoFilterMode = False
        .NumberFormat = "dd/mm/yyyy"
      Else
        .NumberFormat = "yyyy"
        .AutoFilter 1, Target, , , False
        .NumberFormat = "dd/mm/yyyy"
      End If
    End With
  End If
End Sub