Como convertir Texto en Numero - PROGRAMAR EN VBA MACROS DE EXCEL

Es posible que se requiera cuando realizamos una macro o cuando importamos datos, convertir números que son texto o string en datos tipo número, esta macro te permite convertir texto en número, quizás necesites realizar esto a la inversa es decir convertir Número en Texto o String; no sefunción que convierte número en letras, es decir convierte por ejemplo 150260,00 a ciento cincuenta mil doscientos sesenta con cero centavos, en esta web hay dos funciones que realizan este procedimiento.
debe confundir con la

Otras pequeñas macros interesantes son: macro que sólo permite en el Textbox ingresar texto o string, macro que sólo deja ingresar números en los Textbox, otra es macro que escribe las barras automáticamente al ingresar las fechas.

Te recomiendo que leas un excelente libro sobre Excel el que te ayudará operar las planillas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

Al realizar la descarga del ejemplo, desde el link del final, verás un archivo con dos botones y una serie de datos, uno de los botones permite pasar Texto o String a Números, el otro botón realiza lo contrario es decir Números los convierte en Texto o String, visualmente son números, pero son tratados como Texto o String por Excel.

En una fila del final verás una sumatoria de dichos números, verás que al convertir en Texto o String la sumatoria es cero ya que Excel no suma texto; si presionas el otro botón convertirá el Texto en datos Numéricos y verás como se recalcula la sumatoria, con lo cual se observará que son datos tratados como números, en el vídeo que encuentras a continuación, verás una explicación más gráfica del tema.

Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.

if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}

Código que se inserta en un módulo
Sub ConvetirTextoNumero()
Set a = Sheets(ActiveSheet.Name)
a.Range(«A1») = 1
a.Range(«A1»).Copy
a.Range(«B2:G15»).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
a.Range(«A1») = Clear
End Sub
Sub ConvetirNumeroTexto()
Dim r As String, celda As Object
Set a = Sheets(ActiveSheet.Name)
r = «B2:G15»
For Each celda In Range(r)
celda = «‘» & celda
Next
End Sub

Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.

If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.

Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends