0142-Função personalizada para extrair caracteres

O objetivo da função a seguir é extrair de uma cadeia de texto apenas os caracteres que sejam numéricos, ou todos os caracteres não numéricos.

Para definir que serão extraídos apenas valores numéricos, o usuário deve informar como segundo parâmetro da função com o valor VERDADEIRO. Para extrair valores não numéricos, deverá ser informado o valor FALSO.

Function EXTRAIRTIPO(stPesq As Range, Tipo As Boolean)

'Função para extração de caracteres de uma cadeia
'Tem por objetivo, extrair todos os caracteres numéricos
'ou todos os não numéricos da cadeia de texto informado
'Para fazer a escolha do tipo de extração a ser realizada
'o usuário deve informar o valor VERDADEIRO (extração numérica) ou
'ou o valor FALSO para extrair os caracteres
'não numéricos

'Declarar variáveis
Dim k           As Integer
Dim stNum       As String
Dim stOther     As String

'Garantir que a função seja atualizada sempre que houver
'alteração das células referenciadas
Application.Volatile

'Loop para percorrer todos os caracteres da cadeia informada
For k = 1 To Len(stPesq.Value)
'Se o caractere for numérico, será acrescentado à variável stNum
'caso não seja numérico, será acrescentado à variável stOther
If IsNumeric(Mid(stPesq.Value, k, 1)) Then _
stNum = stNum & Mid(stPesq.Value, k, 1) _
Else: stOther = stOther & Mid(stPesq.Value, k, 1)
Next k
'Caso o tipo informado seja VERDADEIRO, serão exibidos os valores numéricos (stNum)
'Caso contrário serão exibidos os caracteres da cadeia stOther
If Tipo = True Then EXTRAIRTIPO = stNum Else EXTRAIRTIPO = stOther

End Function
Anúncios

In Excel We Trust

Marcado com: , , , , ,
Publicado em Nível: Avançado

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: