Como convertir Numero a Texto - 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 Texto o String en Número, para ver este caso haz click en el link; no se debe confundir con la funció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 a dos funciones que realizan este procedimiento.

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.

Es preciso destacar que el ejemplo de macro presentado en este post no otorga formato numérico, que se realiza por ejemplo con el siguiente coódigo;
sheets(«mihoja»).Range («A1:G10»).NumberFormat= «@»

Sino que convierte el número en un caracter de texto o string aunque visiblemente se vea como un número, Excel lo guarda como texto.

Para convertir en Texto, la macro agrega un apostrofe (‘) delante del número.

Al final de los datos se encuentra una fila con la sumatoria de todos los números de la columna se podrá observar 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 se verá 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 hay una explicación más gráfica del ejemplo presentado.

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