Τρόπος χρήσης μεταβλητών σε Excel δευτερεύουσες διαδικασίες στο Visual Basic for Applications

Σύνοψη τύπου δεδομένων

Αυτοί είναι οι κοινοί τύποι δεδομένων μεταβλητών:

τύπος δεδομένων Variant

Εάν δεν καθορίσετε έναν τύπο δεδομένων όταν δηλώνετε μια μεταβλητή ή δεν δηλώνετε καθόλου μια μεταβλητή, Visual Basic καθορίζει αυτόματα τον τύπο δεδομένων μεταβλητής για αυτήν τη μεταβλητή. Ακολουθούν τα πλεονεκτήματα των μεταβλητών που έχουν δηλωθεί ως αυτός ο τύπος δεδομένων:

• Οι μεταβλητές μπορεί να περιέχουν τιμές συμβολοσειράς, ημερομηνίας, ώρας, δυαδικής τιμής ή αριθμητικές τιμές.

• Οι μεταβλητές μπορούν να μετατρέψουν τις τιμές που περιέχουν αυτόματα.

Το μειονέκτημα είναι ότι οι μεταβλητές μεταβλητές απαιτούν τουλάχιστον 16 byte μνήμης. Η μνήμη 16 byte μπορεί να είναι σημαντική σε μεγάλες διαδικασίες ή σε σύνθετες λειτουργικές μονάδες.

Για να δείτε πώς λειτουργεί αυτό στη μακροεντολή Variable_Test, ακολουθήστε τα παρακάτω βήματα:

Αλλάξτε τον κώδικα της μακροεντολής Variable_Test σε:

Sub Variable_Test()
    Dim x, y
    x = "string"
    y = 1.23
    MsgBox "the value of x is " & x & _
    Chr(13) & "the value of y is " & y
End Sub

Εκτελέστε τη μακροεντολή Variable_Test.

Δεν θα εμφανιστεί σφάλμα, επειδή μπορείτε να αντιστοιχίσετε οτιδήποτε στις μεταβλητές x και y.

ΣΗΜΕΊΩΣΗ: Μπορείτε επίσης να παραλείψετε την ακόλουθη γραμμή και η μακροεντολή θα εξακολουθεί να λειτουργεί ως μεταβλητές x και y θεωρούνται τύποι δεδομένων Μεταβλητή:

    Dim x, y

Πεδίο εφαρμογής επιπέδου διαδικασίας

Μια μεταβλητή με εμβέλεια επιπέδου διαδικασίας δεν εμφανίζεται εκτός της διαδικασίας όπου δηλώνεται. Εάν ορίσετε την τιμή μιας μεταβλητής που έχει εύρος επιπέδου διαδικασίας, τα περιεχόμενα αυτής της μεταβλητής δεν θα είναι ορατά από άλλες μακροεντολές.

Για να επαληθεύσετε ότι μια μεταβλητή με εύρος επιπέδου διαδικασίας δεν εμφανίζεται εκτός της διαδικασίας όπου δηλώνεται, ακολουθήστε τα παρακάτω βήματα:

1. Εισαγάγετε μια νέα λειτουργική μονάδα στο έργο σας.

2. Πληκτρολογήστε και τις δύο παρακάτω μακροεντολές σε αυτή τη λειτουργική μονάδα:
     Sub Macro1() Dim x As Integer x = 10 MsgBox "x, όπως φαίνεται από την macro1 is " & x 'η επόμενη γραμμή εκτελεί Μακροεντολή2 Macro2 End Sub Macro2() MsgBox "x, όπως φαίνεται από τη μακροεντολή2 είναι " & x End Sub

3. Εκτελέστε την μακροεντολή1 και θα λάβετε το ακόλουθο μήνυμα:
   
   x, as seen by Macro1 is 10

4. Κάντε κλικ στο κουμπί OKκαι θα λάβετε το ακόλουθο μήνυμα:
   
   x, as seen by Macro2 is

5. Κάντε κλικ στο κουμπί OK.

Η μακροεντολή2 δεν εμφανίζει μια τιμή για τη μεταβλητή x, επειδή η μεταβλητή x είναι τοπική σε Μακροεντολή1.

Πεδίο εφαρμογής ιδιωτικού και δημόσιου επιπέδου λειτουργικής μονάδας

Μπορείτε να ορίσετε μεταβλητές στην ενότητα δηλώσεων μιας λειτουργικής μονάδας (στο επάνω μέρος μιας λειτουργικής μονάδας, πάνω από όλες τις δευτερεύουσες διαδικασίες) και να ορίσετε το εύρος της μεταβλητής σας χρησιμοποιώντας τη Δημόσια δήλωση, την πρόταση Dim ή την πρόταση Private. Εάν τοποθετήσετε τη δημόσια πρόταση μπροστά από τη μεταβλητή σας, η μεταβλητή σας θα είναι διαθέσιμη σε όλες τις μακροεντολές σε όλες τις λειτουργικές μονάδες του έργου. Εάν τοποθετήσετε είτε την πρόταση Dim είτε την ιδιωτική πρόταση πριν από τη μεταβλητή, η μεταβλητή είναι διαθέσιμη μόνο σε μακροεντολές στη λειτουργική μονάδα όπου δηλώνεται.

Για να δείτε τη διαφορά μεταξύ της δημόσιας πρότασης και της πρότασης Dim, ακολουθήστε τα παρακάτω βήματα:

1. Αποθηκεύστε και κλείστε τυχόν ανοιχτά βιβλία εργασίας και, στη συνέχεια, ανοίξτε ένα νέο βιβλίο εργασίας.

2. Εκκινήστε το Πρόγραμμα επεξεργασίας Visual Basic.

3. Εισαγάγετε μια λειτουργική μονάδα στο έργο σας.

4. Type the following code into this module:
   
   Public x As Integer
   Sub Macro_1a()
       x = 10
       MsgBox x
       Macro_1b
   End Sub
   Sub Macro_1b()
       x = x * 2
       MsgBox x
       Macro2
   End Sub

5. Εισαγάγετε μια άλλη λειτουργική μονάδα στο έργο σας.

6. Πληκτρολογήστε τον παρακάτω κώδικα σε αυτή τη λειτουργική μονάδα:

   
   Sub Macro2()     x = x * 3
       MsgBox x
   End Sub

7. Εκτελέστε Macro_1a μακροεντολή στην πρώτη λειτουργική μονάδα.

8. Με τη μεταβλητή x να έχει δηλωθεί ως "Δημόσιο x Ως Ακέραιος", και οι τρεις μακροεντολές του έργου έχουν πρόσβαση στην τιμή του x. Το πρώτο πλαίσιο μηνύματος εμφανίζει την τιμή 10. Το δεύτερο πλαίσιο μηνύματος εμφανίζει μια τιμή 20 (επειδή το x πολλαπλασιάζεται επί 2 σε Macro_1b). Το τρίτο πλαίσιο μηνύματος εμφανίζει την τιμή 60 (επειδή η τιμή του x άλλαξε σε 20 σε Macro_1b και, στη συνέχεια, πολλαπλασιάστηκε επί 3 στο macro2).

9. Αλλαγή της γραμμής δήλωσης στην πρώτη λειτουργική μονάδα από:
   
      Public x As Integer
   
   προς:
   
      Dim x As Integer

10. Εκτελέστε τη μακροεντολή Macro_1a.

11. Με τη μεταβλητή x να έχει δηλωθεί ως "Dim x As Integer", μόνο οι μακροεντολές στην πρώτη λειτουργική μονάδα έχουν πρόσβαση στην τιμή του x. Επομένως, το πρώτο πλαίσιο μηνύματος εμφανίζει μια τιμή 10, το δεύτερο πλαίσιο μηνύματος εμφανίζει μια τιμή 20, (επειδή το x πολλαπλασιάζεται επί 2 στο Macro_1b) και το τρίτο πλαίσιο μηνύματος εμφανίζει μια τιμή 0 (επειδή η Μακροεντολή2 δεν βλέπει την τιμή του x και η τιμή του μη εξουσιοδοτημένου από το μηδέν χρησιμοποιείται από τη Μακροεντολή 2).

12. Αλλαγή της γραμμής δήλωσης στην πρώτη λειτουργική μονάδα από:
    
      Dim x As Integer
    
    Να:
    
        Private x As Integer

13. Εκτελέστε τη μακροεντολή Macro_1a.

14. Τα ίδια πλαίσια μηνύματος εμφανίζονται χρησιμοποιώντας την εμβέλεια ιδιωτικής δήλωσης, όπως χρησιμοποιούσαν την πρόταση Dim. Η μεταβλητή x έχει το ίδιο πεδίο εφαρμογής, ιδιωτικό για τη λειτουργική μονάδα όπου δηλώνεται.

ΣΗΜΕΊΩΣΗ: Εάν θέλετε το εύρος της μεταβλητής σας να περιορίζεται στη λειτουργική μονάδα όπου δηλώνεται, χρησιμοποιήστε τη δήλωση Privatestatement αντί για την πρόταση Dim. Και οι δύο έχουν το ίδιο αποτέλεσμα, αλλά το εύρος είναι σαφέστερο κατά την ανάγνωση του κώδικα εάν χρησιμοποιήσετε τη δήλωση "Ιδιωτικό".
 

Προετοιμασία της τιμής μιας μεταβλητής

Όταν εκτελείτε μια μακροεντολή, όλες οι μεταβλητές αρχικοποιούνται σε μια τιμή. Γίνεται προετοιμασία μιας αριθμητικής μεταβλητής σε μηδέν, γίνεται προετοιμασία μιας συμβολοσειράς μεταβλητού μήκους σε συμβολοσειρά μηδενικού μήκους ("") και μια συμβολοσειρά σταθερού μήκους συμπληρώνεται με τον κωδικό ASCII 0. Οι μεταβλητές αρχικοποιούνται σε Άδειασμα. Μια κενή μεταβλητή αναπαρίσταται από το μηδέν σε αριθμητικό περιβάλλον και από συμβολοσειρά μηδενικού μήκους ("") σε περιβάλλον συμβολοσειράς.

Μεταβλητές επιπέδου διαδικασίας

Εάν έχετε μια μεταβλητή που δηλώνεται σε μια μακροεντολή χρησιμοποιώντας την πρόταση Dim, η μεταβλητή διατηρεί την τιμή της εφόσον εκτελείται η μακροεντολή. Εάν αυτή η μακροεντολή καλέσει άλλες μακροεντολές, η τιμή της μεταβλητής διατηρείται (ωστόσο δεν είναι διαθέσιμη στις άλλες μακροεντολές), εφόσον εκτελούνται επίσης αυτές οι άλλες μακροεντολές.

Για να δείξετε πώς λειτουργούν οι μεταβλητές επιπέδου διαδικασίας, ακολουθήστε τα παρακάτω βήματα:

1. Εισαγάγετε μια νέα λειτουργική μονάδα στο έργο σας.

2. Πληκτρολογήστε και τις δύο παρακάτω μακροεντολές σε αυτή τη λειτουργική μονάδα:
   
   Sub Macro1()
       'ορισμός του x ως μεταβλητού
   επιπέδου διαδικασίας    Dim x As Integer
      MsgBox "η αρχική τιμή του x είναι " & x
      x = 10
       MsgBox "x is " & x
       'η επόμενη γραμμή εκτελεί μακροεντολή2
       Μακροεντολή2
       MsgBox "το x εξακολουθεί να " & x
   End Sub
   Δευτερεύουσα μακροεντολή2()
       MsgBox "x, όπως φαίνεται από το macro2 είναι " & x
   End Sub

3. Εκτέλεση μακροεντολής1.

4. Λαμβάνετε το ακόλουθο μήνυμα:
   
       the initialized value of x is 0

5. Κάντε κλικ στο κουμπί OKκαι θα λάβετε το μήνυμα:
   
    x is 10

6. Κάντε κλικ στο κουμπί OKκαι θα λάβετε το ακόλουθο μήνυμα:
   
   x, as seen by Macro2 is

7. Κάντε κλικ στο κουμπί OK.

8. Η μακροεντολή2 δεν εμφανίζει μια τιμή για τη μεταβλητή x, επειδή η μεταβλητή x είναι τοπική σε Μακροεντολή1. Λαμβάνετε το ακόλουθο μήνυμα:
   
   x is still 10

9. Κάντε κλικ στο κουμπί OK.

10. Εκτέλεση μακροεντολής1.

Λαμβάνετε τα ίδια μηνύματα που περιγράφονται στα βήματα 3 έως 6, επειδή μόλις η Μακροεντολή1 σταμάτησε να εκτελείται στο βήμα 6, η τιμή της μεταβλητής x χάθηκε. Επομένως, όταν εκτελέσετε ξανά τη Μακροεντολή1 στο Βήμα 7, το πρώτο μήνυμα εμφανίζει την τιμή του x ως μηδέν (την αρχική τιμή).

Στατική λέξη-κλειδί

Εάν μια μεταβλητή επιπέδου διαδικασίας δηλωθεί χρησιμοποιώντας τη στατική λέξη-κλειδί, η μεταβλητή διατηρεί την τιμή της μέχρι να γίνει επαναφορά του έργου σας. Επομένως, εάν έχετε μια στατική μεταβλητή, την επόμενη φορά που θα καλέσετε τη διαδικασία, η στατική μεταβλητή γίνεται προετοιμασία της στην τελευταία της τιμή.

Για να δείτε πώς λειτουργεί η στατική λέξη-κλειδί, ακολουθήστε τα παρακάτω βήματα:

1. Change the code in Macro1 to:
   
   Sub Macro1()
       'set x as a procedure level variable
       Static x As Integer
          MsgBox "the initialized value of x is " & x
       x = x + 10
       MsgBox "x is " & x
   End Sub

2. Εκτέλεση μακροεντολής1.

3. Θα λάβετε το μήνυμα:
   
   the initialized value of x is 0

4. Κάντε κλικ στο κουμπί OKκαι θα λάβετε το μήνυμα:
   
   x is 10

5. Κάντε κλικ στο κουμπί OK.

6. Εκτελέστε την μακροεντολή1 και λαμβάνετε το ακόλουθο μήνυμα:
   
   the initialized value of x is 10

7. Κάντε κλικ στο κουμπί OKκαι θα λάβετε το ακόλουθο μήνυμα:
   
   x is 20

8. Κάντε κλικ στο κουμπί OK.

Οι τιμές που εμφανίζονται στα μηνύματα διαφέρουν τη δεύτερη φορά, επειδή η μεταβλητή x δηλώνεται ως στατική μεταβλητή και η μεταβλητή διατηρεί την τιμή της αφού εκτελέσετε την Μακροεντολή1 την πρώτη φορά.

ΣΗΜΕΊΩΣΗ:  Εάν έχετε μια μεταβλητή επιπέδου λειτουργικής μονάδας, η διάρκεια ζωής της είναι ίδια σαν να ήταν μια στατική μεταβλητή επιπέδου διαδικασίας.

Για να επαληθεύσετε τη διάρκεια ζωής μιας μεταβλητής επιπέδου λειτουργικής μονάδας, ακολουθήστε τα παρακάτω βήματα:

1. Change the code in the module that contains Macro1 to the following:
   
   Dim x As Integer  'create a module-level variable
   Sub Macro1()
      MsgBox "the initialized value of x is " & x
      x = x + 10
      MsgBox "x is " & x
   End Sub

2. Εκτελέστε την μακροεντολή1 και θα λάβετε το ακόλουθο μήνυμα:
   
   the initialized value of x is 0

3. Κάντε κλικ στο κουμπί OK και θα λάβετε το ακόλουθο μήνυμα:
   
   x is 10

4. Κάντε κλικ στο κουμπί OK,

5. Εκτελέστε την μακροεντολή1 και θα λάβετε αυτό το μήνυμα:
   
   the initialized value of x is 10

6. Κάντε κλικ στο κουμπί OK.

7. Λαμβάνετε το ακόλουθο μήνυμα:
   
   x is 20

8. Κάντε κλικ στο κουμπί OK.

Οι τιμές που εμφανίζονται στα μηνύματα διαφέρουν τη δεύτερη φορά, επειδή η μεταβλητή x δηλώνεται ως στατική μεταβλητή και διατηρεί την τιμή της αφού εκτελέσετε την Μακροεντολή1 την πρώτη φορά.
 

Επαναφορά έργου για την επαναφορά μεταβλητών

Αν θέλετε να επαναφέρετε την τιμή για μια στατική μεταβλητή ή για μια μεταβλητή επιπέδου λειτουργικής μονάδας, κάντε κλικ στο κουμπί Επαναφορά στο κουμπί
Βασική γραμμή εργαλείων ή κάντε κλικ στην επιλογή Επαναφορά στο μενού Εκτέλεση.

Εάν το κάνετε αυτό για το έργο Macro1 και, στη συνέχεια, εκτελέσετε ξανά τη μακροεντολή Macro1,η τιμή της μεταβλητής x αρχικοποιηθεί πάλι στο μηδέν και λαμβάνετε το πρώτο μήνυμα:

    the initialized value of x is 0