Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com canviar el valor de la cel·la fent clic a la cel·la?

És possible que canviem el valor de la cel·la fent clic a una cel·la a Excel? Per exemple, quan feu clic a una cel·la específica A1, la primera vegada que mostra un text "Excel", si feu clic a A1 de nou, es mostrarà un text "Paraula" i es mostrarà un text "Outlook" quan feu clic a això cel·la en tercera vegada. En aquest cas, el valor de la cel·la A1 serà recurrent de "Excel" a "Word" a "Outlook" a "Excel" ... com es mostra a la següent captura de pantalla:

Valor de canvi de DOC fent clic a 1

Canvieu el valor de la cel·la fent clic a una cel·la amb codi VBA


fletxa blau dreta bombolla Canvieu el valor de la cel·la fent clic a una cel·la amb codi VBA


Per finalitzar aquesta tasca a Excel, el següent codi VBA us pot ajudar, feu el següent:

1. Feu clic amb el botó dret a la fitxa del full que vulgueu canviar el valor de la cel·la fent clic i seleccioneu Veure codi des del menú contextual i en l'obert Microsoft Visual Basic per a aplicacions finestra, copieu i enganxeu el següent codi al mòdul en blanc:

Codi VBA: canvieu el valor de la cel·la fent clic a una cel·la:

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

Valor de canvi de DOC fent clic a 2

Nota: En el codi anterior, A1 és la cel·la on voleu canviar de valor fent clic, "Sobresortir","Paraula","Outlook"Són els valors de les cel·les que voleu que apareguin de manera recurrent, podeu canviar-los a la vostra necessitat.

2. Després d'enganxar el codi, deseu el codi i tanqueu la finestra. Ara, quan feu clic a la cel·la A1 per primera vegada, el text "Excel" es mostra alhora, torneu a fer-hi clic, apareix el text "Word", el text "Outlook" es mostra si feu clic a la tercera vegada, veure captura de pantalla:

Valor de canvi de DOC fent clic a 1


Més articles relacionats:

Com filtrar dades simplement fent clic al contingut de la cel·la a Excel?

Com ordenar les dades de la columna fent clic a la capçalera a Excel?



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

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 · 1 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.