Excel Visual Basic : Πώς να αντικαταστήσει ένα String Μέσα Quotes

Χρήση του Excel ενσωματωμένο στη γλώσσα προγραμματισμού Visual Basic for Applications ή VBA , για να αντικαταστήσει μια σειρά μέσα σε εισαγωγικά , χρησιμοποιώντας Αντικαταστήστε τη λειτουργία του συγκεκριμένου γλώσσας . Η λειτουργία αυτή αναζητά μια συμβολοσειρά που έχετε ορίσει σε μια μεγαλύτερη σειρά , στη συνέχεια, αντικαθιστά το συμβολοσειράς με μια τρίτη σειρά που σας παρέχει . Σημειώστε ότι αυτή η λειτουργία δεν μεταβάλλει την αρχική σειρά , αλλά εξάγει μια νέα σειρά , που μπορείτε να τραβήξετε σε μια νέα μεταβλητή συμβολοσειράς . Μπορείτε να χρησιμοποιήσετε ό, τι έχετε μάθει σε αυτό το έργο για να αφαιρεθούν οι περιττές εισαγωγικά ότι οι χρήστες των προγραμμάτων VBA σας εισέλθουν σε υπολογιστικά φύλλα . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Επιλογή " του μενού "Αρχείο" , τότε κάντε κλικ στο " Προσαρμογή της Κορδέλας » ελέγχου στην " κατηγορίες" παράθυρο . Κάντε κλικ στο " Developer " κουτάκι για να επιβεβαιώσετε πως θέλετε να εμφανίσετε το συγκεκριμένο καρτέλα , και στη συνέχεια κλείστε όλα τα ανοιχτά παράθυρα διαλόγου . Excel θα εμφανίσει τώρα στην καρτέλα "Προγραμματιστής " . Αυτό το βήμα σας επιτρέπει να εισάγετε το περιβάλλον ανάπτυξης VBA μέσω του πλήκτρου "Προγραμματιστής " καρτέλας " Visual Basic" . 2

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

Επικολλήστε τον ακόλουθο τμήμα του προγράμματος στο παράθυρο που μόλις δημιουργήσατε . Αυτό το κομμάτι ορίζει μια μεταβλητή συμβολοσειράς , και εκχωρεί ένα string που είναι μέσα εισαγωγικά . Το θραύσμα χρησιμοποιεί τη δήλωση Chr για να προσθέσετε τα εισαγωγικά . Αν προσπαθήσετε να προσθέσετε τα εισαγωγικά χωρίς βοηθώντας λειτουργία, όπως Χρ , το περιβάλλον ανάπτυξης που θα αναφέρει ένα σφάλμα σύνταξης . Ο λόγος είναι ότι η VBA πούλι σύνταξη ερμηνεύει κάθε ζεύγος κυριολεκτική εισαγωγικά ως μια νέα σειρά .

Sub replaceQuotedString ( ) Dim x , longerString , newString Όπως Stringx = Chr ( 34 ) & " abc " & ? Chr ( 34 ) End Sub
Η 4

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

longerString = " Ας αντικαταστήσει αυτή τη σειρά : " " newString . » . & XnewString = Αντικαταστήστε ( longerString , x , " abc " )
5

Κάντε κλικ σε οποιαδήποτε δήλωση στο πρόγραμμα , στη συνέχεια, πατήστε "F8 " για να μπείτε στη λειτουργία για την εκτέλεση προγραμμάτων μία δήλωση σε μια στιγμή . Πατήστε το πλήκτρο " F8" επανειλημμένα μέχρι να επισημανθεί η δήλωση με το " newString " .
Η 6

Κινήστε το ποντίκι σας πάνω από το " longerString " μεταβλητή . VBA θα εμφανίσει την αξία της στοιχειοσειράς , η οποία περιλαμβάνει τη μεταβλητή Χ με την συμβολοσειρά της , " abc ".
Η

7 Πατήστε το πλήκτρο " F8" ξανά για να εκτελέσει τη δήλωση Αντικατάσταση και περάστε το ποντίκι σας πάνω η " newString " μεταβλητή . VBA θα εμφανίσει ένα string με την ίδια τιμή ως " longerString », αλλά με μια νέα σειρά σε ισχύ της στις εισηγμένες " abc " τμήμα . Η νέα σειρά είναι " abc " χωρίς τα εισαγωγικά .
Η
εικόνων