Ορίστε συνδυασμούς πλήκτρων στο Excel και αντιστοιχίστε συναρτήσεις
Στο ακόλουθο παράδειγμα, ο συνδυασμός πλήκτρων Ctrl + η αριθμομηχανή μπορεί να κληθεί από τα αξεσουάρ των Windows.
Χρησιμοποιήστε την ακόλουθη διαδικασία για να ορίσετε τη συντόμευση πληκτρολογίου:
Sub Setup Shortcut Setup ()
Application.OnKey "ü", "CallCalculator"
Τέλος υπο
Η αποθηκευμένη μακροεντολή μοιάζει με αυτήν:
Sub callCalculator ()
Dim x ως παραλλαγή
x = κέλυφος ("calc.exe")
Τέλος υπο
Εάν ο συνδυασμός πλήκτρων δεν χρησιμοποιείται πλέον, ξεκινήστε την ακόλουθη διαδικασία:
Συνδυασμός δευτερεύοντων πλήκτρων Ακύρωση ()
Application.OnKey "ü"
Τέλος υπο
Σημείωση:
Συχνά, η ρύθμιση συντομεύσεων πληκτρολογίου γίνεται κατά το άνοιγμα ενός συγκεκριμένου βιβλίου εργασίας. Για να το κάνετε αυτό, κάντε διπλό κλικ στην καταχώρηση Αυτό το βιβλίο εργασίας στην εξερεύνηση έργου στο περιβάλλον ανάπτυξης και αποθηκεύστε το ακόλουθο συμβάν:
Private Sub Workbook_Open ()
Συντόμευση ρύθμισης
Τέλος υπο
Το συμβάν Workbook_Open εκτελείται αυτόματα (αν έχει οριστεί) όταν ανοίξει το βιβλίο εργασίας. Στην περίπτωσή μας, η διαδικασία Ρύθμιση συνδυασμού πλήκτρων καλείται εδώ.
Αυτό είναι χρήσιμο εάν διαγράψετε τον συνδυασμό πλήκτρων που έχετε ρυθμίσει προηγουμένως όταν κλείνετε αυτόν το φάκελο. Το συμβάν Workbook_BeforeClose εκτελείται αυτόματα όταν ο φάκελος είναι κλειστός. Σε αυτήν την περίπτωση, το κλειδί ξεκλειδώματος διαδικασίας ονομάζεται:
Private Sub Workbook_BeforeClose (Cancel As Boolean)
Συνδυασμός πλήκτρων Ακύρωση
Τέλος υπο
Αυτό σημαίνει ότι έχετε πάντα τις συντομεύσεις πληκτρολογίου υπό έλεγχο στο Excel.
