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

Sut i agor hypergysylltiadau lluosog ar unwaith yn Excel?

Gan dybio bod gen i lawer o hyperddolenni mewn taflen waith, fel arfer, gallaf eu hagor trwy eu clicio fesul un, ond bydd clicio sawl gwaith yn annifyr, felly, rydw i eisiau os oes ffordd gyflym o agor yr holl hyperddolenni a ddewiswyd yn yr un amser. O'r erthygl isod, gallaf ddatrys y dasg hon gyda ffordd hawdd.

Agorwch hypergysylltiadau lluosog ar unwaith gyda chod VBA

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saeth Agorwch hypergysylltiadau lluosog ar unwaith gyda chod VBA


I agor eich hyperddolenni dethol o ystod ar unwaith, gall y cod VBA canlynol eich helpu chi, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Agorwch hypergysylltiadau lluosog ar unwaith

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. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis ystod gan gynnwys hypergysylltiadau yr ydych am eu hagor ar unwaith, gweler y screenshot:

doc-open-multip-hyperlinks-1

4. Ac yna cliciwch OK, mae'r holl hypergysylltiadau yn cael eu hagor ar yr un pryd heb eu clicio.


Erthyglau cysylltiedig:

Sut i gael gwared / dileu pob hypergysylltiad neu fwy yn Excel?

Sut i gael gwared ar hypergysylltiadau heb gael gwared ar fformatio?

Sut i newid sawl llwybr hypergyswllt ar unwaith yn Excel?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (19)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Mae'r cod hwn yn ddefnyddiol iawn ond mae'n gofyn i chi ddewis yr ystod, a allech chi ddweud wrthyf sut i newid y cod hwn ar gyfer y sefyllfa isod ... mae hypergysylltiadau eisoes wedi'u gosod yng nghell A1:C1 i A300:C300 , yn D1 dylai fod dolen , wrth glicio D1, dylai'r hypergysylltiadau o A1:C1 agor ar unwaith yn yr un modd trwy glicio D2 , dylai hypergysylltiadau o A2:C2 agor ar unwaith ac ati. A allech chi helpu os gwelwch yn dda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diolch yn fawr iawn!! Mae'n ddefnyddiol iawn ar gyfer fy mhroses, ond nid yw'n gweithio ar yr hyperddolen ganlynol =HYPERLINK("mailto:" & A3 & "?subject="&B3, "adrian") Mae eto'n mynd yn ôl i dudalen y modiwl. A all rhywun fy helpu ar hyn os gwelwch yn dda!! BR, Adrian
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pa ateb ydych chi wedi dod o hyd iddo ddwy flynedd ers hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo mae'r cod hwn yn ddefnyddiol iawn. Gall pls esbonio, sut i argraffu hypergysylltiadau lluosog. pls darparu cod
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ddim yn gweithio. Nid yw dolenni'n agor.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Ddim yn gweithio. Nid yw dolenni'n agor.Gan wojtek_llyfrbryf[/quote] Gwnewch yn siŵr bod y gwerth yn hyperddolen
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'n gweithio i mi: ar ôl dewis ystod, nid oes dim yn digwydd. Mae gwerthoedd yn URLau dilys.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhowch wybod i mi hpw a yw'n gweithio yn Mac
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn rhewi excel - nid yw dolenni byth yn agor
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch!
Yn gweithio'n union fel y disgwyl. Rhaid bod yn siŵr bod y dolenni eisoes yn URLs dilys.
Agorais 15 ar un adeg.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddaf yn defnyddio hwn ar golofn o hypergysylltiadau a gynhyrchir gan y fformiwla =HYPERLINK(), nid yw'n ymddangos ei fod yn gweithio. Pan fyddaf yn copïo / gludo'r gwerthoedd i golofn newydd a'i redeg yno, nid yw'n gweithio. Pan fyddaf yn mynd i bob cell unigol, ewch i ddiwedd y testun, a tharo enter (gan ei achosi i ddod yn hypergyswllt) MAE'N gweithio.


Wnaeth hyn ddim gweithio ar gyfer fy anghenion, yn anffodus. Mae gen i filoedd o resi ac mae clicio enter ar ddiwedd pob llinell o destun bron yn beth dwi'n gorfod ei wneud beth bynnag.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi dod o hyd i ateb?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
@James @Johan - Dewiswch y testun yr hoffech ei drosi'n hyperddolen, yna defnyddiwch y cod hwn i drosi'r testun yn hyperddolen yn uniongyrchol. Yna rhedeg y cod uchod, yn gweithio fel swyn.


Is-HyperAdd()

'Yn trosi pob hyperddolen testun a ddewiswyd yn hypergyswllt gweithredol

Ar gyfer Pob xCell Mewn Detholiad
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Cyfeiriad:=xCell.Formula
Nesaf xCell

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Yr hyn wnes i oedd copïo / gludo'r gwerthoedd o'r cod = HYPERLINK i golofn wahanol, ac yna defnyddiais god @SimpleDude i drosi'r testun wedi'i gludo i'r hypergysylltiadau a oedd yn gweithio gyda'r cod agor hyperddolen gwreiddiol. Diolch am y cymorth!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae ei waith yn anhygoel.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, fe weithiodd yn berffaith, diolch! A oes ffordd i gopïo'r testun o dudalennau'r dolenni hyn yn y gell nesaf at bob un ohonynt?
Byddai hynny'n arbed cannoedd o oriau o waith i mi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allaf ddewis pa borwr y mae angen i'r dolenni ei agor
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio'n iawn, ac eithrio problem, sut alla i wneud ei bod yn agor celloedd wedi'u hidlo yn unig?

Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi cael gwall llunio ar Microsoft Visual Basic ar gyfer Cymwysiadau 7.1 ar Mac High Sierra
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir