|
 Função personalizada verifica se valores são iguais
Saberexcel - Exemplo de Função personalizada
Funçao iVerifica, verifica se os valores da Célula(B1) e Célula(A1) são íguais
Função retorna valores: VERDADEIRO ou FALSO
Equivalente a Função do Excel SUBSTITUIR()
Function iVerifica(cel1 As Range, cel2 As Range) As Boolean
If Application.WorksheetFunction.Substitute(cel1, cel2, "") <> cel1 Then iVerifica = True
End Function
ou
Function iVerifica2(cel1 As Range, cel2 As Range) As Boolean
iVerifica2 = cel1 Like "*" & cel2 & "*"
End Function
Célula(A1)= 234
Celula(B1) = 456
FALSO - retornará (FALSO) se os valores forem diferentes
VERDADEIRO - retornará (VERDADEIRO) se os valores forem iguais
Função Personalizada
E6 = iVerifica(B1;A2)
Função Personalizada
E8 = iVerifica2(B1;A2)
Função do Excel
E10 = SUBSTITUIR(A1;B1;"")<>A1
A Função personalizada iVerifica(B1,A2) e iVerifica2(B1,A2)
é equivalente à Função SUBSTITUIR() do Excel
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
Lojas Submarino - compras pela internet com segurança e garantia.
 Última atualização em Dom, 25 de Julho de 2010 19:30
|