Oddeľte názov alebo URL webovej stránky od textu

Tip predložil: Jay Shukla

Niekedy máme situáciu ako:

1. Webová stránka Yahoo www.yahoo.com
2. Web Google www.google.com

Ako teda oddelíme názov webovej stránky od zostávajúceho textu.

Krok 1.

Vyberte stĺpec.

Choďte na možnosť Nahradiť v časti Upraviť

Potom nahraďte http:
s (medzerami) … .http:

(Napr .:: =. Medzery)

Zistíte, že naše mená sa od seba oddelia

Krok 2

Prejdite na možnosť Text do stĺpca v časti Údaje

a vyberte možnosť Pevná šírka

presuňte značku na konkrétne miesto v stĺpci pred prvým názvom webovej stránky v celom stĺpci

kliknutím na tlačidlo ďalej uvidíte, že text pred webovými menami je čierny

SKONČIŤ

Svoje webové mená nájdete oddelené od textu.

Teraz z neho urobte hypertextový odkaz:

Krok 1

Stlačte kombináciu klávesov Alt + F11

zistíte, že sa otvoria makrá

Prejdite na položku Vložiť a potom vyberte položku Modul

vyskočí ďalšie okno nového modulu

Krok 2

Skopírujte a prilepte nižšie uvedený vzorec:

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

Sub MakeHyperlinks_D ()
Dim cell as Range, Rng As Range
Nastaviť Rng = rozsah ("A1: A" & Cells.Rows.Count). _
Špeciálne bunky (xlConstants, xlTextValues)
Ak je Rng nič, potom
MsgBox „nič v dosahu“
Ukončiť sub
Koniec Ak
Pre každú bunku v Rng
Ak Orezať (bunka.Hodnota) "" Potom
ActiveSheet.Hyperlinks.Add Anchor: = bunka, _
Adresa: = bunka. Hodnota, _
ScreenTip: = bunka. Hodnota, _
TextToDisplay: = bunka.hodnota
Koniec Ak
Ďalšia bunka
Koniec pod