Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս արագ թվարկել բոլոր հիպերհղումները Excel- ում:

Երբ մենք օգտագործում ենք աշխատանքային թերթիկ, գուցե դրա մեջ ստեղծում ենք բազմաթիվ հիպերհղումներ, և երբեմն մենք պետք է իմանանք, թե որտեղ են հղվում տեքստերը: Եթե ​​դրանք կտտացրեք մեկ առ մեկ, դա հոգնեցուցիչ ու ժամանակատար կլինի: Եթե ​​աշխատաթերթում կարողանանք թվարկել բոլոր հիպերհղումները տեքստերով և հիպերհղումների հասցեներով, մեզ համար հեշտ կլինի ստուգել բոլոր հիպերհղումները Excel- ում:

Նշեք բոլոր ընտրված հղումները VBA կոդով

Excel- ի համար Kutools- ով հանել հղումների բոլոր իրական հասցեները


նետ կապույտ աջ պղպջակ Նշեք բոլոր ընտրված հղումները VBA կոդով

1, Ընտրեք այն տիրույթը, որը պարունակում է այն հիպերհղումները, որոնք ցանկանում եք թվարկել:

2: Սեղմեք Երեվակիչ>Visual Basic, նոր Microsoft Visual Basic հավելվածների համար պատուհանը կցուցադրվի, կտտացրեք Տեղադրել>Մոդուլներև մուտքագրեք հետևյալ կոդը Մոդուլում.

Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then 
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub

3. Այնուհետեւ կտտացրեք փաստաթուղթ-բազմապատկել-հաշվարկ -3կոդ ՝ կոդն աշխատեցնելու համար: Եվ բոլոր հիպերհղումները կցուցադրվեն նոր աշխատաթերթում, որը կոչվում է Հիպերհղումների ցուցակ, Տեսեք,

doc-list-all-hyperlinks


նետ կապույտ աջ պղպջակ Excel- ի համար Kutools- ով հանել հղումների բոլոր իրական հասցեները

Հետ Excel- ի համար նախատեսված գործիքներ'S Փոխարկել հիպերհղումները առանձնահատկությունը, դուք կարող եք արագ արդյունահանել իրական հասցեները հիպերհղումներից:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. 

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալ կերպ .( Անվճար ներբեռնեք Kutools Excel- ի համար հիմա )

1, Ընտրեք այն հղումները, որոնք ցանկանում եք արդյունահանել իրական ուղղությունները:

2. Այնուհետեւ կտտացրեք Կուտոլս > կապ > Փոխարկել հիպերհղումները, տես նկարի նկարը.

3, Մեջ Փոխարկել հիպերհղումները երկխոսության տուփ, ընտրեք Հիպերհղումների հասցեները փոխարինում են բջիջների պարունակությանը տարբերակը Փոխարկել տեսակը բաժնում, ապա նշեք այն բջիջը, որտեղ ցանկանում եք արդյունքը դնել տողի տակ Արդյունքների շրջանակը բաժին, տես նկարի նկարը.

doc-list-all-hyperlinks

4. Այնուհետեւ կտտացրեք OK կոճակը, բոլոր իրական հասցեները արդյունահանվել են հիպերհղումներից, տես նկարի նկարը.

doc-list-all-hyperlinks

Նշում: Փոխարկել աղբյուրի տիրույթըարդյունահանված արդյունքները տեղակայված կլինեն բնօրինակ բջիջների տիրույթում, եթե ստուգեք այս տարբերակը:

Անվճար ներբեռնեք Kutools Excel- ի համար հիմա


Առնչվող Հոդված

Ինչպե՞ս արագ ջնջել Excel- ում առկա բոլոր հղումները:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel- ի համար նախատեսված Kutools- ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80% -ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ, Աջակցում է Office / Excel 2007-2019 և 365. Աջակցում է բոլոր լեզուները: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հատկություններ ՝ 30-օրյա անվճար փորձաշրջան: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր կտտոցները ձեզ համար ամեն օր:
officetab ներքևում
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dave · 6 years ago
    seems you forgot to tell folks to select a range. if I select a range of cells it creates the list, otherwise I get an empty list like yael did.
  • To post as a guest, your comment is unpublished.
    Kurt · 7 years ago
    This was a life saver. For anyone looking to have the hyperlink display where documents are stored on a network path, this should work for you. I didn't select anything, followed the steps, and it created a new sheet with the links expanded which I was able to turn into plain text and use as raw data.
  • To post as a guest, your comment is unpublished.
    DataAnalyst · 7 years ago
    Hi,
    It seems that the address selection applies to only web pages and not to other places in the document.
    - SH
  • To post as a guest, your comment is unpublished.
    mcnulty · 7 years ago
    This is awesome!
    Is there a way to show the full path?
    It seems to be truncating the file path a little.
  • To post as a guest, your comment is unpublished.
    SHAD · 7 years ago
    this is a treasure!!!
    thank you
  • To post as a guest, your comment is unpublished.
    yael · 7 years ago
    It does not work. Just empty page created