Vietnes nosaukuma vai URL atdalīšana no teksta

Padomu iesniedza: Jay Shukla

Dažreiz mums ir šāda situācija:

1. Yahoo vietne www.yahoo.com
2. Google vietne www.google.com

Tātad, kā mēs atdalām vietnes nosaukumu no atlikušā teksta.

1. darbība.

Atlasiet kolonnu.

Dodieties uz Aizstāt opciju sadaļā Rediģēt

Pēc tam nomainiet http:
ar (atstarpes)… .http:

(Piemēram:… = atstarpes)

Jūs atradīsit, ka mūsu vārdi tiek atdalīti no attāluma

2. solis

Doties uz tekstu kolonnā sadaļā Dati

un izvēlieties opciju Fiksēts platums

nogādājiet marķieri noteiktā vietā, kur kolonnā pirms pirmā vietnes nosaukuma visā kolonnā

Noklikšķiniet uz nākamā, lai redzētu, ka teksts pirms tīmekļa nosaukumiem ir melnā krāsā

Pabeigt

Jūs atradīsit savus tīmekļa nosaukumus atdalītus no teksta.

Tagad, lai padarītu to par Hyper saiti:

1. darbība

Nospiediet Alt + F11

jūs atradīsit, ka tiks atvērti makro

Dodieties uz Ievietot un pēc tam atlasiet Module

tiek parādīts vēl viens jauna moduļa logs

2. solis

Kopējiet tālāk norādīto formulu:

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

Sub MakeHyperlinks_D ()
Dim šūna kā diapazons, Rng kā diapazons
Iestatīt Rng = Diapazons ("A1: A" un Cells.Rows.Count). _
SpecialCells (xlConstants, xlTextValues)
Ja Rng nav nekas, tad
MsgBox "diapazonā nav nekas"
Iziet no apakšnodaļas
Beigas Ja
Katrai šūnai Rng
If Trim (cell.Value) "" Tad
ActiveSheet. Hipersaites. Pievienot enkuru: = šūna, _
Adrese: = šūna. Vērtība, _
Ekrāna padoms: = šūna. Vērtība, _
TextToDisplay: = šūna. Vērtība
Beigas Ja
Nākamā šūna
Beigt apakš