Skip to main content

¿Cómo agregar 1 al valor de una celda haciendo doble clic en Excel?

Author: Siluvia Last Modified: 2025-08-06

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

A screenshot of the VBA code window for adding 1 to a cell value on double-click

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.

A screenshot of the Excel cell A1 after using double-click to add 1

Artículos relacionados:

Las mejores herramientas de productividad para Office

🤖 Asistente de IA de Kutools: Revoluciona el análisis de datos basado en: Ejecución inteligente |Generar código |Crear fórmulas personalizadas |Analizar datos y generar gráficos |Invocar funciones mejoradas…
Funciones populares: Buscar, resaltar o marcar duplicados | Eliminar filas en blanco | Combinar columnas o celdas sin perder datos | Redondear...
Super BUSCARV: Búsqueda con múltiples criterios | Búsqueda de múltiples valores | Búsqueda en varias hojas | Coincidencia difusa....
Lista desplegable avanzada: Crea rápidamente listas desplegables | Lista desplegable dependiente | Lista desplegable con selección múltiple....
Administrador de columnas: Agregar un número específico de columnas | Mover columnas | Cambiar la visibilidad de columnas ocultas | Comparar rangos y columnas...
Funciones destacadas: Cuadrícula de enfoque | Vista de diseño | Barra de fórmulas mejorada | Administrador de libros y hojas de cálculo | Biblioteca de AutoTexto | Selector de fechas | Combinar Datos | Encriptar/Descifrar celdas | Enviar correo electrónico por lista | Super Filtro | Filtro especial (filtro negrita/cursiva/tachado...)...
Top15 conjuntos de herramientas:12 herramientas de texto (Agregar texto, Eliminar caracteres, ...) | Más de50 tipos de gráficos (Diagrama de Gantt, ...) | Más de40 fórmulas prácticas (Calcular edad basada en la fecha de nacimiento, ...) |19 herramientas de inserción (Insertar código QR, Insertar imagen desde ruta, ...) |12 herramientas de conversión (Convertir a palabras, Conversión de moneda, ...) |7 herramientas de combinar y dividir (Combinar filas avanzado, Dividir celdas, ...) | ... y mucho más
Utiliza Kutools en tu idioma preferido: ¡compatible con Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales!

Impulsa al máximo tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para potenciar la productividad y ahorrar tiempo.Haz clic aquí para obtener la función que más necesitas...

Office Tab aporta una interfaz de pestañas a Office y hace tu trabajo mucho más sencillo

  • 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 vez de en nuevas ventanas.
  • ¡Aumenta tu productividad hasta un50% y reduce cientos de clics de ratón cada día!