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 hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Office Tab Lapos felületet hoz 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!







