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

Hoe cellen te activeren voor bewerking met één klik in Excel?

Dit artikel gaat over het activeren van cellen voor bewerking met een enkele klik in Excel. Ga als volgt te werk, stap voor stap.

Activeer cellen voor bewerking met een enkele klik met VBA-code


Activeer cel voor bewerking met een enkele klik door VBA-code

De volgende VBA-code kan u helpen om cellen te activeren voor bewerking met een enkele klik.

1. Open het werkblad dat u nodig hebt om cellen te activeren met een enkele klik. Klik met de rechtermuisknop op de bladtab en klik op Bekijk code vanuit het rechtsklikmenu.

2. In de opening Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de onderstaande VBA-code in het Code venster.

VBA-code: activeer cel voor bewerking met één klik

#If Win64 Then
'Updated by Extendoffice 2018/2/2
    Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#Else
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#End If
Const VK_NUMLOCK = 144
Const VK_CAPITAL = 20
Const VK_SCROLL = 145
Dim xOldNLState As Long
Dim xOldCLState As Long
Dim xOldSLState As Long
Const KEY_MASK As Integer = &HFF80 '

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (GetKeyState(vbKeyShift) And KEY_MASK) <> 0 Then Exit Sub
    xOldNLState = GetAsyncKeyState(VK_NUMLOCK)
    xOldCLState = GetAsyncKeyState(VK_CAPITAL)
    xOldSLState = GetAsyncKeyState(VK_SCROLL)
    SendKeys "{F2}"
    If GetAsyncKeyState(VK_NUMLOCK) <> xOldNLState Then
        Application.SendKeys "{NUMLOCK}"
    End If
    If GetAsyncKeyState(VK_CAPITAL) <> xOldCLState Then
        Application.SendKeys "{CAPSLOCK}"
    End If
    If GetAsyncKeyState(VK_SCROLL) <> xOldSLState Then
        Application.SendKeys "{SCROLLLOCK}"
    End If
End Sub

3. druk de anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster.

Als u vanaf nu eenmaal op een cel in het huidige werkblad klikt, wordt de cel onmiddellijk geactiveerd.


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
Hallo jongens. Ik had een vraag over een vreemde bijwerking die deze code heeft als ik hem in een van mijn werkbladen gebruik.
De code die ik probeerde, was degene die in de post werd genoemd.
//
Privé subwerkblad_SelectionChange (ByVal-doel als bereik)
Verzendsleutels "{F2}"
End Sub
//
De bijwerking die ik krijg, is dat wanneer ik een cel actief maak, mijn Numlock uit/aan gaat.
Alle hulp wordt op prijs gesteld.
Deze opmerking is gemaakt door de moderator op de site
Good Day,
De code wordt bijgewerkt met de probleemoplossing. Bedankt voor je reactie.
Deze opmerking is gemaakt door de moderator op de site
Hallo allemaal, allereerst, hartelijk dank voor het plaatsen van dit, het is een duidelijke tijdsbesparing. Ik heb net gemerkt dat als je de "Shift+tab" probeert te gebruiken om één cel naar links te verplaatsen, er in plaats daarvan een opmerkingenveld wordt gemaakt. Hoe dan ook om dit probleem op te lossen? Bedankt!
Deze opmerking is gemaakt door de moderator op de site
Sorry, ik weet niet zeker of mijn laatste bericht is gepubliceerd. Hier is het nog een keer voor het geval dat:

Hallo allemaal, allereerst, hartelijk dank voor het plaatsen van dit, het is een duidelijke tijdsbesparing. Het is me net opgevallen dat als je het toetsenbordcommando "Shift+tab" probeert te gebruiken om één cel naar links te verplaatsen, er in plaats daarvan een opmerkingenveld wordt gemaakt. Hoe dan ook om dit probleem op te lossen? Bedankt!
Deze opmerking is gemaakt door de moderator op de site
Beste Wayne,
De code is nu bijgewerkt en het probleem is verholpen. Bedankt voor uw feedback.
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om het zo te maken dat u in één programmavenster kunt klikken in het venster voor Excel en met één klik op de cel? Ik heb gemerkt dat, hoewel het naar de bewerkingsmodus gaat, het naar de vorige cel gaat wanneer je in het programma klikt, zodat er nog steeds twee klikken nodig zijn om te beginnen met bewerken.
Deze opmerking is gemaakt door de moderator op de site
aardig en begrepen
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

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