Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

¿Es posible para nosotros cambiar el valor de la celda haciendo clic en una celda en Excel? Por ejemplo, cuando hace clic en una celda específica A1, la primera vez, muestra un texto "Excel", si vuelve a hacer clic en A1, aparece un texto "Word" y aparece un texto "Outlook" al hacer clic en este célula en el tercer tiempo. En este caso, el valor en la celda A1 será recurrente de "Excel" a "Word" a "Outlook" a "Excel" ... como se muestra en la siguiente captura de pantalla:

doc change value haciendo clic en 1

Cambie el valor de celda haciendo clic en una celda con código VBA

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Kutools funciona con Office 2007-2019 y 365. Es compatible con todos los idiomas y es muy fácil de instalar o implementar. Funciones completas de prueba gratuita de 60-day.

flecha azul burbuja derecha Cambie el valor de celda haciendo clic en una celda con código VBA


Para finalizar esta tarea en Excel, el siguiente código de VBA puede ayudarlo, haga lo siguiente:

1. Haga clic con el botón derecho en la pestaña de la hoja en la que desea cambiar el valor de la celda haciendo clic en y elija Ver código desde el menú contextual, y en el menú abierto Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en el Módulo en blanco:

Código de VBA: Cambie el valor de la celda haciendo clic en una celda:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161123
  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

doc change value haciendo clic en 2

Nota: En el código anterior, A1 es la celda en la que desea cambiar el valor haciendo clic en "Excel","Word","Outlook"Son los valores de celda que desea que se muestren de forma recurrente, puede cambiarlos a su necesidad.

2. Después de pegar el código, guarde el código y cierre la ventana. Ahora, cuando hace clic en la celda A1 por primera vez, el texto "Excel" se muestra de inmediato, vuelve a hacer clic, aparece el texto "Word", se muestra el texto "Outlook" si hace clic en la tercera vez, ver captura de pantalla:

doc change value haciendo clic en 1


Artículos más relacionados:

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

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


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Zack · 2 years ago
    I am trying to apply this to an entire column of individual cells, not just one cell. Is this possible? When I change the range from "A1" to "A1:A100" nothing happens when I click the cells in that range.
    • To post as a guest, your comment is unpublished.
      Kalle · 3 months ago
      You can do that by declaring the range you want to have as KeyCells and than put that into the Application.Intersection Method. This will let you change the Value of your choice from all the cells. Worked for me but i am bad at explaining ^^


      Application.EnableEvents = False
      With Target


      Dim KeyCells as Range

      Set KeyCells = Range("A1:A100")

      If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

      Select Case .Value

      ...
    • To post as a guest, your comment is unpublished.
      Kalle · 3 months ago
      You can do that by declaring the range you want to have as KeyCells and than put that into the Application.Intersection Method. This will let you change the Value of your choice from all the cells. Worked for me but i am bad at explaining ^^

      Dim KeyCells as Range

      Set KeyCells = Range("A1:A100")

      If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

      Select Case .Value

      ...
    • To post as a guest, your comment is unpublished.
      Paji Shoitan · 6 months ago
      I did it but i will not tell anyone MUWAHAHAHAHAHAHAHAHAHA