Forum - Excel07 Shortcut για μονό αριστερό κλικ στο Excel

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [Excel07] Shortcut για μονό αριστερό κλικ στο Excel (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2030-shortcut-gia-mono-aristero-klik-sto-excel.html)

Shortcut για μονό αριστερό κλικ στο Excel

Υπάρχει τρόπος από το πληκτρολόγιο να αντικαταστήσω το αριστερό κλικ του mouse με πληκτρολόγηση. Προκειται για κελιά στα οποία έχω βάλει hyperlinks και θέλω να κινούμαι κατευθείαν μέσω από το πληκτρολόγο

Μεταφέρσου με ALT+F11 στον VBE.

Κάνε διπλό κλικ στο "ThisWorkbook" και στο παράθυρο δεξιά πέρασε το παρακάτω:

Κώδικας:

Option Explicit
 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Application.OnKey "%{UP}"

End Sub
 

Private Sub Workbook_Open()

    Application.OnKey "%{UP}", "FollowLink"

End Sub

Σε μια κοινή λειτουργική μονάδα (Μενού "Insert>Module") πέρασε το παρακάτω:

Κώδικας:

Option Explicit
 

Sub FollowLink()

    If ActiveCell.Hyperlinks.Count Then

        ActiveCell.Hyperlinks(1).Follow False, True

    End If

End Sub

Επανεκκίνησε το αρχείο και δοκίμασε χρησιμοποιώντας το συνδυασμό ALT+UP (το βελάκι προς τα επάνω) .

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

thanks!!
Λειτούργησε!