Cum se activează celulele pentru editare cu un singur clic în Excel?

Acest articol vorbește despre activarea celulelor pentru editare cu un singur clic în Excel. Vă rugăm să faceți pas cu pas după cum urmează.

Activați celulele pentru editare cu un singur clic prin codul VBA

Activați celula pentru editare cu un singur clic prin codul VBA

Următorul cod VBA vă poate ajuta să activați celulele pentru editare cu un singur clic.

1. Deschideți foaia de lucru de care aveți nevoie pentru a activa celulele cu un singur clic. Faceți clic dreapta pe fila Sheet și faceți clic Afișați codul din meniul cu clic dreapta.

2. În deschidere Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți codul VBA de mai jos în Cod fereastră.

Cod VBA: activați celula pentru editare cu un singur clic

#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. apasă pe Alt + Q tastele simultan pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

De acum înainte, când faceți un singur clic pe orice celulă din foaia de lucru curentă, celula va fi activată imediat.