Note: The other languages of the website are Google-translated. Back to English

Cum se deschid mai multe hyperlinkuri simultan în Excel?

Presupunând că am o mulțime de hyperlinkuri într-o foaie de lucru, în mod normal, le pot deschide făcând clic pe ele una câte una, dar clic de mai multe ori va fi enervant, așa că vreau dacă există o modalitate rapidă de a deschide toate hyperlinkurile selectate la acelasi timp. Din articolul de mai jos, pot rezolva această sarcină într-un mod ușor.

Deschideți mai multe hyperlinkuri simultan cu codul VBA

Fila Office Activați editarea și navigarea cu file în Office și faceți munca mult mai ușoară ...
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
  • Reutilizați orice: Adăugați cele mai utilizate sau complexe formule, diagrame și orice altceva la preferatele dvs. și reutilizați-le rapid în viitor.
  • Peste 20 de caracteristici text: Extrageți numărul din șirul de text; Extrageți sau eliminați o parte din texte; Conversia numerelor și valutelor în cuvinte în limba engleză.
  • Instrumente de îmbinare: Mai multe cărți de lucru și foi într-unul; Combinați mai multe celule / rânduri / coloane fără a pierde date; Combinați rândurile duplicate și suma.
  • Instrumente divizate: Împărțiți datele în mai multe foi bazate pe valoare; Un registru de lucru pentru mai multe fișiere Excel, PDF sau CSV; O coloană la mai multe coloane.
  • Lipiți săriți Rânduri ascunse / filtrate; Număr și sumă de Culoarea fundalului; Trimiteți e-mailuri personalizate către mai mulți destinatari în bloc.
  • Super Filtru: Creați scheme avansate de filtrare și aplicați oricăror foi; Sortează pe săptămână, zi, frecvență și multe altele; Filtru prin îndrăznețe, formule, comentarii ...
  • Peste 300 de caracteristici puternice; Funcționează cu Office 2007-2021 și 365; Suporta toate limbile; Implementare ușoară în întreprinderea sau organizația dvs.

săgeată albastru dreapta balon Deschideți mai multe hyperlinkuri simultan cu codul VBA

Pentru a deschide simultan hyperlinkurile selectate dintr-un interval, următorul cod VBA vă poate ajuta, vă rugăm să procedați astfel:

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

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

Cod VBA: deschideți mai multe hyperlinkuri simultan

Sub OpenHyperLinks()
'Update 20141124
	Dim xHyperlink As Hyperlink
	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 xHyperlink In WorkRng.Hyperlinks
		xHyperlink.Follow
	Next
End Sub

3. Apoi apăsați F5 tasta pentru a rula acest cod și va apărea o casetă de prompt pentru a vă reaminti să selectați o gamă, inclusiv hyperlinkuri pe care doriți să le deschideți simultan, consultați captura de ecran:

doc-open-multiple-hyperlink-1

4. Apoi faceți clic pe OK, toate hyperlinkurile sunt deschise în același timp fără a face clic pe ele.


Legate de articole:

Cum să eliminați / ștergeți toate sau mai multe hyperlinkuri în Excel?

Cum se elimină hyperlinkurile fără a elimina formatarea?

Cum se schimbă mai multe căi de hyperlink simultan în Excel?


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

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!
fundul officetab
Comentarii (19)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Acest cod este foarte util, dar cere să selectez intervalul, ați putea să-mi spuneți cum să mijlocesc acest cod pentru situația de mai jos... hyperlinkurile sunt deja plasate în celula A1:C1 la A300:C300, în D1 ar trebui să existe un link , făcând clic pe D1, hyperlinkurile de la A1:C1 ar trebui să se deschidă simultan, făcând clic pe D2 , hyperlinkurile de la A2:C2 ar trebui să se deschidă imediat și așa mai departe. Puteti ajuta va rog
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut, multumesc mult!! Este foarte util pentru procesul meu, dar nu funcționează pe următorul hyperlink = HYPERLINK ("mailto:" & A3 & "?subject="& B3, "adrian"). Revine din nou la pagina modulului. Ma poate ajuta cineva cu asta va rog!! BR, Adrian
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ce răspuns ai găsit doi ani de atunci?
Acest comentariu a fost redus la minimum de moderatorul de pe site
salut acest cod este foarte util. Vă rugăm să explicați cum să imprimați mai multe hyperlinkuri. Vă rugăm să furnizați codul
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu funcționează. Linkurile nu se deschid.
Acest comentariu a fost redus la minimum de moderatorul de pe site
[quote]Nu funcționează. Link-urile nu se deschid.De wojtek_bookworm[/quote] Asigurați-vă că valoarea este un hyperlink
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu funcționează pentru mine: după selectarea unui interval, nu se întâmplă nimic. Valorile sunt adrese URL valide.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă rog să-mi spuneți că HPW funcționează în Mac
Acest comentariu a fost redus la minimum de moderatorul de pe site
Îngheață excel - link-urile nu se deschid niciodată
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc!
Funcționează exact așa cum era de așteptat. Trebuie să vă asigurați că linkurile sunt deja adrese URL valide.
Am deschis 15 la un moment dat.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Când folosesc acest lucru pe o coloană de hyperlinkuri generate de formula =HYPERLINK(), nu pare să funcționeze. Când copiez/lipesc valorile într-o coloană nouă și o rulez acolo, nu funcționează. Când mă duc la fiecare celulă în parte, merg la sfârșitul textului și apăsați Enter (determinând-o să devină un hyperlink), funcționează.


Acest lucru nu a funcționat pentru nevoile mele, din păcate. Am mii de rânduri și să dau clic pe Enter la sfârșitul fiecărui rând de text este cam ceea ce trebuie să fac oricum.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ati gasit o solutie?
Acest comentariu a fost redus la minimum de moderatorul de pe site
@James @Johan - Selectați textul pe care doriți să îl convertiți în hyperlink, apoi utilizați acest cod pentru a converti direct textul în hyperlink. Apoi rulați codul de mai sus, funcționează ca un farmec.


Sub HyperAdd()

„Transformă fiecare hyperlink text selectat într-un hyperlink de lucru

Pentru fiecare xCell din selecție
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Următorul xCell

End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna! Ceea ce am făcut a fost să copiez/lipesc valorile din codul =HYPERLINK într-o coloană diferită, apoi am folosit codul lui @SimpleDude pentru a converti textul lipit în hyperlinkurile care funcționau cu codul original de deschidere a hyperlinkului. Vă mulțumesc pentru ajutor!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează minunat.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, a funcționat perfect, mulțumesc! Există vreo modalitate de a copia textul din paginile acestor linkuri în celula de lângă fiecare dintre ele?
Asta mi-ar economisi sute de ore de muncă!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Pot selecta ce browser trebuie să se deschidă linkurile
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează bine, cu excepția unei probleme, cum pot face să deschidă doar celulele filtrate?

mulțumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am primit o eroare de compilare pe Microsoft Visual Basic for Applications 7.1 pe Mac High Sierra
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL