Come attivare le celle per la modifica con un solo clic in Excel?

Questo articolo parla dell'attivazione delle celle per la modifica con un solo clic in Excel. Si prega di seguire i passaggi seguenti uno per uno.

Attiva le celle per la modifica con un solo clic tramite codice VBA

Attiva la cella per la modifica con un solo clic tramite codice VBA

Il seguente codice VBA può aiutarti ad attivare le celle per la modifica con un solo clic.

1. Apri il foglio di lavoro in cui desideri attivare le celle con un solo clic. Fai clic destro sulla Scheda del Foglio e seleziona Visualizza Codice dal menu contestuale.

2. Nella finestra di Microsoft Visual Basic for Applications che si apre, copia e incolla il seguente codice VBA nella finestra del Codice.

Codice VBA: Attiva la cella per la modifica con un solo 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. Premi contemporaneamente i tasti Alt + Q per chiudere la finestra di Microsoft Visual Basic for Applications.

Da ora in poi, quando si fa clic su una qualsiasi cella nel foglio di lavoro corrente, la cella verrà attivata immediatamente.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!