vba filter, lọc chữ chứ không lọc được số

[qthanhhp]

Mình có dùng code vba để lọc dữ liệu, khi đánh vào các ô xanh thì sẽ tự lọc, nhưng code này chỉ lọc được chữ, chứ riêng hàng số thì lại ko lọc được, nhờ các bạn xem và giúp mình chỗ này nhé, thansks all !

 

[Quang_Hải]

Mình có dùng code vba để lọc dữ liệu, khi đánh vào các ô xanh thì sẽ tự lọc, nhưng code này chỉ lọc được chữ, chứ riêng hàng số thì lại ko lọc được, nhờ các bạn xem và giúp mình chỗ này nhé, thansks all !

Thử cách viết này. Tại dòng số 2, gõ bất kỳ thứ gì muốn lọc. Có thể thêm dấu * trước chuỗi cần lọc

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 Then
   On Error Resume Next
   ActiveSheet.ShowAllData
   Dim tieude(), i As Long, Col As Long
   Col = [IV4].End(1).Column
   ReDim tieude(1 To 1, 1 To Col)
   For i = 1 To Col
      tieude(1, i) = "C" & i
   Next
   [A1].Resize(, Col) = tieude
   [A5].Resize(, Col) = tieude
   Range("A5", [A65536].End(3)).Resize(, Col).AdvancedFilter 1, [A1:A2].Resize(, Col)
End If
End Sub

 

[qthanhhp]

Thử cách viết này. Tại dòng số 2, gõ bất kỳ thứ gì muốn lọc. Có thể thêm dấu * trước chuỗi cần lọc

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 Then
   On Error Resume Next
   ActiveSheet.ShowAllData
   Dim tieude(), i As Long, Col As Long
   Col = [IV4].End(1).Column
   ReDim tieude(1 To 1, 1 To Col)
   For i = 1 To Col
      tieude(1, i) = "C" & i
   Next
   [A1].Resize(, Col) = tieude
   [A5].Resize(, Col) = tieude
   Range("A5", [A65536].End(3)).Resize(, Col).AdvancedFilter 1, [A1:A2].Resize(, Col)
End If
End Sub

(1) nhờ bạn hướng dẫn để mình làm trên file #, mình làm thử trên file #, mà ko đc, hic
(2) nhờ bạn giải thích hộ mình cái mã hide/ unhide của file này với, làm theo mà ko đc