¿Cómo cambiar el valor de una celda haciendo clic en ella?

¿Es posible cambiar el valor de una celda haciendo clic en ella en Excel? Por ejemplo, cuando haces clic en una celda específica A1 por primera vez, muestra el texto “Excel”; si haces clic nuevamente en A1, aparece el texto “Word”, y cuando haces clic en esta celda por tercera vez, se muestra el texto “Outlook”. En este caso, el valor en la celda A1 cambiará recurrentemente de “Excel” a “Word”, a “Outlook” y de vuelta a “Excel” …… como se muestra en la siguiente captura de pantalla:

Cambiar el valor de una celda al hacer clic con código VBA

Cambiar el valor de una celda al hacer clic con código VBA

Para realizar esta tarea en Excel, el siguiente código VBA puede ayudarte, por favor sigue los siguientes pasos:

1. Haz clic derecho en la pestaña de la hoja donde deseas cambiar el valor de la celda al hacer clic, y selecciona Ver Código desde el menú contextual; en la ventana abierta de Microsoft Visual Basic para Aplicaciones, copia y pega el siguiente código en el Módulo en blanco:

Código VBA: Cambiar el valor de una celda al hacer clic en ella:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
  Application.EnableEvents = False
  With Target
  If .Address = Range("A1").Address Then
    Select Case .Value
      Case "Excel"
        .Value = "Word"
      Case "Word"
        .Value = "Outlook"
      Case "Outlook"
        .Value = "Excel"
      Case Else
        .Value = "Word"
    End Select
  End If
  End With
  Range("A2").Select
  Application.EnableEvents = True
End Sub

Nota: En el código anterior, A1 es la celda donde deseas cambiar el valor al hacer clic, “Excel”, “Word”, “Outlook” son los valores de las celdas que deseas mostrar recurrentemente, puedes cambiarlos según tus necesidades.

2. Después de pegar el código, guarda el código y cierra la ventana. Ahora, cuando haces clic en la celda A1 por primera vez, el texto “Excel” se muestra de inmediato; haz clic nuevamente y aparecerá el texto “Word”; si haces clic por tercera vez, se mostrará el texto “Outlook”, como se ve en la siguiente captura de pantalla:

Más artículos relacionados:

¿Cómo filtrar datos simplemente haciendo clic en el contenido de una celda en Excel?

¿Cómo ordenar los datos de una columna haciendo clic en el encabezado en Excel?