Hoy vamos a ver cómo eliminar los últimos caracteres de un número almacenado como cadena de texto y cómo convertirlo a formato numérico usando VBA.
Para ello he creado la tabla que muestro a continuación. La idea es eliminar los decimales del campo Longitud (dos últimos caracteres) y convertir el contenido a formato numérico.
A continuación os comparto el código necesario,
Sub eliminar_digitos()
Dim inputText As String
Dim outputNumber As Double
For i = 3 To 100
'Seleccionamos la cadena de texto
inputText = Cells(i, "E")
'Eliminamos los dos últimos dígitos
inputText = Left(inputText, Len(inputText) - 2)
'Convertimos la cadena resultante en un número
outputNumber = Val(inputText)
'Escribimos el resultado en la celda correspondiente
Cells(i, "F") = outputNumber
Next
End Sub
Si pulsamos el botón "Eliminar decimales", el resultado será el siguiente,
De esta manera, además de eliminar los decimales, al haber convertido el campo a formato numérico, podremos realizar cálculos con él.
Espero que este ejemplo te haya servido para aprender a eliminar los últimos caracteres de un número almacenado como cadena de texto y cómo convertirlo a formato numérico usando VBA. Descárgate el archivo de ejemplo y practica.
Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.
Hasta la próxima.
Si te ha servido y quieres donar
Descarga el archivo del ejemplo
Últimas publicaciones
0 comentarios