Πώς να δημιουργήσετε υπερ-συνδέσεις σε Excel VBA

Εσύ είσαι ο ειδικός του Excel στο γραφείο σας . Όταν συναδέλφους χρειάζεστε βοήθεια με τη διαλογή ή ομαδοποίηση , έρχονται σε σας . Όταν δεν μπορούν να πάρουν Pivot Tables τους να εργάζονται , έρχονται σε σας . Και όταν ένα κομμάτι του αυτοματισμού είναι απαραίτητη στο Excel , έρχονται σε σας . Σήμερα , θα πρέπει να προσθέσετε μια υπερ-σύνδεση σε ένα κύτταρο , έτσι αυτοματοποιημένη λύση σας θα χτυπήσει τις κάλτσες τους μακριά . Αυτό το άρθρο θα σας πω ακριβώς πόσο γρήγορο και εύκολο είναι να εντυπωσιάσει τους συναδέλφους σας με υπερσυνδέσμους . Οδηγίες
Η 1

Προσδιορίστε το κελί που χρειάζεται μια υπερ-σύνδεση και επιλέξτε το κελί στον κώδικα VBA σας . 2

Χρησιμοποιήστε τη μέθοδο Add της συλλογής υπερ-συνδέσεις για να προσθέσετε την υπερ-σύνδεση στο κελί. Η ακόλουθη δήλωση προσθέτει το κείμενο "Hello , world " στο επιλεγμένο κελί , υπερ- σύνδεση αυτό το κείμενο στην αρχική σελίδα Google

ActiveSheet.Hyperlinks.Add Anchor : . = Επιλογής , Διεύθυνση : = _

" http://www.google.com " , TextToDisplay : = "Hello , world"
εικόνων 3

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

TextToDisplay : = Selection.Text

Αυτό θα αποτρέψει τον κωδικό σας VBA να αντικαταστήσουν το κείμενο σε κάθε κύτταρο
<. br > 4

σώσει σενάριο VBA σας και δοκιμάστε το . Βεβαιωθείτε ότι το τηλέφωνο είναι σωστά υπερ - συνδεδεμένος και περιέχει το σωστό κείμενο .
Η
εικόνων