Combiner plusieurs exclusion (<>) critères de filtre automatique

J'ai travaillé autour de mon problème en utilisant cette sale hack:

    ' Filter managerial functions
    ActiveSheet.Range("$A$1:$BW$2211").AutoFilter Field:=36, Criteria1:="<>Head*", _
    Criteria2:="<>IT*", Operator:=XlAutoFilterOperator.xlAnd
    ActiveSheet.Range("$A$1:$BW$2211").AutoFilter Field:=36, Criteria1:="<>Local Head*", _
    Criteria2:="<>Resp*", Operator:=XlAutoFilterOperator.xlAnd
    ActiveSheet.Range("$A$1:$BW$2211").AutoFilter Field:=36, Criteria1:="<>Team Lead*", _
    Criteria2:="<>XB*", Operator:=XlAutoFilterOperator.xlAnd

Est-il possible de combiner ces 3 états en une seule ligne? Excel semble avoir un problème dès que j'ai un troisième critère (Criteria3) en une seule ligne. En outre, <>Array() ne semble pas être pris en charge.

OriginalL'auteur denisq | 2011-10-05

  1. 1

    Un filtre avancé pourrait être plus approprié à cette fin.

    Vous pouvez aussi faire quelque chose comme ceci:

    Dim bUnion As Boolean
Dim i As Long
Dim vData As Variant
Dim rDataHide As Range

vData = Application.Transpose(ActiveSheet.Range("$AJ$1:$AJ$2211"))
bUnion = False

For i = 1 To 2211
  If LenB(vData(i)) Then
    If vData(i) Like Whatever Or vData(i) Like Whatever2 Then
      If bUnion Then
        Set rDataHide = Union(rDataHide, ActiveSheet.Range("$AJ$" & i))
      Else
        Set rDataHide = ActiveSheet.Range("$AJ$" & i)
        bUnion = True
      End If
    End If
  End If
Next i
rDataHide.Rows.Hidden = True

    Vous pourriez même utiliser les RegEx, je n'ai pas vraiment utilisé les RegEx bien avant que de sorte que vous auriez à google.

    Autant que je sache, j'ai besoin d'une gamme dans ma feuille de calcul à utiliser de filtre avancé. Je préfère avoir pur code VBA avec tous les critères dans un tableau (qui ne fonctionne pas pour les <>).
    Vous pouvez créer le filtre avancé de la gamme avec VBA, si nécessaire. ou même juste ajouter un travail de colonne OU de test, filtre automatique qui, détruire le travail de colonne lorsque vous avez terminé
    Je ne la ce brettdj n'lorsque j'utilise le filtre avancé, de créer la gamme de filtre à supprimer après que j'ai terminé de l'utiliser. Vous pouvez également essayer ce que j'ai mis ci-dessus dans le fichier de réponse.

    OriginalL'auteur Jon49