¿Cómo agregar 1 al valor de una celda haciendo doble clic en Excel?
Este artículo le mostrará un método para agregar 1 automáticamente al valor de una celda haciendo doble clic en ella en Excel.
Usar doble clic para incrementar el valor de una celda en 1 con código VBA
Usar doble clic para incrementar el valor de una celda en 1 con código VBA
El siguiente código VBA lo guiará a través de los pasos para agregar 1 al valor en la celda A1 haciendo doble clic. Por favor, siga estas instrucciones.
1. Haga clic derecho en la pestaña de la hoja donde necesita agregar 1 al valor en la celda A1 haciendo doble clic. Luego haga clic en Ver Código en el menú contextual.
2. En la ventana emergente de Microsoft Visual Basic for Applications, copie y pegue el siguiente código VBA en la ventana de Código.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A1").Value = Range("A1").Value + 1
Cancel = True
End If
End Sub
Nota: En el código, A1 es la celda donde se agregará 1 cada vez que haga doble clic. Puede ajustarlo según sea necesario.
3. Presione simultáneamente las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic for Applications.
Ahora, al hacer doble clic en la celda A1 se agregará 1 al valor existente, como se muestra en la captura de pantalla a continuación.
Artículos relacionados:
- ¿Cómo agregar/ingresar automáticamente la fecha/hora actual en una celda con doble clic en Excel?
- ¿Cómo agregar una marca de verificación en una celda con doble clic en Excel?
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