1 Πιέστε το πλήκτρο " Alt " και " F11 " ταυτόχρονα . Επιλέξτε " Ενότητα " κάτω από το μενού " Εισαγωγή" για να ανοίξετε ένα παράθυρο διαλόγου 2
Επικολλήστε τον ακόλουθο κώδικα στο παράθυρο : .
GetAddress Λειτουργία ( HyperlinkCell Όπως Range)
getAddress = Αντικατάσταση _
( . HyperlinkCell.Hyperlinks ( 1 ) Διεύθυνση , " mailto : " , " " )
Function End
εικόνων 3
Πατήστε το πλήκτρο " Alt " και " Q " ταυτόχρονα για να σώσει τη λειτουργία .
Η 4
Κάντε κλικ σε οποιοδήποτε κελί όπου θέλετε να εξαγάγετε μια υπερ-σύνδεση .
5
Πληκτρολογήστε το ακόλουθο κώδικα , αντικαθιστώντας το " ΧΧ" με το κύτταρο που καταλαμβάνεται από μια υπερ-σύνδεση :
= getAddress ( XX )
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα