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