Διαχωρισμός ονόματος ιστότοπου ή διεύθυνσης URL από κείμενο

Η συμβουλή υποβλήθηκε από: Jay Shukla

Μερικές φορές έχουμε μια κατάσταση όπως:

1. Ιστοσελίδα Yahoo www.yahoo.com
2. Ιστότοπος Google www.google.com

Λοιπόν, πώς διαχωρίζουμε το όνομα της ιστοσελίδας από το υπόλοιπο κείμενο.

Βήμα 1.

Επιλέξτε τη στήλη.

Επιλέξτε Αντικατάσταση στην Επεξεργασία

Στη συνέχεια, αντικαταστήστε το http:
με (κενά)… .http:

(Π.χ .:… = Χώροι)

Θα διαπιστώσετε ότι τα ονόματά μας χωρίζονται σε απόσταση

Βήμα 2

Μεταβείτε στην επιλογή Κείμενο σε στήλη στην ενότητα Δεδομένα

και επιλέξτε την επιλογή Σταθερού πλάτους

μεταφέρετε τον δείκτη σε συγκεκριμένη τοποθεσία όπου στη στήλη πριν από το πρώτο όνομα ιστότοπου σε ολόκληρη τη στήλη

κάντε κλικ στο επόμενο θα δείτε ότι το κείμενο πριν τα ονόματα ιστού είναι μαύρα

ΦΙΝΙΡΙΣΜΑ

Θα βρείτε τα ονόματα ιστού σας ξεχωριστά από το κείμενο.

Τώρα για να το κάνετε Hyper link:

Βήμα 1

Πατήστε Alt + F11

θα διαπιστώσετε ότι θα ανοίξουν μακροεντολές

Μεταβείτε στην επιλογή Εισαγωγή και, στη συνέχεια, επιλέξτε Ενότητα

εμφανίζεται ένα άλλο παράθυρο Νέας Ενότητας

Βήμα 2

Αντιγραφή επικολλήστε τον παρακάτω τύπο που αναφέρεται:

------------------------------------------------------

Sub MakeHyperlinks_D ()
Dim cell As Range, Rng As Range
Ορίστε Rng = Range ("A1: A" & Cells.Rows.Count). _
SpecialCells (xlConstants, xlTextValues)
Αν το Rng δεν είναι τίποτα τότε
MsgBox "τίποτα στην εμβέλεια"
Έξοδος Sub
Τέλος εαν
Για κάθε κελί σε Rng
If Trim (cell.Value) "" Τότε
ActiveSheet.Hyperlinks.Add Anchor: = cell, _
Διεύθυνση: = cell.Value, _
Συμβουλή οθόνης: = cell.Value, _
TextToDisplay: = cell.Value
Τέλος εαν
Επόμενο κελί
Τέλος υπο