Respuestas
Respuesta dada por:
0
Respuesta:Agrega este código en un modulo de la planilla :
Function Consonantes(Text As String) As String
Text = UCase(Text)
For X = 1 To Len(Text)
If Mid(Text, X, 1) <> "A" And Mid(Text, X, 1) <> "E" And Mid(Text, X, 1) <> "I" And Mid(Text, X, 1) <> "O" And Mid(Text, X, 1) <> "U" Then
AuxText = AuxText & Mid(Text, X, 1)
End If
Next X
Consonantes = AuxText
End Function
Luego en la planilla, para llamar a la funcion haces asi:
=consonantes(A4)
Preguntas similares
hace 6 años
hace 6 años
hace 6 años
hace 9 años
hace 9 años
hace 9 años