Note: The other languages of the website are Google-translated. Back to English

Hoe verander ik de celwaarde door op de cel te klikken?

Is het voor ons mogelijk om de celwaarde te wijzigen door op een cel in Excel te klikken? Als u bijvoorbeeld op een specifieke cel A1 klikt, wordt de eerste keer de tekst 'Excel' weergegeven, als u nogmaals op de A1 klikt, wordt de tekst 'Word' weergegeven en wordt de tekst 'Outlook' weergegeven wanneer u hierop klikt. cel in de derde keer. In dit geval zal de waarde in cel A1 terugkerend zijn van "Excel" naar "Word" naar "Outlook" naar "Excel" ... zoals in de volgende schermafbeelding:

doc waarde wijzigen door te klikken 1

Verander de celwaarde door op een cel met VBA-code te klikken


pijl blauw rechts bel Verander de celwaarde door op een cel met VBA-code te klikken

Om deze taak in Excel te voltooien, kan de volgende VBA-code u helpen, doe dit als volgt:

1. Klik met de rechtermuisknop op de bladtab waarvan u de celwaarde wilt wijzigen door op te klikken en kies Bekijk code vanuit het contextmenu en in het geopende Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege module:

VBA-code: verander de celwaarde door op een cel te klikken:

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

doc waarde wijzigen door te klikken 2

Opmerking:: In de bovenstaande code, A1 is de cel waarin u de waarde wilt wijzigen door te klikken op "Excel","Woord","Outlook”Zijn de celwaarden die u regelmatig wilt weergeven, kunt u ze naar wens wijzigen.

2. Nadat u de code hebt geplakt, slaat u de code op en sluit u het venster. Wanneer u nu de eerste keer op cel A1 klikt, wordt de tekst "Excel" meteen weergegeven, klik er nogmaals op, de tekst "Word" wordt weergegeven, de tekst "Outlook" wordt weergegeven als u er een derde keer op klikt, zie screenshot:

doc waarde wijzigen door te klikken 1


Meer gerelateerde artikelen:

Hoe gegevens filteren door op celinhoud in Excel te klikken?

Hoe kolomgegevens sorteren door op de koptekst in Excel te klikken?


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (7)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Ik probeer dit toe te passen op een hele kolom met individuele cellen, niet op slechts één cel. Is dit mogelijk? Als ik het bereik verander van "A1" in "A1:A100" gebeurt er niets als ik op de cellen in dat bereik klik.
Deze opmerking is gemaakt door de moderator op de site
Ik heb het gedaan, maar ik zal het aan niemand vertellen MUWAHAHAHAHAHAHAHAHAHA
Deze opmerking is gemaakt door de moderator op de site
U kunt dat doen door het bereik dat u wilt hebben als KeyCells te declareren en dat vervolgens in de Application.Intersection-methode in te voeren. Hiermee kunt u de waarde van uw keuze uit alle cellen wijzigen. Werkte voor mij, maar ik ben slecht in uitleggen ^^

Dim KeyCells als bereik

Stel KeyCells = Bereik ("A1:A100") in

Indien niet Application.Intersect (KeyCells, Range (Target.Address)) is niets dan

Selecteer Case .Waarde

...
Deze opmerking is gemaakt door de moderator op de site
U kunt dat doen door het bereik dat u wilt hebben als KeyCells te declareren en dat vervolgens in de Application.Intersection-methode in te voeren. Hiermee kunt u de waarde van uw keuze uit alle cellen wijzigen. Werkte voor mij, maar ik ben slecht in uitleggen ^^


Application.EnableEvents = False
Met doel


Dim KeyCells als bereik

Stel KeyCells = Bereik ("A1:A100") in

Indien niet Application.Intersect (KeyCells, Range (Target.Address)) is niets dan

Selecteer Case .Waarde

...
Deze opmerking is gemaakt door de moderator op de site
Dit is de laatste code die voor mij werkte. Ik gebruik het om een ​​cel te controleren wanneer een item is voltooid.
Privé subwerkblad_SelectionChange (ByVal-doel als bereik)
  Application.EnableEvents = False
    Met doel
      Dim KeyCells als bereik
      Stel KeyCells = Bereik ("D6:D8000") in
      Indien niet Application.Intersect (KeyCells, Range (Target.Address)) is niets dan
        Selecteer Case .Waarde
          Geval "ü"
            .Waarde = ""
          Geval ""
            .Waarde = "ü"
        End Select
      End If
    Eindigt met
  Application.EnableEvents = Waar
End Sub
Deze opmerking is gemaakt door de moderator op de site
Dit is geweldige informatie, bedankt voor de input van iedereen! Is er een manier om hetzelfde type benadering toe te passen met een opzoek- of index\match-waarde?

Als ik bijvoorbeeld op een waarde in A1 klik, kan de VBA dan worden geconfigureerd om die waarde in een andere werkbladkolom te indexeren en een overeenkomende waarde in B1 weer te geven? Nogmaals bedankt!
Er zijn nog geen reacties geplaatst

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL