¿Cómo aumentar un número automáticamente cuando se abre el libro de trabajo?
Si desea aumentar un número de celda en 1 automáticamente cuando abre el libro de trabajo cada vez, por supuesto, puede agregar 1 manualmente. Pero, ¿hay algún método mejor para agregar 1 al número automáticamente al abrir el documento de Excel?
Aumente un número automáticamente cuando el libro de trabajo se abre con el código VBA
Aumente un número automáticamente cuando el libro de trabajo se abre con el código VBA
El siguiente código simple de VBA puede ayudarlo a agregar 1 para la celda numérica automáticamente cuando se abre el libro de trabajo cada vez, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.
2. En la Proyecto-VBAProject panel, haga doble clic ThisWorkbook para abrir el Módulo, luego, copie y pegue el siguiente código en el módulo, vea la captura de pantalla:
Código de VBA: aumente un número automáticamente cuando se abra el libro de trabajo:
Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub
Note: En el código anterior, Sheet1 y A2 son la hoja y la celda que contiene el número que desea aumentar automáticamente. Por favor, cámbielos según sus necesidades.
3. Luego debe guardar el archivo de Excel como Libro de Excel habilitado para macros formato, ver captura de pantalla:
De ahora en adelante, cuando abra este libro de trabajo específico, el número en la celda A2 en la Hoja 1 se agregará 1 automáticamente.
Note: Este código solo se aplica a la celda numérica.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!