Πώς να αντικαταστήσει ένα Variable στο Excel VBA

Γνωρίζοντας πώς να αντικαταστήσει μια μεταβλητή στο Excel VBA είναι απαραίτητη όταν ένα πρόγραμμα έχει μια μεταβλητή της οποίας το όνομα δεν αναφέρει σαφώς τη λειτουργία της μεταβλητής . Γράφοντας κώδικα που είναι εύκολα διατηρήσιμη απαιτήσεις σαφώς οι μεταβλητές με όνομα . Θα μπορούσε να εκτελέσει τη μεταβλητή αντικατάσταση με το χέρι , αλλάζοντας κάθε εμφάνιση της μεταβλητής σε ένα πρόγραμμα. Αυτή είναι χρονοβόρα και επιρρεπής σε λάθη , ωστόσο. Χρησιμοποιήστε "Αντικατάσταση " εντολή του περιβάλλον προγραμματισμού αντ 'αυτού. Αυτή η εντολή μπορεί να ταιριάξει με όλες τις εμφανίσεις μιας συγκεκριμένης μεταβλητής , και μόνο αυτή τη μεταβλητή . Οδηγίες
Αντικαταστήστε μια μεταβλητή με μια άλλη μεταβλητή
Η

1 Κάντε κλικ στο κουμπί της καρτέλας "Προγραμματιστής " του " Visual Basic" για να μπείτε στο περιβάλλον προγραμματισμού VBA , στη συνέχεια, επικολλήστε το ακόλουθο πρόγραμμα στο παράθυρο κενό προγραμματισμού στην οθόνη κέντρο . Αυτό το πρόγραμμα εμφανίζει ένα σύντομο χαιρετισμό και ορίζει δύο μεταβλητές . Θα αντικαταστήσει μια μεταβλητή με το άλλο .

Sub sayHello ( )

Dim x , y

x = " Hello"

y = " Χαιρετίσματα "

MsgBox x

End Sub 2

Πατήστε " F5 "για να εκτελέσετε το πρόγραμμα , το οποίο εμφανίζει το μήνυμα " Hello ". Πηγαίνετε πίσω στον κώδικα . Κάντε κλικ και σύρετε πάνω από το "x " στο " Dim " δήλωση για να επιλέξετε το "x ".
Εικόνων 3

Κάντε κλικ στο " Επεξεργασία ", " Αντικατάσταση ". Πληκτρολογήστε "y" στο πλαίσιο κειμένου "Αντικατάσταση" , στη συνέχεια, κάντε κλικ στο " ολόκληρες λέξεις μόνο " και " Match Case" πλαίσια ελέγχου .
Η

4 Κάντε κλικ στο κουμπί " Αντικατάσταση όλων " για να αντικαταστήσει τις μεταβλητές "x " με μεταβλητή" y ".
5

Εκτελέστε το πρόγραμμα , όπως κάνατε στο βήμα 3 . Σημειώστε ότι το πρόγραμμα εμφανίζει ένα διαφορετικό μήνυμα αυτή τη φορά , λόγω σας αντικαθιστώντας τη μεταβλητή "x " με " y ".
Εικόνων Αντικαταστήστε μια μεταβλητή Σταθερή
Η 6

Κάντε κλικ στο κουμπί "Προγραμματιστής " καρτέλας " Visual Basic" για να μπείτε στο παράθυρο προγραμματισμού για τη Visual Basic for Applications . Επικολλήστε τον ακόλουθο πρόγραμμα στο παράθυρο . Αυτό το πρόγραμμα χρησιμοποιεί μια μεταβλητή για να εμφανιστεί ένα σύντομο χαιρετισμό .

Sub sayHello ( )

Dim y

y = " Χαιρετίσματα "

MsgBox y

End Sub
Η 7

Εκτελέστε το πρόγραμμα πατώντας το πλήκτρο " F5 ". Visual Basic εμφανίζει το μήνυμα που αναφέρεται στην " MsgBox " δήλωση.
8

Κάντε κλικ και σύρετε πάνω από το " y" στο "Dim " δήλωση στον κώδικα , στη συνέχεια, κάντε κλικ στο κουμπί "Επεξεργασία ", " Αντικατάσταση. " Πληκτρολογήστε τα σταθερά συμβολοσειράς " Χαιρετίσματα " στο πλαίσιο κειμένου "Αντικατάσταση" .
Η

9 Κάντε κλικ στο "Match Case" και " ολόκληρες λέξεις μόνο " πλαίσια ελέγχου και, στη συνέχεια κάντε κλικ στο κουμπί " Αντικατάσταση όλων " για να αντικαταστήσει το " y " μεταβλητή με τα σταθερά συμβολοσειράς " Χαιρετίσματα ".

10

Εκτελέστε το πρόγραμμα , όπως κάνατε στο βήμα 2 . Σημειώστε ότι το πρόγραμμα εμφανίζει πλέον το μήνυμα της σταθερά συμβολοσειράς που πληκτρολογήσατε .
Η
εικόνων