Macro Nonblank toàn bộ Sheet có AutoFilter

[phuyen89]

Xin cho hỏi các bạn thành viên.Cho mình xin Macro Nonblank tất cả các Sheet của Workbook chú vào từng Sheet mà Nonblank nó lâu qua.Mình ghi được Macro nhưng mà chỉ có 1 Sheet thôi ah.Xin cảm ơn.

 

[ndu96081631]

Xin cho hỏi các bạn thành viên.Cho mình xin Macro Nonblank tất cả các Sheet của Workbook chú vào từng Sheet mà Nonblank nó lâu qua.Mình ghi được Macro nhưng mà chỉ có 1 Sheet thôi ah.Xin cảm ơn.

Thử code này xem:

Sub NonBankAllSh()
  Dim Sh As Worksheet, i As Long
  For Each Sh In ThisWorkbook.Worksheets
    If Sh.AutoFilterMode Then
      With Sh.AutoFilter.Range
        For i = 1 To .Columns.Count
          .AutoFilter i, "<>"
        Next i
      End With
    End If
  Next Sh
End Sub

Nếu chưa được hãy cho file lên đây nhé

 

[phuyen89]

Thử code này xem:

Sub NonBankAllSh()
  Dim Sh As Worksheet, i As Long
  For Each Sh In ThisWorkbook.Worksheets
    If Sh.AutoFilterMode Then
      With Sh.AutoFilter.Range
        For i = 1 To .Columns.Count
          .AutoFilter i, "<>"
        Next i
      End With
    End If
  Next Sh
End Sub

Nếu chưa được hãy cho file lên đây nhé

Cái của thầy em áp dụng rất tốt, nhưng mà khi em muốn ShowAll thì lại tìm không ra là cái Code này nó tiến hành Nonblank chỗ nào thầy ah.

 

[TrungChinhs]

Cái của thầy em áp dụng rất tốt, nhưng mà khi em muốn ShowAll thì lại tìm không ra là cái Code này nó tiến hành Nonblank chỗ nào thầy ah.

Code của Ndu tiến hành Nonblank ở tất cả các cột đang có Autofiter bạn ạ. Vì vậy bạn khi muốn ShowAll thì phải ShowAll tất cả các cột (theo tôi thì bỏ Autofiter đi khi nào cần thì đặt lại và chạy code sẽ nhanh hơn là ShowAll từng cột)

 

[phuyen89]

Code của Ndu tiến hành Nonblank ở tất cả các cột đang có Autofiter bạn ạ. Vì vậy bạn khi muốn ShowAll thì phải ShowAll tất cả các cột (theo tôi thì bỏ Autofiter đi khi nào cần thì đặt lại và chạy code sẽ nhanh hơn là ShowAll từng cột)

Như thế thì phải cần một Code ShowAlll toàn bộ nữa phải không ah.Chứ nhiều Sheet quá mà làm bằng tay cũng khổ phải không Trung Chinh.Mong bạn giúp cho.

 

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

Như thế thì phải cần một Code ShowAlll toàn bộ nữa phải không ah.Chứ nhiều Sheet quá mà làm bằng tay cũng khổ phải không Trung Chinh.Mong bạn giúp cho.

Bạn dùng thử code sau nhé

Sub ShowAll()
On Error Resume Next
  Dim Sh As Worksheet
  For Each Sh In ThisWorkbook.Worksheets
    Sh.ShowAllData
  Next Sh
End Sub