Excel'de tüm köprüleri hızlıca nasıl listeleyebilirim?

Bir çalışma sayfası kullandığımızda, belki de içinde birçok köprü oluştururuz ve bazen bu metinlerin nereye bağlandığını bilmemiz gerekir. Eğer bunları tek tek tıklarsanız, bu hem sıkıcı hem de zaman alıcı olabilir. Eğer bir çalışma sayfasında tüm köprüleri, metinleri ve adresleriyle birlikte listeleyebilirsek, Excel'deki tüm köprüleri kontrol etmek kolaylaşacaktır.

VBA kodu ile tüm seçili köprüleri listeleme

Kutools for Excel ile tüm gerçek adresleri köprülerden çıkarma

VBA kodu ile tüm seçili köprüleri listeleme

1. Listelemek istediğiniz köprüleri içeren aralığı seçin.

2. Geliştirici > Visual Basic'e tıklayın, yeni bir Microsoft Visual Basic for Applications penceresi açılacak, Ekle > Modül'e tıklayın ve aşağıdaki kodu Modüle girin:

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. Sonra tıklayın düğmesine basarak kodu çalıştırın. Tüm köprüler, adı verilen yeni bir çalışma sayfasında gösterilecektir Köprü Listesi. Ekran görüntüsüne bakın:

Kutools for Excel ile tüm gerçek adresleri köprülerden çıkarma

Kutools for Excel'in Köprüleri Dönüştür özelliği ile, köprülerden gerçek adresleri hızlıca çıkarabilirsiniz.

1. Gerçek hedeflerini çıkarmak istediğiniz köprüleri seçin.

2. Ardından Kutools > Bağlantı > Köprüleri Dönüştür'e tıklayın, ekran görüntüsüne bakın:

3. Köprüleri Dönüştür iletişim kutusunda, Dönüşüm Türü bölümünden Köprü Adreslerini Hücre İçeriğiyle Değiştir seçeneğini işaretleyin ve ardından sonuçları yerleştirmek istediğiniz hücreyi Sonuç Aralığı bölümünde belirtin, ekran görüntüsüne bakın:

4. Tamam düğmesine tıklayın, tüm gerçek adresler köprülerden çıkarılmış olacaktır, ekran görüntüsüne bakın:

Not: Kaynak aralığı dönüştür: Bu seçeneği işaretlerseniz, çıkarılan sonuçlar orijinal hücre aralığında yer alır.

İlgili Makale:

Excel'de tüm köprüleri hızlıca nasıl silebilirim?