¿Cómo aumentar un número automáticamente al abrir el libro de trabajo?
Si desea incrementar una celda numérica en 1 automáticamente cada vez que abre el libro de trabajo, 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?
Aumentar un número automáticamente al abrir el libro de trabajo con código VBA
Aumentar un número automáticamente al abrir el libro de trabajo con código VBA
El siguiente código VBA simple puede ayudarle a agregar 1 a la celda numérica automáticamente cada vez que se abre el libro de trabajo; por favor, haga lo siguiente:
1. Mantenga presionadas las teclas ALT + F11, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
2. En el panel Proyecto-VBAProject, haga doble clic en 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 VBA: Aumentar un número automáticamente cuando se abre el libro de trabajo:
Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub
Nota: En el código anterior, Hoja1 y A2 son la hoja y la celda que contienen el número que desea aumentar automáticamente. Cambie estos valores según sea necesario.
3. Luego debe guardar el archivo de Excel en formato Libro de Trabajo Habilitado para Macros de Excel, vea la captura de pantalla:
A partir de ahora, cuando abra este libro de trabajo específico, el número en la celda A2 de Hoja1 se incrementará automáticamente en 1.
Nota: Este código solo se aplica a la celda numérica.
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos