Jump to content
blueangelzx

Funcion borrar acs a VBA

Recommended Posts

Buenas! me preguntaba si hay alguna forma de pasar esta funcion a VBA (en si consiste en una funcion de quitar codigos ascii catalogados en menos de 32 y mayores de 126) .. pues no quiero utilisar formulas en las hojas de excel.

Function SacaRaros(x)
Largo = Len(x)
For i = 1 To Largo
                letra = Mid(x, i, 1)
codigo = Asc(letra)
                If codigo < 32 Or codigo > 126 Then
                                Mid(x, i, 1) = “ * ”
                End If
Next
SacaRaros = Replace(x, “ * ”, “”)
End Function

Muchas Gracias!

Edited by Gerson Pineda
Se envolvió código con etiqueta

Share this post


Link to post
Share on other sites
Hace 4 horas, Gerson Pineda dijo:

Hola Gerson! eres un maestro me sirve! muchas gracias!!!

Solo una cosa.. veo que cuando quita los ASCII coloca el texto arreglado en la columna del lado.. como se haria para que solo borre los caracteres ascii sobre el texto indicado sin tener mas columnas? cuando uso base de datos lo que menos quiero es llenarme de mas informacion o columnas al lado.

 

Muchas gracias!

Share this post


Link to post
Share on other sites

Casi siempre cuando colaboro no declaro las variables, en varios casos no es necesario hacerlo, pero la mejor practica es DECLARARLAS

Y para que lo compruebes realiza cualquiera de las dos opciones:

  1. Al inicio del procedimiento, declara la variable "x", asi: Dim x as range y no hagas nada mas
  2. No declares la variable "x" y modifica esto x = cadena por esto x.value = cadena

 

Saludos!

Borrar codigos ascii_GP.rar

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png