Excel'de tüm köprüleri hızlıca nasıl listeleyebilirim?
Bir çalışma sayfası üzerinde çalışırken birçok köprü eklemiş olabilirsiniz; bazen de bu metinlerin nereye bağlandığını bilmeniz gerekir. Her birini tek tek tıklamak hem sıkıcı hem de zaman alıcı olur. Oysa bir çalışma sayfasındaki tüm köprüleri, metinleriyle ve bağlantı adresleriyle birlikte listeleyebilseydik, Excel’deki tüm köprüleri kontrol etmek çok daha kolaylaşır!
Seçili tüm köprüleri VBA koduyla listeleme
Köprülerden tüm gerçek adresleri Kutools for Excel ile çıkarın
Seçili tüm köprüleri VBA koduyla listeleme
1. Listelemek istediğiniz köprüleri içeren aralığı seçin.
2. Geliştirici > Visual Basic seçeneğine tıklayın; yeni bir Microsoft Visual Basic for Applications penceresi açılacaktır. Ardından Ekle > Modül seçeneğine tıklayıp aşağıdaki kodu Modül’e 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 Sub3. Ardından kodu çalıştırmak için 
düğmesine tıklayın. Tüm köprüler, "Yeni çalışma sayfası" adlı bir Köprü Listesinde görüntülenecektir. Ekran görüntüsüne bakın:
Köprülerden tüm gerçek adresleri Kutools for Excel ile çıkarın
Kutools for Excel’nin Bağlantıları Dönüştür özelliğiyle köprülerdeki gerçek adresleri hızla çıkarabilirsiniz.
1. Gerçek hedeflerinizi ortaya çıkarmak istediğiniz köprüleri seçin.
2. Ardından Kutools > Bağlantı > Bağlantıları Dönüştür seçeneğine tıklayın; ekran görüntüsüne bakın:
3.Bağlantıları Dönüştüriletişim kutusunda,Bağlantı Adresini Hücre İçeriğine Dönüştürseçeneğini Dönüşüm Türübölümünden seçin ve ardından sonucun yerleştirileceği hücreyi Sonuç Aralığıbölümünde belirtin; ekran görüntüsüne bakın:
4. Ardından 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ığını Dönüştür seçeneğini işaretlerseniz, çıkarılan sonuçlar orijinal hücre aralığında görüntülenecektir.
Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300'den fazla temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Hemen Edinin
İlgili Makale:
Excel'de tüm köprüleri hızlıca nasıl kaldırabilirim?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile güçlendirin ve verimlilikten önce hiç bu kadar tat almamış olun.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300'den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli arayüz getirir ve işlerinizi çok daha kolay hale getirir
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okumayı etkinleştirin.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ile birlikte Office Tab Pro’yu da içerir; Office uygulamalarında çalışan ekipler için idealdir.
- Tümleşik çözüm paketi— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— tek tek eklenti satın alımına göre tasarruf edin