VBA - Fonction de filtre

Une fonction de filtre, qui retourne un tableau de base zéro qui contient un sous-ensemble d'un tableau de chaînes basé sur un critère de filtre spécifique.

Syntaxe

Filter(inputstrings,value[,include[,compare]])

Description des paramètres

• Inputstrings- Un paramètre obligatoire. Ce paramètre correspond au tableau de chaînes à rechercher.

• Value- Un paramètre obligatoire. Ce paramètre correspond à la chaîne à rechercher par rapport au paramètre inputstrings.

• Include- Un paramètre facultatif. Il s'agit d'une valeur booléenne, qui indique s'il faut ou non retourner les sous-chaînes qui incluent ou excluent.

• Compare- Un paramètre facultatif. Ce paramètre décrit la méthode de comparaison de chaînes à utiliser.

  • 0 = vbBinaryCompare - Effectue une comparaison binaire

  • 1 = vbTextCompare - Effectue une comparaison textuelle

Exemple

Ajoutez un bouton et ajoutez la fonction suivante.

Private Sub Constant_demo_Click()
   Dim a,b,c,d as Variant
   a = array("Red","Blue","Yellow")
   b = Filter(a,"B")
   c = Filter(a,"e")
   d = Filter(a,"Y")
  
   For each x in b
      msgbox("The Filter result 1: " & x)
   Next
  
   For each y in c
      msgbox("The Filter result 2: " & y)
   Next
  
   For each z in d
      msgbox("The Filter result 3: " & z)
   Next
End Sub

Lorsque vous exécutez la fonction ci-dessus, elle produit la sortie suivante.

The Filter result 1: Blue
The Filter result 2: Red
The Filter result 2: Blue
The Filter result 2: Yellow
The Filter result 3: Yellow