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

Στο Excel, μπορεί να είναι εύκολο για εμάς να δημιουργήσουμε έναν υπερσύνδεσμο για ένα κουμπί σχήματος, αλλά, έχετε προσπαθήσει ποτέ να δημιουργήσετε έναν υπερσύνδεσμο σε ένα κουμπί εντολής; Όταν κάνετε κλικ στο κουμπί εντολής, θα μεταβεί στον καθορισμένο ιστότοπο διευθύνσεων URL όπως χρειάζεστε. Σε αυτό το άρθρο, θα παρουσιάσω μερικά γρήγορα και εύκολα κόλπα για την αντιμετώπιση αυτής της εργασίας στο Excel.

Υπερσύνδεση ενός κουμπιού εντολής σε μια διεύθυνση URL με κωδικό VBA

Υπερσύνδεση ενός κουμπιού εντολής σε μια διεύθυνση URL με κωδικό VBA

Για να υπερσυνδέσετε ένα κουμπί εντολής, κάντε τα ακόλουθα βήματα:

1. Κλίκ Εργολάβος > Κύριο θέμα > Κουμπί εντολών (ActiveX Control)και στη συνέχεια σχεδιάστε ένα κουμπί όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:

2. Αφού εισαγάγετε το κουμπί εντολής, κάντε δεξί κλικ και επιλέξτε Ιδιοκτησίες από το μενού περιβάλλοντος, στο Ιδιοκτησίες , κάντε κλικ στην επιλογή Κατηγοριοποίηση και εισαγάγετε την πλήρη διεύθυνση του ιστότοπου που θέλετε να συνδέσετε στο Λεζάντα πλαίσιο κειμένου, δείτε το στιγμιότυπο οθόνης:

3. Στη συνέχεια, κλείστε το παράθυρο διαλόγου και κάντε δεξί κλικ στην καρτέλα φύλλων που περιέχει το κουμπί εντολής και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος και στο ανοιχτό Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή ενότητα:

Κωδικός VBA: υπερσύνδεση σε κουμπί εντολής:

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:=CommandButton1.Caption
End Sub

Σημείωση: Στον παραπάνω κώδικα, Κουμπί Command1 είναι το όνομα του κουμπιού εντολής που δημιουργήθηκε, αλλάξτε το ανάλογα με τις ανάγκες σας.

4. Και μετά αποθηκεύστε τον κωδικό και βγείτε από το Λειτουργία σχεδίασης, τώρα, όταν κάνετε κλικ στο κουμπί εντολής, θα μεταβεί στη συγκεκριμένη ιστοσελίδα.

Συμβουλές: Εάν ο υπότιτλος στο κουμπί εντολής δεν είναι η διεύθυνση URL, είναι μόνο συμβολοσειρά κειμένου όπως φαίνεται στο ακόλουθο στιγμιότυπο οθόνης:

Μπορείτε να εφαρμόσετε τον παρακάτω κώδικα VBA για να τον επιτύχετε:

Κωδικός VBA: υπερσύνδεση σε κουμπί εντολής:

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:="https://www.extendoffice.com"
End Sub

Σημείωση: Στον παραπάνω κώδικα, Κουμπί Command1 είναι το όνομα του κουμπιού εντολής που δημιουργήθηκε και θα πρέπει να αντικαταστήσετε τη διεύθυνση του ιστότοπου https://www.extendoffice.com στη δική σας διεύθυνση URL.