|
 Função personalizada retorna texto ignorandos numero
Saberexcel - Funções Personalizadas
Essa função RetornaTexto, tem por finalidade retornar textos
contidos em uma determinada célula, ignorando o texto existente.
Uso da função na Folha de Planilha:
'=Retorna_Textos(A1)
Function RetornaTexto(Cell As Range) As String
Dim LenStr As Long
For LenStr = 1 To Len(Cell)
Select Case Asc(Mid(Cell, LenStr, 1))
Case 65 To 90
RetornaTexto = RetornaTexto & Mid(Cell, LenStr, 1)
Case 97 To 122
RetornaTexto = RetornaTexto & Mid(Cell, LenStr, 1)
End Select
Next
End Function
Aprenda tudo sobre o aplicativo Microsoft Excel VBA com SaberExcel
 Baixe o exemplo de planiha ms excel da Função RetornaTexto()
Compre com seguança produtos de informatica nas lojas submarino
|