Αυτό το σεμινάριο VBA καλύπτει τους διαφορετικούς τρόπους εργασίας με υπερσυνδέσμους στο VBA.
Υπερσυνδέσεις VBA
Με το VBA, μπορείτε να προσθέσετε υπερσυνδέσμους, να αφαιρέσετε υπερσυνδέσμους, να δημιουργήσετε μηνύματα ηλεκτρονικού ταχυδρομείου χρησιμοποιώντας υπερσυνδέσμους και να ανοίξετε αρχεία χρησιμοποιώντας υπερσυνδέσμους στο VBA.
Προσθέστε έναν υπερσύνδεσμο με VBA
Η μέθοδος Hyperlinks.Add προσθέτει μια υπερ -σύνδεση σε ένα κελί χρησιμοποιώντας VBA.
Ο ακόλουθος κώδικας θα προσθέσει έναν υπερσύνδεσμο στο κελί A1:
| 123 | Sub AddHyperlinkToCell ()ActiveSheet.Hyperlinks.Add Range ("A1"), Διεύθυνση: = "https://www.automateexcel.com/excel/"Τέλος υπο |
Το αποτέλεσμα είναι:
Προσθήκη κειμένου στην οθόνη με VBA
Μπορείτε να προσθέσετε τακτοποιημένο φιλικό προς το χρήστη κείμενο για εμφάνιση στην υπερσύνδεσή σας με VBA. Εάν χρησιμοποιήσατε τη λειτουργικότητα του φύλλου εργασίας, θα εισαγάγατε έναν υπερσύνδεσμο και, στη συνέχεια, προσθέσατε ένα κείμενο για εμφάνιση στο παρεχόμενο παράθυρο διαλόγου.
Ο παρακάτω κώδικας δείχνει πώς μπορείτε να προσθέσετε κείμενο για εμφάνιση στον υπερσύνδεσμό σας χρησιμοποιώντας το VBA:
| 123 | Sub TextToDisplayForHyperlink ()ActiveSheet.Hyperlinks.Add Range ("A1"), Διεύθυνση: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Αυτοματοποίηση Excel"Τέλος υπο |
Το αποτέλεσμα είναι:
Προσθήκη Συμβουλής οθόνης με VBA
Μπορείτε να προσθέσετε μια Συμβουλή οθόνης στον υπερσύνδεσμό σας που θα δει ο θεατής όταν τοποθετήσει τον δείκτη του ποντικιού πάνω στον σύνδεσμο.
Ο παρακάτω κώδικας δείχνει πώς μπορείτε να προσθέσετε μια Συμβουλή οθόνης στον υπερσύνδεσμό σας χρησιμοποιώντας το VBA:
| 123 | Υποπροβολή οθόνηςΓιαΗ υπερσύνδεση ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "https://www.automateexcel.com/excel/", TextToDisplay: = "Automate Excel", ScreenTip: = "Αυτός είναι ο σύνδεσμος για το Automate Excel"Τέλος υπο |
Το αποτέλεσμα είναι:
Διαγράψτε έναν υπερσύνδεσμο με VBA
Η μέθοδος Hyperlinks.Delete μπορεί να χρησιμοποιηθεί για τη διαγραφή μιας υπερ -σύνδεσης από ένα κελί.
Ο ακόλουθος κώδικας θα διαγράψει τον υπερσύνδεσμο από το κελί Α1 και το κείμενο στο κελί.
Λάβετε υπόψη ότι απλώς διαγράφοντας τον υπερσύνδεσμο, δεν διαγράφεται το ίδιο το κείμενο, γι 'αυτό εάν θέλετε να διαγραφεί το κείμενο, πρέπει επίσης να χρησιμοποιήσετε τη μέθοδο Διαγραφή.
| 1234 | Sub DeleteHyperlinkinCell ()Εύρος ("A1"). Υπερσυνδέσεις. ΔιαγραφήΕύρος ("A1"). ΣαφέςΤέλος υπο |
Διαγράψτε όλους τους υπερσυνδέσμους σε ένα φύλλο εργασίας
Μπορείτε επίσης να διαγράψετε όλους τους υπερσυνδέσμους στο φύλλο εργασίας σας χρησιμοποιώντας τη μέθοδο Hyperlinks.Delete.
Ο ακόλουθος κώδικας θα διαγράψει όλους τους υπερσυνδέσμους στο πρώτο φύλλο εργασίας στο βιβλίο εργασίας σας:
| 123 | Sub RemoveAllHyperlinksInASheet ()ThisWorkbook.Sheets (1) .Hyperlinks.DeleteΤέλος υπο |
Ακολουθήστε έναν υπερσύνδεσμο ιστότοπου χρησιμοποιώντας VBA
Ο ακόλουθος κώδικας σάς επιτρέπει να ανοίξετε μια διεύθυνση ιστότοπου, σε ένα νέο παράθυρο στο πρόγραμμα περιήγησής σας, χρησιμοποιώντας τη μέθοδο FollowHyperlink στο βιβλίο εργασίας σας:
| 123 | Sub FollowHyperlinkForWebsite ()Διεύθυνση ActiveWorkbook.FollowHyperlink: = "https://www.automateexcel.com/excel", NewWindow: = TrueΤέλος υπο |
Ακολουθήστε έναν υπερσύνδεσμο σε ένα φάκελο στο Drive σας
Ο ακόλουθος κώδικας θα ανοίξει ένα φάκελο που ονομάζεται ExcelFiles στην επιφάνεια εργασίας χρησιμοποιώντας τη μέθοδο FollowHyperlink:
| 123 | Sub FollowHyperlinkForFolderOnDrive ()Διεύθυνση ActiveWorkbook.FollowHyperlink: = "C: \ Desktop \ ExcelFiles"Τέλος υπο |
Ακολουθήστε έναν υπερσύνδεσμο σε ένα αρχείο στο Drive σας
Ο ακόλουθος κώδικας θα ανοίξει ένα αρχείο Excel που ονομάζεται WorkbookOne στο φάκελο που ονομάζεται ExcelFiles στην επιφάνεια εργασίας χρησιμοποιώντας τη μέθοδο FollowHyperlink:
| 123 | Sub FollowHyperlinkForFile ()ActiveWorkbook.FollowHyperlink Address: = "C: \ Desktop \ ExcelFiles \ WorkbookOne.xlsx", NewWindow: = TrueΤέλος υπο |
Μεταβείτε σε ένα κελί σε άλλο φύλλο στο ίδιο τετράδιο εργασίας
Μπορείτε να προσθέσετε μια υπερ -σύνδεση σε ένα κελί σε ένα φύλλο που σας μεταφέρει σε άλλο φύλλο, στο ίδιο βιβλίο εργασίας με VBA. Ας υποθέσουμε ότι βρίσκεστε στο Sheet1, το κελί A1 του βιβλίου εργασίας σας και θέλετε να εισαγάγετε έναν υπερσύνδεσμο στο Sheet2, κελί B2 του ίδιου βιβλίου εργασίας, μπορείτε να χρησιμοποιήσετε την ιδιότητα SubAddress για να το κάνετε αυτό.
Ο παρακάτω κώδικας δείχνει πώς να το κάνετε αυτό:
| 123 | Sub GoToAnotherCellInAnotherSheetInTheSameWorkbook ()ActiveSheet.Hyperlinks.Add Range ("A1"), Address: = "", SubAddress: = "'" & Sheet2.Name & "'! B2", TextToDisplay: = "Κάντε κλικ εδώ για να μεταβείτε στο φύλλο2, κελί Β2 του ίδιο βιβλίο εργασίας "Τέλος υπο |
Εμφάνιση όλων των υπερσυνδέσεων σε ένα φύλλο εργασίας
Μπορείτε να αποκτήσετε πρόσβαση στη συλλογή υπερσυνδέσεων και να εμφανίσετε όλους τους υπερσυνδέσμους στο φύλλο εργασίας σας στο Ενδιάμεσο παράθυρο στο VBA Editor. Πρέπει πρώτα να πατήσετε CTRL+G στο πληκτρολόγιό σας ή μεταβείτε στο Προβολή> Ενδιάμεσο παράθυρο στο VBE Editor, για προβολή του ενδιάμεσου παραθύρου.
Ο ακόλουθος κώδικας δείχνει τον τρόπο προβολής των υπερσυνδέσεων στο φύλλο εργασίας σας στο ενδιάμεσο παράθυρο:
| 1234567891011 | Sub ShowAllTheHyperlinksInTheWorksheet ()Dim ws Ως φύλλο εργασίαςΟρισμός ws = ThisWorkbook.Sheets (1)Για κάθε lnk σε ws.HyperlinksΕντοπισμός σφαλμάτων. Εκτύπωση lnk. ΔιεύθυνσηΕπόμενο lnkΤέλος υπο |
Τα αποτελέσματα εμφανίζονται στο ενδιάμεσο παράθυρο.
Εμφάνιση όλων των υπερσυνδέσεων σε ένα βιβλίο εργασίας
Μπορείτε να αποκτήσετε πρόσβαση στη συλλογή υπερσυνδέσμων, για να περιηγηθείτε και να εμφανίσετε όλους τους υπερσυνδέσμους στο βιβλίο εργασίας σας σε ένα πλαίσιο μηνυμάτων.
Ο παρακάτω κώδικας δείχνει πώς να το κάνετε αυτό και χρησιμοποιεί έναν ένθετο βρόχο για να το επιτύχετε αυτό:
| 1234567891011 | Sub ShowAllTheHyperlinksInTheWorkbook ()Dim ws Ως φύλλο εργασίαςΓια κάθε ws Στο ActiveWorkbook.WorksheetsΓια κάθε lnk σε ws.HyperlinksMsgBox lnk. ΔιεύθυνσηΕπόμενο lnkΕπόμενο wsΤέλος υπο |
Χρήση της μεθόδου FollowHyperlink για δημιουργία email
Μπορείτε επίσης να δημιουργήσετε μηνύματα ηλεκτρονικού ταχυδρομείου χρησιμοποιώντας τη μέθοδο FollowHyperlink.
Ο παρακάτω κώδικας θα σας δείξει πώς να δημιουργείτε μηνύματα ηλεκτρονικού ταχυδρομείου χρησιμοποιώντας τη μέθοδο FollowHyperlink στο VBA:
| 12345678 | Sub SendEmailUsingHyperlink ()Dim msgLink As StringmsgLink = "mailto:" & "[email protected]" & "?" & "subject =" & "Hello" & "&" & "body =" & "Πώς είσαι;"ActiveWorkbook.FollowHyperlink (msgLink)Τέλος υπο |
Το αποτέλεσμα είναι:
Προσθήκη υπερσύνδεσης σε αυτόματο σχήμα στο Excel
Μπορείτε να προσθέσετε έναν υπερσύνδεσμο σε ένα Αυτόματο σχήμα στο Excel, έτσι ώστε όταν ο χρήστης κάνει κλικ στο σχήμα να μεταφερθεί σε μια διεύθυνση ιστότοπου.
Ο ακόλουθος κώδικας δημιουργεί ένα στρογγυλεμένο ορθογώνιο, προσθέτει το κείμενο στο ορθογώνιο και προσθέτει μια υπερσύνδεση στο ορθογώνιο:
| 12345678910111213 | Υπο ΠροσθήκηAHyperlinkToAShape ()Dim myShape As ShapeΟρισμός myDocument = Φύλλα εργασίας ("Φύλλο1")Ορισμός myShape = myDocument.Shapes.AddShape (msoShapeRoundedRectangle, 100, 100, 90, 30)Με το myShape.TextFrame.Characters.Text = "Αυτοματοποίηση Excel"Τέλος μεActiveSheet.Hyperlinks.Add Anchor: = myShape, Διεύθυνση: = "https://www.automateexcel.com/excel"Τέλος υπο |
Το αποτέλεσμα είναι:
Εισαγωγή του τύπου υπερσύνδεσης σε ένα κελί χρησιμοποιώντας VBA
Ας υποθέσουμε ότι έχετε έναν τίτλο ανάρτησης στο κελί Α4 και έναν σύνδεσμο ανάρτησης στο κελί Β4 όπως φαίνεται στην παρακάτω εικόνα.
Μια γρήγορη υπενθύμιση της σύνταξης του τύπου φύλλου εργασίας Υπερσύνδεση είναι:
HYPERLINK (τοποθεσία_σύνδεσης, [friendly_name])
link_location - Αυτός είναι ο σύνδεσμος προς το έγγραφο, το αρχείο, τη θέση στο βιβλίο εργασίας ή τον διαδικτυακό ιστότοπο.
φιλικό όνομα - (Προαιρετικός) - Το κείμενο ή η αριθμητική τιμή που εμφανίζεται στο κελί.
Στο κελί C4, θέλετε να προσθέσετε τον υπερσύνδεσμο με ένα φιλικό κείμενο προς εμφάνιση, τώρα συνήθως εισάγετε τον τύπο = HYPERLINK (B4, A4) στο C4 για να λάβετε τα ακόλουθα:
Θα μπορούσατε να χρησιμοποιήσετε VBA για να επιτύχετε το ίδιο αποτέλεσμα και να εισαγάγετε αυτόν τον τύπο στο κελί, στο Sheet1 με τον ακόλουθο κώδικα:
| 123 | Sub InsertHyperlinkFormulaInCell ()ActiveWorkbook.Worksheets ("Sheet1"). Range ("C4"). Formula = "= hyperlink (B4, A4)"Τέλος υπο |
Προσθήκη υπερσύνδεσης σε κουμπί στην Access
Το VBA σάς επιτρέπει να εργάζεστε με υπερσυνδέσμους και στην Access. Ας υποθέσουμε ότι έχουμε ένα κουμπί σε μια φόρμα και όταν ο χρήστης κάνει κλικ σε αυτό το κουμπί θέλουμε να μεταφερθούν σε έναν ιστότοπο. Ένας τρόπος που μπορείτε να χρησιμοποιήσετε για να το κάνετε αυτό, είναι μέσω της μεθόδου Application.FollowHyperlink.
Έχουμε το δείγμα της φόρμας μας με ένα κουμπί που ονομάζεται κουμπί Ένα φαίνεται παρακάτω.
Ο κωδικός για αυτό το κουμπί θα είναι:
| 12345 | Private Sub buttonOne_Click ()Application.FollowHyperlink ("https://www.automateexcel.com/excel/")Τέλος υπο |
Δημιουργία υπερσύνδεσης από μια επιλογή στο Word
Μπορείτε να εργαστείτε με υπερσυνδέσμους και στο Word VBA.
Ας πούμε ότι έχουμε κείμενο Λέξη που λέει "Κάντε κλικ εδώ για να μεταφερθείτε στον αυτοματοποιημένο ιστότοπο του Excel", που έχει επιλεγεί όπως φαίνεται παρακάτω.
Για να μετατρέψετε αυτό το κείμενο σε υπερ -σύνδεση χρησιμοποιώντας το VBA, μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα:
| 123 | Private Sub TurnASelectionIntoAHyperlink ()ActiveDocument.Hyperlinks.Add Anchor: = Selection.Range, Address: = "https://www.automateexcel.com/excel/", ScreenTip: = "Κάντε κλικ εδώ παρακαλώ", Στόχος: = NewWindowΤέλος υπο |
Το αποτέλεσμα είναι:
