Excel'deki tüm köprüleri hızlı bir şekilde nasıl listeleyebilirim?
Bir çalışma sayfası kullandığımızda, belki içinde birçok köprü oluşturabiliriz ve bazen metinlerin nereye bağlantı verdiğini bilmemiz gerekir. Bunları tek tek tıklarsanız, sıkıcı ve zaman alıcı olacaktır. Bir çalışma sayfasında metin ve köprü adresleri içeren tüm köprüleri listeleyebilirsek, Excel'deki tüm köprüleri kontrol etmek bizim için kolay olacaktır.
Seçili tüm köprüleri VBA kodu ile listeleyin
Kutools for Excel ile tüm gerçek adresleri köprülerden çıkarın
Seçili tüm köprüleri VBA kodu ile listeleyin
1. Listelemek istediğiniz köprüleri içeren aralığı seçin.
2. tıklayın Geliştirici>Visual Basic, Yeni bir Uygulamalar için Microsoft Visual Basic pencere görüntülenecek, tıklayın Ekle>modülve 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 kodu çalıştırmak için düğmeye basın. Ve tüm köprüler, adı verilen yeni bir çalışma sayfasında görüntülenecektir. Köprü Listesi. Ekran görüntüsüne bakın:
Kutools for Excel ile tüm gerçek adresleri köprülerden çıkarın
İle Kutools for Excel'S Köprüleri Dönüştür özelliği sayesinde, gerçek adresleri hiper bağlantılardan hızlı bir şekilde çıkarabilirsiniz.
Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. |
Kurduktan sonra Kutools for Excellütfen şunları yapın :( Kutools for Excel'i Şimdi Ücretsiz İndirin )
1. Gerçek hedefleri çıkarmak istediğiniz köprüleri seçin.
2. Sonra tıklayın Kutools > Link > Köprüleri Dönüştür, ekran görüntüsüne bakın:
3. In Köprüleri Dönüştür iletişim kutusunu seçin Köprü adresleri hücre içeriklerinin yerini alır seçeneği Türü dönüştür bölümünü seçin ve ardından sonucu koymak istediğiniz hücreyi Sonuç aralığı bölümü, ekran görüntüsüne bakın:
4. Sonra tıklayın OK düğmesi, tüm gerçek adresler köprülerden çıkarılmıştır, ekran görüntüsüne bakın:
not: Kaynak aralığını dönüştür: Bu seçeneği işaretlerseniz, çıkarılan sonuçlar orijinal hücre aralığında yer alacaktır.
Kutools for Excel'i Şimdi Ücretsiz İndirin
İlgili Madde:
Excel'deki tüm köprüleri hızlı bir şekilde nasıl silebilirim?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!