Odvajanje naziva ili URL -a web stranice od teksta

Savjet donio: Jay Shukla

Ponekad imamo situaciju poput:

1. Yahoo web stranica www.yahoo.com
2. Google web stranica www.google.com

Dakle, kako odvojiti naziv web stranice od preostalog teksta.

Korak 1.

Odaberite stupac.

Idi na opciju Zamijeni pod Uredi

Zatim zamijenite http:
s (razmaci) … .http:

(Npr .: …… = Razmaci)

Vidjet ćete da se mi imena odvajamo na daljinu

Korak 2

Idi na opciju Tekst u stupac pod Podaci

i odaberite opciju Fiksna širina

postavite oznaku na određeno mjesto u stupcu prije imena prve web stranice u cijelom stupcu

kliknite sljedeći u vidjet ćete da je tekst prije web naziva crne boje

ZAVRŠI

Naći ćete svoje web nazive odvojene od teksta.

Sada od Hyper veze:

Korak 1

Pritisnite Alt + F11

vidjet ćete da će se otvoriti makronaredbe

Idite na Umetni, a zatim odaberite Modul

pojavit će se još jedan prozor novog modula

Korak 2

Kopirajte zalijepite dolje navedenu formulu:

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

PodmarkeHyperlinks_D ()
Dim cell As Range, Rng As Range
Postavite Rng = Raspon ("A1: A" & Ćelije.Redovi.Broj). _
Posebne ćelije (xlConstants, xlTextValues)
Ako Rng nije ništa onda
MsgBox "ništa u rasponu"
Izlaz iz podv
Završi ako
Za svaku ćeliju u Rng
Ako Trim (cell.Value) "" Zatim
ActiveSheet.Hyperlinks.Add Anchor: = cell, _
Adresa: = ćelija.Vrijednost, _
Savjet o ekranu: = ćelija.Vrijednost, _
TextToDisplay: = ćelija.Vrijednost
Završi ako
Sljedeća ćelija
Kraj podm