כיצד להציג במהירות את כל ההיפר-קישורים ב-Excel?

כאשר אנו משתמשים בגליון עבודה, ייתכן שניצור בו הרבה היפר-קישורים, ולפעמים נרצה לדעת לאן הטקסט מקושר. אם תלחץ עליהם אחד אחרי השני, זה יהיה מייגע ויארך זמן רב. אם נוכל להציג את כל ההיפר-קישורים עם הטקסטים והכתובות שלהם בגליון עבודה, יהיה לנו קל לבדוק את כל ההיפר-קישורים ב-Excel.

הצגת כל ההיפר-קישורים הנבחרים עם קוד VBA

הוצאת כל הכתובות האמיתיות מההיפר-קישורים עם Kutools for Excel

הצגת כל ההיפר-קישורים הנבחרים עם קוד VBA

1. בחר את הטווח שמכיל את ההיפר-קישורים שברצונך להציג.

2. לחץ על Developer > Visual Basic, תוצג חלונית חדשה של Microsoft Visual Basic for Applications, לחץ על Insert > Module, והזן את הקוד הבא לתוך המודול:

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. ואז לחץ כפתור כדי להריץ את הקוד. וכל ההיפר-קישורים יוצגו בגליון עבודה חדש בשם Hyperlink List. ראה צילום מסך:

הוצאת כל הכתובות האמיתיות מההיפר-קישורים עם Kutools for Excel

עם תכונת המרת היפר-קישורים של Kutools for Excel, תוכל להוציא במהירות את הכתובות האמיתיות מההיפר-קישורים.

1. בחר את ההיפר-קישורים שברצונך להוציא מהם את היעדים האמיתיים.

2. לאחר מכן לחץ על Kutools > Link > Convert Hyperlinks, ראה צילום מסך:

3. בתיבת הדו-שיח Convert Hyperlinks, בחר את אפשרות כתובות היפר-קישורים מחליפות את תוכן התא מתוך הקטע סוג המרה, ולאחר מכן ציין תא שבו תרצה לשים את התוצאה תחת הקטע טווח התוצאה, ראה צילום מסך:

4. לאחר מכן לחץ על כפתור OK, כל הכתובות האמיתיות הוצאו מההיפר-קישורים, ראה צילום מסך:

הערה: המר טווח מקור: תוצאות ההוצאה יהיו ממוקמות על טווח התאים המקורי אם תסמן את האפשרות הזו.

מאמר קשור:

כיצד למחוק במהירות את כל ההיפר-קישורים ב-Excel?