Διαβάστε όλους τους αριθμούς από ένα επιθυμητό εύρος κελιών χρησιμοποιώντας μια μακροεντολή και προσθέστε έναν αριθμό στο περιεχόμενο
Συχνά είναι απαραίτητο να προσθέσετε ένα σημάδι σε κελιά σε μια λίστα. Για να γίνει αυτό, είναι απαραίτητο να προσθέσετε μια σταθερή τιμή σε όλες τις σταθερές σε μια περιοχή κελιών.
Οι τύποι δεν πρέπει να αλλάξουν. Μια μακροεντολή λύνει αυτήν την εργασία και προσθέτει έναν αριθμό της επιλογής σας σε όλες τις σταθερές σε μια επισημασμένη περιοχή δεδομένων.
Με αυτόν τον τρόπο μπορείτε, για παράδειγμα, να προσαρμόσετε τις τιμές και τα παρόμοια γρήγορα και αποτελεσματικά σε νέες συνθήκες.
Το παρακάτω σχήμα δείχνει έναν πίνακα που πρόκειται να αλλάξει. Υπάρχουν σταθερές στα κύτταρα Β1 και Β2 και τύποι στα κύτταρα Β3 και Β4. Τα δύο κελιά τύπου αναφέρονται στα κελιά με τις σταθερές τιμές.
Για να προσθέσετε τον αριθμό 10 σε όλες τις σταθερές σε αυτήν τη λίστα, σημειώστε πρώτα την περιοχή δεδομένων B1: B4 και καλέστε την ακόλουθη μακροεντολή:
Προσθήκη υποσταθμού ()
Dim Cell As Range
Dim Factor Όσο καιρό
Πρόσθετο ποσό = 10
Για κάθε κελί σε επιλογή
Με κελί
Εάν όχι (.HasFormula) Τότε .Αξία = .Αξία + επιπλέον ποσό
Τέλος με
Επόμενο κελί
Τέλος υπο
Μετά την εκκίνηση της μακροεντολής, η πρόσθετη ποσότητα 10 προστίθεται σε όλα τα σταθερά κελιά στην επισημασμένη περιοχή κελιών. Το παρακάτω σχήμα δείχνει το αποτέλεσμα:
Η μακροεντολή χρησιμοποιεί τον παράγοντα που ορίσατε στην εκχώρηση τιμής για τη μεταβλητή "Πρόσθετο ποσό".
Για να εισαγάγετε τη μακροεντολή, πατήστε ALT F11 στο Excel για να εμφανιστεί ο επεξεργαστής VBA. Χρησιμοποιήστε την εντολή INSERT - MODULE για να εισαγάγετε ένα κενό φύλλο λειτουργικής μονάδας. Για να ξεκινήσετε τη μακροεντολή απευθείας από το Excel, χρησιμοποιήστε τον συνδυασμό πλήκτρων ALT F8.
