Saberexcel - site das Macros
Essa Função do Aplicativo Microsoft Excel VBA(Visual Basic Application), retornam números e ou textos, permitindo ou não permitindo números e ou textos em determinados resultados, observe que usamos os valores (True(VERDADEIRO)) e (False(FALSO)) para proibir e ou aceitar numeros ou texto.
FUNÇAO TXT_NUM_CARACT_DIGITADO:
Para a string(Texto) testado, a função remove todos os caracteres numéricos (vDeleta_Numeros = VERDADEIRO) ou todos os caracteres não-numéricos (vDeleta_Numeros = FALSO). Use vAceita_Caracter para construir uma seqüência de substituição de caracteres que sempre são permitidas. Por exemplo, "string,." indica que o sinal de currency, vírgula, e no parâmetro devem ser todos permitidos, mesmo que vDeleta_Numeros = VERDADEIRO; do mesmo modo,"9 " que indicaria 'noves' que deve ser mantida mesmo se vDeleta_Numeros = VERDADEIRO. vNaoAceitar é uma seqüência de substituição 'carateres' que não são permitidas. O "nunca permitir" caracteres são processadas antes da sempre permitir" caracteres, e assim, se todos os caracteres estão em ambas as seqüências 'nunca permitir' que leva ao caracter precedente. Espero que o exemplo lhe seja útil - Fique com Deus. E_Marcondes
Public Function Txt_Num_Caract_Digitado(Checar_Texto As String, Optional vDeleta_Numeros As Boolean = True, _
Optional vAceita_Caracter As String, Optional vNaoAceitar As String)
' The vAceita_Caracter e vNaoAceitar argumentos são 'nao' caso-sensitivo
ACESSAR O EXEMPLO DE FUNÇÃO E PLANILHA - EFETUE O LOGIN OU REGISTRE-SE( email válido )
Acesso Livre - Registrados (REGISTRE-SE!)
End Function
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
Acesso Livre - Registrados (REGISTRE-SE!) 
Baixe o exemplo de planilha contendo a função acima
Excel vba fp extrai textos ou numeros funcao personalizada (67.36 KB)
