UDF: eXl_ExtraerLetraNumero Para extraer Letras y/o Números de valores alfanuméricos en Excel

0

Código:


Function eXl_ExtraerLetraNumero (Texto As String, Optional ByVal Ingrese1paraObtenerLosNumeros As String = "0") As String

Dim x As String, I As Integer, c As Integer

For I = 1 To Len(Texto)

c = Asc(Mid(Texto, I, 1))

If Ingrese1paraObtenerLosNumeros = "1" Then

If c >= 48 And c <= 57 Then

x = x & Mid(Texto, I, 1)

End If

Else

Select Case c

Case 193, 201, 205, 211, 218, 209, 225, 233, 237, 243, 250, 241

x = x & Mid(Texto, I, 1)

Case 65 To 90, 97 To 122

x = x & Chr(c)

End Select

End If

Next I

eXl_ExtraerLetraNumero = x

End Function


👉 Como hacer que la UDF (User Defined Functions) esté disponible como una Función Nativa de Excel

Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel