|
 Função personalizada retorna números ignorandos textos
Saberexcel - Funções Personalizadas
Essa função Retorna_Numeros, tem por finalidade retornar números
contidos em uma determinada célula, ignorando o texto existente.
Uso da função na Folha de Planilha:
'=Retorna_Numeros(A1)
Function Retorna_Numeros(Cell As Range) As Long
Dim LenStr As Long
For LenStr = 1 To Len(Cell)
Select Case Asc(Mid(Cell, LenStr, 1))
Case 48 To 57
Retorna_Numeros = Retorna_Numeros & Mid(Cell, LenStr, 1)
End Select
Next
End Function
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
Compre com seguança produtos de informatica nas lojas submarino
|