Η τιμή του Pi είναι 3,14, η έλξη της βαρύτητας της Γης είναι 9,8 m/s2, έχετε ενδιαφέρον για το VBA, κλπ. Όλα αυτά είναι σταθερά και δεν αλλάζουν.
Στο VBA μπορείτε να ορίσετε μεταβλητές των οποίων η τιμή δεν μπορεί να αλλάξει στο πρόγραμμα. Ο προγραμματιστής VBA ορίζει αυτές τις σταθερές τιμές μόνος του στο πρόγραμμα για να τις χρησιμοποιεί ξανά και ξανά.
Πώς να ορίσετε μια σταθερή τιμή στο VBA;
Χρησιμοποιούμε τη λέξη -κλειδί Κωνστνα δηλώσει σταθερά στο VBA.
Η σύνταξη της δήλωσης σταθερής μεταβλητής στο VBA είναι:
[] Κωνστ ως =
[]: Ο καθοριστής πεδίου είναι προαιρετικός. Αν θέλετε, καθορίστε το εύρος της σταθεράς (δημόσιο ή ιδιωτικό), διαφορετικά μην το δηλώσετε. Από προεπιλογή, το εύρος μιας σταθεράς είναι ιδιωτικό. Μπορείτε να διαβάσετε σχετικά με τα πεδία Specifiers εδώ.
Σημείωση: Δεν χρησιμοποιούμε ποτέ τη λέξη -κλειδί Dim για να δηλώσουμε σταθερά στο VBA.
: Είναι το όνομα της σταθερής μεταβλητής.
: Το είδος της σταθεράς. Για παράδειγμα, ακέραιος αριθμός, συμβολοσειρά, ημερομηνία, κ.λπ.
: Η τιμή της σταθερής μεταβλητής.
Ένα απλό παράδειγμα της Σταθερής Μεταβλητής είναι:
Κωνστ πι ως διπλό = 3,14
Εδώ δηλώσαμε τη σταθερή τιμή του pi σε μια μεταβλητή με όνομαπιΤο Τώρα μπορούμε να το χρησιμοποιήσουμε πιστο πρόγραμμά μας. Η τιμή θα είναι πάντα 3,14. Εάν προσπαθήσετε να αλλάξετε την τιμή μιας σταθερής μεταβλητής, το Excel VBA θα εμφανίσει ένα μήνυμα σφάλματος.
Παραδείγματα σταθερής μεταβλητής VBA
Μελετήστε τον παρακάτω κώδικα:
Const pi As Double = 3,14 Const rad As Double = 6371 Sub Earth () sArea = 4 * pi * Sqr (rad) Debug.Print sArea End Sub Sub Mars () rad = 3389.5 sArea = 4 * pi * Sqr (rad) Debug.Print sArea End Sub
Εδώ, έχουμε ορίσει δύο σταθερές, το pi και το rad. Η τιμή του pi είναι 3,14 και το rad είναι 6371 που είναι η ακτίνα της γης.
Τώρα, όταν τρέχουμε το πρώτο κάτω από τη Γη, λειτουργεί τέλεια και εκτυπώνει την επιφάνεια της Γης.
Στον επόμενο υπο-Άρη, επαναπροσδιορίσαμε τη σταθερή ακτινοβολία καθώς η ακτίνα του Άρη είναι διαφορετική. Όταν εκτελούμε αυτό το πρόγραμμα, εμφανίζεται ένα σφάλμα που λέει "Η εκχώρηση σε σταθερά δεν επιτρέπεται".
Πώς να επανεκκινήσετε μια σταθερά στο VBA
Όπως είδατε στο παραπάνω παράδειγμα, δεν μπορούμε να εκχωρήσουμε νέες τιμές σε μια σταθερά. Ναι, δεν μπορείς.
Αλλά αν εξακολουθείτε να χρειάζεται να χρησιμοποιείτε το ίδιο όνομα ως διαφορετική σταθερή τιμή, απλώς χρησιμοποιήστε το Κωνστλέξη -κλειδί πριν από την ανάθεση.
Ο παρακάτω κώδικας θα λειτουργήσει τέλεια.
Const pi As Double = 3.14 Const rad As Double = 6371 Sub Earth () sArea = 4 * pi * Sqr (rad) Debug. Print sArea End Sub Sub Mars () Const rad = 3389.5 sArea = 4 * pi * Sqr (rad) Debug.Print sArea End Sub
Η παραπάνω υπορουτίνα θα λειτουργήσει τέλεια χωρίς σφάλματα. Αλλά δεν προτείνω αυτήν την προσέγγιση. Ο καλύτερος τρόπος είναι να προσδιορίσετε τις δημόσιες και ιδιωτικές σταθερές και να τις ορίσετε ξεχωριστά. Και αυτό μας φέρνει στο επόμενο τμήμα μας.
Δημόσιες και ιδιωτικές σταθερές στο VBA
Όπως μάθαμε στα παραπάνω παραδείγματα, ορισμένες σταθερές μπορεί να είναι καθολικές και μερικές μπορεί να διαφέρουν για διαφορετικά αντικείμενα. Όπως, η τιμή pi είναι σταθερή για ολόκληρο το σύμπαν, αλλά ο αριθμός των πλανητών από πολύ ηλιακό σύστημα σε ηλιακό σύστημα και ακτίνα πλανητών διαφέρει από πλανήτη σε πλανήτη.
Καθώς η ακτίνα της Γης είναι σταθερή για αυτήν, όχι για το σύμπαν. Ομοίως, στα προγράμματα, θα υπάρχουν ορισμένες σταθερές που θα είναι ιδιωτικές για τα sub και τις ενότητες και μερικές θα είναι δημόσιες σταθερές για ολόκληρο το έργο VBA. Η δουλειά σας είναι να τα προσδιορίσετε και να τα δηλώσετε διαφορετικά.
Ας πάρουμε ένα άλλο παράδειγμα:
Public Const pi As Double = 3.14 'Σε αυτό μπορείτε να έχετε πρόσβαση από οποιαδήποτε ενότητα του έργου Private Const planet planets As Integer = 8' είναι ιδιωτικό σε αυτήν την ενότητα Sub Earth () Const rad As Double = 6371 'Private to this subroutine. Δεν είναι δυνατή η πρόσβαση εκτός sArea = 4 * pi * Sqr (rad) Debug.Print sArea End Sub Sub Mars () Const rad As Double = 3389.5 'Private to this subroutine Δεν είναι δυνατή η πρόσβαση εκτός sArea = 4 * pi * Sqr (rad) Debug. Εκτύπωση sArea End Sub
Αυτό είναι ένα απλό πεδίο μεταβλητής που καθορίζει. Μπορείτε να διαβάσετε λεπτομερώς για τη ρύθμιση της μεταβλητής εμβέλειας εδώ.
Λοιπόν, ναι, έτσι δηλώνετε και χρησιμοποιείτε σταθερές στο Excel VBA. Προσπάθησα να εξηγήσω με δημιουργικό τρόπο. Ελπίζω να ήμουν αρκετά επεξηγηματικός. Εάν έχετε οποιαδήποτε αμφιβολία, ρωτήστε την παρακάτω ενότητα σχολίων. Θα χαρώ να σας ακούσω και να σας απαντήσω.
Μεταβλητό πεδίο Excel VBA | έχουμε προσδιοριστές μεταβλητής πρόσβασης που ορίζουν από πού μπορεί να έχει πρόσβαση μια καθορισμένη μεταβλητή. Το Excel VBA δεν αποτελεί εξαίρεση. Το VBA έχει επίσης προσδιοριστικά πεδίου. Αυτοί οι προσδιοριστές πεδίου μπορούν να χρησιμοποιηθούν για να ορίσουν την ορατότητα/το εύρος μιας μεταβλητής στο Excel VBA.
ByRef και ByVal Arguments | Όταν ένα όρισμα μεταφέρεται ως όρισμα ByRef σε διαφορετική υπο -συνάρτηση, αποστέλλεται η αναφορά της πραγματικής μεταβλητής. Τυχόν αλλαγές που γίνονται στο αντίγραφο της μεταβλητής, θα αντικατοπτρίζονται στο αρχικό όρισμα.
Διαγράψτε φύλλα χωρίς προτροπές επιβεβαίωσης χρησιμοποιώντας VBA στο Microsoft Excel | Δεδομένου ότι διαγράφετε φύλλα χρησιμοποιώντας VBA, γνωρίζετε τι κάνετε. Θα θέλατε να πείτε στο Excel να μην εμφανίζει αυτήν την προειδοποίηση και να διαγράψει το καταραμένο φύλλο.
Προσθήκη και αποθήκευση νέου βιβλίου εργασίας χρησιμοποιώντας το VBA Στο Microsoft Excel 2016 | Σε αυτόν τον κώδικα, δημιουργήσαμε πρώτα μια αναφορά σε ένα αντικείμενο βιβλίου εργασίας. Και στη συνέχεια το αρχικοποιήσαμε με ένα νέο αντικείμενο βιβλίου εργασίας. Το πλεονέκτημα αυτής της προσέγγισης είναι ότι μπορείτε να κάνετε εύκολα λειτουργίες σε αυτό το νέο βιβλίο εργασίας. Όπως αποθήκευση, κλείσιμο, διαγραφή κλπ
Εμφάνιση μηνύματος στη γραμμή κατάστασης του Excel VBA Η γραμμή κατάστασης στο excel μπορεί να χρησιμοποιηθεί ως οθόνη κώδικα. Όταν ο κώδικας VBA είναι μεγάλος και εκτελείτε πολλές εργασίες χρησιμοποιώντας το VBA, συχνά απενεργοποιείτε την ενημέρωση οθόνης, ώστε να μην βλέπετε την οθόνη να τρεμοπαίζει
Απενεργοποίηση προειδοποιητικών μηνυμάτων χρησιμοποιώντας το VBA στο Microsoft Excel 2016 | Αυτός ο κώδικας όχι μόνο απενεργοποιεί τις ειδοποιήσεις VBA αλλά αυξάνει επίσης την αποδοτικότητα χρόνου του κώδικα. Ας δούμε πώς.
Δημοφιλή άρθρα:
50 συντομεύσεις Excel για να αυξήσετε την παραγωγικότητά σας | Γίνετε πιο γρήγοροι στην εργασία σας. Αυτές οι 50 συντομεύσεις θα σας κάνουν να εργάζεστε ακόμη πιο γρήγορα στο Excel.
Η συνάρτηση VLOOKUP στο Excel | Αυτή είναι μια από τις πιο δημοφιλείς και δημοφιλείς λειτουργίες του excel που χρησιμοποιείται για την αναζήτηση τιμών από διαφορετικά εύρη και φύλλα.
COUNTIF στο Excel 2016 | Μετρήστε τιμές με συνθήκες χρησιμοποιώντας αυτήν την εκπληκτική συνάρτηση. Δεν χρειάζεται να φιλτράρετε τα δεδομένα σας για να μετρήσετε συγκεκριμένη τιμή. Η λειτουργία Countif είναι απαραίτητη για την προετοιμασία του ταμπλό σας.
Πώς να χρησιμοποιήσετε τη συνάρτηση SUMIF στο Excel | Αυτή είναι μια άλλη βασική λειτουργία του ταμπλό. Αυτό σας βοηθά να συνοψίσετε τιμές υπό συγκεκριμένες συνθήκες.