VBA - Função de Filtro

Uma função de filtro, que retorna uma matriz baseada em zero que contém um subconjunto de uma matriz de string com base em um critério de filtro específico.

Sintaxe

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

Descrição do Parâmetro

  • Inputstrings- Um parâmetro obrigatório. Este parâmetro corresponde à matriz de strings a serem pesquisadas.

  • Value- Um parâmetro obrigatório. Este parâmetro corresponde à string a ser pesquisada em relação ao parâmetro inputstrings.

  • Include- Um parâmetro opcional. Este é um valor booleano, que indica se deve ou não retornar as substrings que incluem ou excluem.

  • Compare- Um parâmetro opcional. Este parâmetro descreve qual método de comparação de string deve ser usado.

    • 0 = vbBinaryCompare - executa uma comparação binária

    • 1 = vbTextCompare - executa uma comparação textual

Exemplo

Adicione um botão e adicione a seguinte função.

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

Quando você executa a função acima, ela produz a seguinte saída.

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