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

Hogyan lehet aktiválni a cellákat szerkesztésre egyetlen kattintással az Excelben?

Ez a cikk a cellák aktiválásáról szól a szerkesztéshez egyetlen kattintással az Excelben. Kérjük, lépésről lépésre tegye a következőket.

A cellák aktiválása szerkesztésre egyetlen kattintással VBA kóddal


Aktiválja a cellát a szerkesztéshez, egyetlen kattintással a VBA kóddal

A következő VBA-kód segíthet abban, hogy egyetlen kattintással aktiválja a cellákat szerkesztésre.

1. Nyissa meg a cellák aktiválásához szükséges munkalapot egyetlen kattintással. Kattintson a jobb gombbal a Lap fülre, és kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.

2. A nyílásban Microsoft Visual Basic for Applications ablakba másolja és illessze be az alábbi VBA kódot a Kód ablak.

VBA kód: Aktiválja a cellát szerkesztésre egyetlen kattintással

#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. megnyomni a más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablak.

Mostantól, amikor egyetlen kattintással kattint az aktuális munkalap bármely cellájára, a cella azonnal aktiválódik.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (7)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hé srácok. Volt egy kérdésem egy furcsa mellékhatással kapcsolatban, amelyet ez a kód okoz, amikor az egyik munkalapomon használom.
A kód, amit kipróbáltam, a bejegyzésben említett.
//
Private Sub Worksheet_SelectionChange (ByVal Target as Range)
SendKeys "{F2}"
End Sub
//
A mellékhatás az, hogy amikor aktiválok egy cellát, a Numlock ki/be kapcsol.
Bármilyen segítséget értékelni fog.
A weboldal moderátora ezt a megjegyzést minimalizálta
Good Day,
A kód frissül a problémamegoldással. Köszönjük észrevételét.
A weboldal moderátora ezt a megjegyzést minimalizálta
Hé Mindenki, először is nagyon köszönöm, hogy közzétetted, ez határozottan időt takarít meg. Most vettem észre, hogy ha a „Shift+Tabulátor” billentyűkombinációt próbálja meg egy cellával balra mozgatni, egy megjegyzésmező jön létre helyette. Egyébként meg kell oldani ezt a problémát? Kösz!
A weboldal moderátora ezt a megjegyzést minimalizálta
Elnézést, nem tudom, hogy az utolsó bejegyzésem megjelent-e. Itt van még egyszer minden esetre:

Hé Mindenki, először is nagyon köszönöm, hogy közzétetted, ez határozottan időt takarít meg. Most vettem észre, hogy ha a "Shift+Tabulátor" billentyűparancsot próbálja meg egy cellával balra mozgatni, egy megjegyzésmező jön létre helyette. Egyébként meg kell oldani ezt a problémát? Kösz!
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Wayne!
A kód most frissült, és a probléma megoldódott. Köszönjük a visszajelzést.
A weboldal moderátora ezt a megjegyzést minimalizálta
Van rá mód, hogy egy program ablakban egy kattintással az excel ablakba, és egy kattintással a cellára kerüljön? Észrevettem, hogy bár közvetlenül a szerkesztés módba megy, a programba kattintva az előző cellába lép, így továbbra is két kattintás szükséges a szerkesztés megkezdéséhez.
A weboldal moderátora ezt a megjegyzést minimalizálta
szép és érthető
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi