Verkkosivuston nimen tai URL -osoitteen erottaminen tekstistä

Vinkin lähettäjä: Jay Shukla

Joskus meillä on tällainen tilanne:

1. Yahoon verkkosivusto www.yahoo.com
2. Googlen verkkosivusto www.google.com

Joten Miten erotamme verkkosivuston nimen jäljellä olevasta tekstistä.

Vaihe 1.

Valitse sarake.

Siirry Korvaa -kohtaan Muokkaa

Korvaa sitten http:
(välilyönnit)… .http:

(Esim.: … = välilyöntejä)

Tulet huomaamaan, että meidän nimet erotetaan toisistaan

Vaihe 2

Siirry Teksti sarakkeeseen -vaihtoehdossa Tietojen alla

ja valitse Kiinteä leveys

vie merkki tiettyyn paikkaan, jossa sarakkeessa on ennen koko sarakkeen ensimmäistä verkkosivuston nimeä

napsauta seuraavaksi u näet, että teksti ennen web -nimiä on musta

VIEDÄ LOPPUUN

Löydät verkkosi nimet erillään tekstistä.

Tee siitä nyt Hyper -linkki:

Vaihe 1

Paina Alt + F11

huomaat, että makro avautuu

Siirry Lisää ja valitse sitten Moduuli

toinen uusi moduuli -ikkuna avautuu

Vaihe 2

Kopioi liitä alla mainittu kaava:

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

Sub MakeHyperlinks_D ()
Himmennä solu alueena, Rng as Range
Aseta Rng = Alue ("A1: A" & Solut.Rivit.luku). _
SpecialCells (xlConstants, xlTextValues)
Jos Rng ei ole mitään sitten
MsgBox "mitään alueella"
Lopeta Sub
Loppu Jos
Jokaista solua kohden Rng
If Trim (cell.Value) "" Sitten
ActiveSheet.Hyperlinks.Add Anchor: = solu, _
Osoite: = solu. Arvo, _
Näyttövinkki: = solu.arvo, _
TextToDisplay: = solu.arvo
Loppu Jos
Seuraava solu
End Sub