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)