Cada importante de productos de Microsoft Office , como Microsoft Excel , viene con un lenguaje de programación incluido llamado Visual Basic para Aplicaciones o VBA. Si usted necesita para completar una tarea repetitiva en Excel , como cambiar una larga lista de celdas para mostrar ceros a la izquierda , puede escribir un programa en VBA y completar la tarea con sólo el clic de un botón. ¿Qué son los ceros a la izquierda ?
Ceros iniciales son ceros que vienen antes de un número , como los dos ceros " 001234 ". Estos ceros no tienen valor , por supuesto, para que no cambien el número de una manera real , sino que sólo cambian el aspecto del número. Los ceros en Excel puede ser útil si necesita una larga serie de números que todos contienen el mismo número de dígitos , independientemente de su valor real , debido a una fórmula en algún lugar de la hoja de trabajo utiliza una cierta dígitos para realizar una función .
VBA Code requisitos
Cuando se crea una macro de VBA , como en añadir ceros a la izquierda en un rango de números, hay sólo unos pocos requisitos que hay que tener derecha. En primer lugar, abrir el editor de VBA con la tecla " Alt" y " F11 ", a continuación, haga clic en la hoja de trabajo e insertar un módulo. Macros VBA se registran siempre en módulos. Haga clic en el módulo y haga clic en el espacio en blanco en la parte derecha de la pantalla. Escriba el siguiente código: Sub
LZero ()
Change " LZero " a cualquier nombre que usted quiere que su macro a tener. Pulse el botón " Enter" y Excel añadirá automáticamente "End Sub " debajo de esta línea. Ahora tiene todos los requisitos establecidos para su código de VBA.
Función derecho y Concatenate
Para agregar ceros a la izquierda a una celda , puede utilizar el Derecho función, junto con una simple concatenación . La adición de esta fórmula a una nueva columna puede ser un proceso simple en Excel , pero cuando se necesita para hacerlo en VBA , se vuelve un poco más complicado . Escriba el siguiente código entre el "Sub Lzero ()" y "End Sub " líneas :
Dim x As Integer
Dim y As Integer
Para x = 1 A 10
y = Cells (x, 1 ). Valor
Cells ( x, 1 ) . FormulaR1C1 = "= DERECHA (" " 00000 " "& " & y & " , 6 ) "
Siguiente
cambiar los números de " 1 a 10 ", que es igual a las filas que desea iniciar y terminar su fórmula en . Así que si usted desea comenzar en la celda " A5 " y terminan en " A15 ", que iba a cambiar esto a " 5-15 ":
Para x = 5 A 15
Cambiar el " 1 " en ambos casos de" células (x, 1 ) " para que sea igual al número de la columna a la que desea agregar los ceros a la izquierda . Columna " A" es el mismo que " 1 ", y cada columna más a la derecha añade uno más para el número .
Por último , cambiar el " 6 " al final del código para que sea igual a la número de cifras totales que usted desea que el número para tener, y cambiar el "00000 " para tener un cero menos que las cifras totales. Cierre el editor de VBA utilizando la "X " en la parte superior de la ventana. Ejecutar el código haciendo clic en el botón " Macro " en la ficha Programador .
Selection.NumberFormat
También puede cambiar el formato de número para mostrar ceros a la izquierda . Esto funciona igual que lo haría si tuviera que hacer clic derecho sobre la celda , seleccione " Formato de celdas " y crear un formato de número personalizado. Escriba el siguiente código entre el " End Sub " líneas "Sub Lzero " y :
Selection.NumberFormat = " 000000"
Cambiar el número de ceros que ser igual al número de dígitos en total desea que los números tengan. Dado que este proceso va a cambiar el formato de la celda , y no sólo el número, cualquier número nuevo que escriba en estas células tendrá sus ceros a la izquierda . Antes de ejecutar esta macro, tendrá que seleccionar las células que van a ser cambiados por la macro.
