Πώς να επεξεργαστείτε μια διεύθυνση URL στο Excel με μακροεντολές

Η κατανόηση του πώς να επεξεργαστείτε τις διευθύνσεις URL με μακροεντολές VBA του Excel σας επιτρέπει να διαγράψετε ή να προσθέσετε χαρακτήρες σε διευθύνσεις Web σε βιβλία εργασίας σας . Μπορείτε να χρησιμοποιήσετε αυτή τη γνώση για να καθορίσει σπασμένα URLs , να αλλάξετε το εμφανιζόμενο όνομα ενός URL ή εισάγετε εντελώς νέες διευθύνσεις URL . Η ιδιότητα "Τύπος" VBA καθιστά δυνατές αυτές τις αλλαγές . Μπορείτε να ορίσετε αυτήν την ιδιότητα στο όνομα οποιουδήποτε από τα καθήκοντα δυνάμει " Τύποι " καρτέλα του Excel . Δεδομένου ότι ο τύπος περιεχομένου των URLs είναι ένα string , εξοικείωση με συναρτήσεις συμβολοσειράς VBA, όπως "Αντικατάσταση ", " Mid ", " Αριστερά " και ο τελεστής συνένωσης , " και , " θα σας βοηθήσει στην επεξεργασία URLs . Οδηγίες
Αντικαταστήστε Χαρακτήρες

1

Κάντε κλικ στο μενού "Αρχείο" , κάντε κλικ στο " Επιλογές " και στη συνέχεια κάντε κλικ στο κουμπί " Προσαρμογή κορδέλας . " Κάντε κλικ στο πλαίσιο ελέγχου "Προγραμματιστής " , στη συνέχεια, κάντε κλικ στο " OK " για να κλείσετε το παράθυρο "Επιλογές" . Το Word θα εμφανίσει την καρτέλα "Προγραμματιστής " . 2

Πληκτρολογήστε τον παρακάτω τύπο σε οποιοδήποτε κελί στο τρέχον βιβλίο εργασίας . Αυτός ο τύπος δημιουργεί μια υπερ-σύνδεση URL στο ενεργό κελί .

= HYPERLINK ( " http://www.whitehouse.net " , "Λευκός Οίκος " )
εικόνων 3

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

Public Sub editURL ( )

Dim URL , url2

URL = ActiveCell . Formula

url2 = Αντικατάσταση ( URL , "Λευκός Οίκος " , " Οβάλ Γραφείο " )

ActiveCell.Formula = url2

End Sub
Η 4

Κάντε κλικ σε οποιαδήποτε δήλωση στο πρόγραμμα , στη συνέχεια, κάντε κλικ στο κουμπί του μενού " Run " του " Run " εντολή για να εκτελέσετε το πρόγραμμα .
5

Κάντε κλικ στο εικονίδιο " Excel " στη γραμμή εργασιών για να επιστρέψετε στο Excel . Παρατηρήστε ότι το κείμενο " Οβάλ Γραφείο " εμφανίζεται τώρα στη θέση του αρχικού « Λευκό Οίκο » κείμενο , που δείχνει την επεξεργασία του προγράμματός σας του URL ήταν επιτυχής .
Εικόνων Αντικαταστήστε Ολόκληρο το URL
Η 6

Κάντε κλικ στο κουμπί "Προγραμματιστής " καρτέλας " Visual Basic" για να μπείτε στο περιβάλλον για τη δημιουργία προγραμμάτων VBA .
Η

7 Ακολουθήστε τις οδηγίες από το βήμα 2 της προηγούμενης ενότητας για να εισέρχονται σε κάθε διεύθυνση URL σε ένα φύλλο εργασίας κυττάρου. Για παράδειγμα, πληκτρολογήστε " = υπερσυνδέσμου ( " http://www.whitehouse.gov " , " Το Οβάλ Γραφείο " ) " .
8

Επικολλήστε τον ακόλουθο πρόγραμμα στο παράθυρο . Αυτό το πρόγραμμα δημιουργεί ένα εντελώς νέο URL στο ενεργό κελί .

Public Sub editURL ( )

ActiveCell.Formula = " = υπερσυνδέσμου ( " " http://www.nea.gov " " »,« Εθνικό Κληροδότημα για τις Τέχνες " " ) "

End Sub
Η 9

Κάντε κλικ σε μια δήλωση στο πλαίσιο του προγράμματος για να επιλέξετε το πρόγραμμα .
Η 10

Κάντε κλικ στο κουμπί του μενού " Run " του " Run " εντολή για να εκτελέσετε το πρόγραμμα . Επιστρέψτε το Excel πατώντας " Alt + F11 . " Ο "Λευκός Οίκος " URL που πληκτρολογήσατε στο βήμα 2 έχει πλέον αντικατασταθεί από μια σύνδεση με την αρχική σελίδα του National Endowment for the Arts .
Η
εικόνων