Βίντεο: Καταγράψτε μια νέα μακροεντολή με όνομα newmacro, η οποία θα εφαρμόζει έντονη και πλάγια γραφή. 2025
A σχετική αναφορά σε μια μακροεντολή Excel σημαίνει σε σχέση με το ενεργό κελί. Επομένως, προσέξτε με την ενεργή επιλογή των κυττάρων σας - τόσο όταν καταγράφετε τη σχετική μακροεντολή αναφοράς όσο και όταν την εκτελείτε.
Αρχικά, ανοίξτε το δείγμα αρχείου. xlsx διατίθενται στο διαδίκτυο. Στη συνέχεια, χρησιμοποιήστε τα παρακάτω βήματα για να καταγράψετε μια σχετική μακροεντολή αναφοράς:
-
Στην καρτέλα Προγραμματιστής, επιλέξτε την επιλογή Χρήση σχετικών αναφορών.
-
Βεβαιωθείτε ότι έχει επιλεγεί το κελί A1.
-
Στην καρτέλα Developer, επιλέξτε Record Macro.
-
Ονομάστε τη μακροεντολή AddTotalRelative.
-
Επιλέξτε αυτό το βιβλίο εργασίας για την τοποθεσία αποθήκευσης.
-
Κάντε κλικ στο OK για να ξεκινήσετε την εγγραφή.
-
Επιλέξτε το κελί A16 και πληκτρολογήστε Total στο κελί.
-
Επιλέξτε το πρώτο κενό κελί στη στήλη D (D16) και πληκτρολογήστε = COUNTA (D2: D15).
-
Στην καρτέλα Προγραμματιστής, κάντε κλικ στην επιλογή Διακοπή εγγραφής για να σταματήσετε την εγγραφή της μακροεντολής.
Σε αυτό το σημείο, έχετε καταγράψει δύο μακροεντολές. Αφιερώστε λίγο χρόνο για να εξετάσετε τον κώδικα της νέας σας δημιουργούμενης μακροεντολής, επιλέγοντας Μακροεντολές στην καρτέλα Προγραμματιστής για να ανοίξετε το παράθυρο διαλόγου Μακροεντολή. Επιλέξτε τη μακροεντολή AddTotalRelative και κάντε κλικ στην επιλογή Επεξεργασία.
Και πάλι ανοίγει το Visual Basic Editor και σας δείχνει τον κώδικα που γράφτηκε όταν καταγράψατε τη μακροεντολή σας. Αυτή τη φορά, ο κώδικας σας μοιάζει με τον εξής:
Sub AddTotalRelative () ActiveCell. Μετατόπιση (15, 0). Εύρος ("A1"). Επιλέξτε ActiveCell. FormulaR1C1 = "Σύνολο" ActiveCell. Μετατόπιση (0, 3). Εύρος ("A1"). Επιλέξτε ActiveCell. ΣΗΜΕΙΩΣΗ: Ο κωδικός δεν περιέχει αναφορές σε συγκεκριμένα κυκλώματα (εκτός από το σημείο εκκίνησης, A1). Σημειώστε ότι σε αυτήν τη μακροεντολή, το Excel χρησιμοποιεί την ιδιότητα Offset του ενεργού κελιού. Αυτή η ιδιότητα ενημερώνει τον κέρσορα για να μετακινήσει ένα συγκεκριμένο αριθμό κελιών πάνω ή κάτω και ένα συγκεκριμένο αριθμό κελιών αριστερά ή δεξιά.
Στην περίπτωση αυτή, ο κώδικας ιδιότητας Offset λέει στο Excel να μετακινεί 15 γραμμές προς τα κάτω και 0 στηλών σε σχέση με το ενεργό κελί (A1). Επειδή η μακροεντολή καταγράφηκε χρησιμοποιώντας σχετική αναφορά, το Excel δεν θα επιλέξει ρητά ένα συγκεκριμένο κελί όπως έκανε κατά την εγγραφή μιας απόλυτης μακροεντολής αναφοράς.
Για να δείτε αυτή τη μακροεντολή σε ενέργεια, διαγράψτε τη γραμμή Σύνολο και για τους δύο πίνακες και κάντε τα εξής:
Επιλέξτε κελιά A1.
-
Στην καρτέλα Προγραμματιστής, επιλέξτε Μακροεντολές.
-
Βρείτε και επιλέξτε τη μακροεντολή AddTotalRelative.
-
Κάντε κλικ στο κουμπί Εκτέλεση.
-
Επιλέξτε το κελί F1.
-
Στην καρτέλα Προγραμματιστής, επιλέξτε Μακροεντολές.
-
Βρείτε και επιλέξτε τη μακροεντολή AddTotalRelative.
-
Κάντε κλικ στο κουμπί Εκτέλεση.
-
Σημειώστε ότι αυτή η μακροεντολή, σε αντίθεση με την προηγούμενη μακροεντολή σας, λειτουργεί και στα δύο σύνολα δεδομένων.Επειδή η μακροεντολή εφαρμόζει τα σύνολα σχετικά με το τρέχον ενεργό κελί, τα σύνολα εφαρμόζονται σωστά.
Για να λειτουργήσει αυτή η μακροεντολή, πρέπει απλώς να διασφαλίσετε ότι
Έχετε επιλέξει το σωστό κελί εκκίνησης πριν εκτελέσετε τη μακροεντολή.
-
Το μπλοκ δεδομένων έχει τον ίδιο αριθμό σειρών και στηλών με τα δεδομένα στα οποία καταγράψατε τη μακροεντολή.