Jak aktivovat buňky pro úpravy jediným kliknutím v Excelu?
Tento článek pojednává o aktivaci buněk pro úpravy jediným kliknutím v Excelu. Postupujte prosím krok za krokem následovně.
Aktivujte buňky pro úpravy jediným kliknutím pomocí kódu VBA
Aktivujte buňku pro úpravy jediným kliknutím pomocí kódu VBA
Následující kód VBA vám může pomoci aktivovat buňky pro úpravy jediným kliknutím.
1. Otevřete list, který potřebujete k aktivaci buněk, jediným kliknutím. Klikněte pravým tlačítkem na kartu List a klikněte Zobrazit kód z nabídky pravého tlačítka myši.
2. V otvoru Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte níže uvedený kód VBA do Kód okno.
Kód VBA: Aktivujte buňku pro úpravy jediným kliknutím
#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. zmáčkni Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.
Od nynějška se buňka okamžitě aktivuje jediným kliknutím na libovolnou buňku v aktuálním listu.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
