Salt la conținutul principal

Cum puteți converti o grămadă de adrese URL de text în hyperlinkuri active în Excel?

Dacă aveți o listă de adrese URL care sunt text simplu, cum ați putea activa aceste adrese URL de text către hyperlinkurile care pot fi făcute clic, după cum se arată în următoarea captură de ecran?

doc activate hyperlinkuri 1

Convertiți o grămadă de adrese URL de text în hyperlinkuri active cu formule

Convertiți o grămadă de adrese URL de text în hyperlinkuri active cu cod VBA

Convertiți o grămadă de adrese URL de text în hyperlinkuri active Kutools pentru Excel


săgeată albastru dreapta balon Convertiți o grămadă de adrese URL de text în hyperlinkuri active cu formule

Dacă faceți dublu clic pe celulă pentru a activa hyperlinkurile unul câte unul, veți pierde mult timp, aici vă pot introduce câteva formule, vă rugăm să faceți următoarele:

Introduceți această formulă: = HYPERLINK (A2, A2) într-o celulă goală în care doriți să scoateți rezultatul, apoi trageți mânerul de umplere în jos pentru a aplica această formulă celulelor dorite și toate adresele URL de text au fost convertite în hyperlinkuri active, consultați captura de ecran:

doc activate hyperlinkuri 2


săgeată albastru dreapta balon Convertiți o grămadă de adrese URL de text în hyperlinkuri active cu cod VBA

Codul VBA de mai jos vă poate ajuta, de asemenea, să rezolvați această sarcină, vă rugăm să procedați astfel:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

Cod VBA: convertiți o grămadă de adrese URL de text în hyperlinkuri active:

Sub activateHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

3. Apoi apăsați F5 tasta pentru a rula acest cod și o casetă de prompt este afișată pentru a vă reaminti să selectați celulele pe care doriți să le convertiți în hyperlinkuri clicabile, consultați captura de ecran:

doc activate hyperlinkuri 3

4. Apoi faceți clic pe OK buton, adresele URL cu text simplu au fost convertite în hyperlinkuri active, consultați captura de ecran:

doc activate hyperlinkuri 4


săgeată albastru dreapta balon Convertiți o grămadă de adrese URL de text în hyperlinkuri active Kutools pentru Excel

Iată un instrument la îndemână-Kutools pentru Excel, Cu său Conversia hyperlink-urilor caracteristică, puteți ambele rapid convertiți o grămadă de adrese URL text în hyperlinkuri care pot fi făcute clic și extrageți adrese de hyperlink reale din șirul de text hyperlink.

Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile. 

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Selectați celulele conține adresele URL text pe care doriți să le activați.

2. Apoi faceți clic pe Kutools > Link > Conversia hyperlink-urilor, vezi captura de ecran:

3. În Conversia hyperlink-urilor fereastră de dialog, selectați Conținutul celulei înlocuiește adresele hyperlinkurilor opțiune în cadrul Conversia tipului secțiune, apoi verificați Convertiți sursa interval dacă doriți să puneți adresele reale în intervalul original, consultați captura de ecran:

doc activate hyperlinkuri 6

4. Apoi apasa Ok , iar adresele URL de text au fost activate simultan, consultați captura de ecran:

doc activate hyperlinkuri 4

notițe: Dacă doriți să puneți rezultatul într-o altă celulă în locul celulei originale, debifați Convertiți sursa și selectați o celulă în care trebuie să obțineți rezultatul din gama de rezultate, după cum se arată în următoarea captură de ecran:

doc activate hyperlinkuri 7

Faceți clic pentru a descărca Kutools pentru Excel și încercare gratuită acum!

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
Comments (4)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
LA OPCION 2:
Convierta un montón de URL de texto en hipervínculos activos con código VBA

ANDA PERFECTO!
GRACIAS!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Tak for input, men jeg kunne ikke få konverteringen til at virke.

Den skrev bare en lang liste text:

= HYPERLINK (A2, A2)

Problemet var, at du havde skrevet formlen med komma og ikke med semikolon.

Den rette formel er =hyperlink(A2;A2)
This comment was minimized by the moderator on the site
Thank you much!!!!
This comment was minimized by the moderator on the site
Спасибо большое за ваш труд
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations