Πώς να ενεργοποιήσετε κελιά για επεξεργασία με ένα μόνο κλικ στο Excel;

Αυτό το άρθρο μιλά για την ενεργοποίηση κελιών για επεξεργασία με ένα μόνο κλικ στο Excel. Παρακαλούμε κάντε τα εξής βήμα προς βήμα.

Ενεργοποίηση κελιών για επεξεργασία με ένα μόνο κλικ με κωδικό VBA

Ενεργοποιήστε το κελί για επεξεργασία με ένα μόνο κλικ με κωδικό VBA

Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να ενεργοποιήσετε κελιά για επεξεργασία με ένα μόνο κλικ.

1. Ανοίξτε το φύλλο εργασίας που χρειάζεστε για να ενεργοποιήσετε τα κελιά με ένα μόνο κλικ. Κάντε δεξί κλικ στην καρτέλα Φύλλο και κάντε κλικ Προβολή κωδικού από το μενού με δεξί κλικ.

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Κώδικας παράθυρο.

Κωδικός VBA: Ενεργοποιήστε το κελί για επεξεργασία με ένα μόνο κλικ

#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. Πάτα το άλλος + Q ταυτόχρονα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Από τώρα και στο εξής, όταν κάνετε ένα κλικ σε οποιοδήποτε κελί στο τρέχον φύλλο εργασίας, το κελί θα ενεργοποιηθεί αμέσως.