Oddzielanie nazwy witryny lub adresu URL od tekstu

Porada przesłana przez: Jay Shukla

Czasami mamy taką sytuację jak:

1. Strona Yahoo www.yahoo.com
2. Witryna Google www.google.com

Jak więc oddzielić nazwę strony od pozostałego tekstu.

Krok 1.

Wybierz kolumnę.

Przejdź do opcji Zamień w obszarze Edytuj

Następnie zastąp http:
ze spacjami… .http:

(Np.:… . = Spacje)

Przekonasz się, że imiona my są rozdzielone na odległość

Krok 2

Przejdź do opcji Tekst do kolumny w obszarze Dane

i wybierz opcję Stała szerokość

przenieś znacznik do konkretnej lokalizacji, gdzie w kolumnie przed pierwszą nazwą witryny w całej kolumnie

kliknij dalej, zobaczysz, że tekst przed nazwami stron internetowych jest czarny

KONIEC

Znajdziesz swoje nazwy internetowe oddzielone od tekstu.

Teraz, aby to było hiperłącze:

Krok 1

Naciśnij Alt + F11

przekonasz się, że otworzy się makra

Przejdź do Wstaw, a następnie wybierz Moduł

pojawi się kolejne okno nowego modułu

Krok 2

Skopiuj wklej poniższy wzór:

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

Sub MakeHyperlinks_D()
Dim cell As Range, Rng As Range
Ustaw Rng = Range("A1:A" & Cells.Rows.Count). _
SpecialCells(xlConstants, xlTextValues)
Jeśli dzwonek jest niczym, to
MsgBox "nic w zasięgu"
Wyjście Sub
Zakończ, jeśli
Dla każdej komórki w Rng
Jeśli Trim(komórka.Wartość) "" Wtedy
ActiveSheet.Hyperlinks.Dodaj kotwicę:=komórka, _
Adres:=komórka.Wartość, _
Etykietka ekranowa:=komórka.Wartość, _
TextToDisplay:=komórka.Wartość
Zakończ, jeśli
Następna komórka
Napis końcowy