Excel'de bir çalışma sayfasında köprünün olup olmadığını nasıl kontrol edebilirim?

Bir seçimde köprünün var olup olmadığını kontrol etmek için aşağıdaki VBA kodunu deneyebilirsiniz.

VBA kodlu bir seçimde köprünün var olup olmadığını kontrol edin

VBA kodlu bir seçimde köprünün var olup olmadığını kontrol edin

Aşağıdaki VBA kodu ile bir seçim veya çalışma sayfasında köprünün var olup olmadığını kontrol edebilirsiniz.

1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA: Bir seçimde köprünün olup olmadığını kontrol edin

Sub HyperlinkCells()
    Dim xAdd As String
    Dim xTxt As String
    Dim xCell As Range
    Dim xRg As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.AddressLocal
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Hyperlinks.Count > 0 Then xAdd = xAdd & xCell.AddressLocal & ", "
    Next
    If xAdd <> "" Then
        MsgBox "Hyperlink existing in the following cells: " & vbCrLf & vbCrLf & Left(xAdd, Len(xAdd) - 1), vbInformation, "Kutools for Excel"
    End If
End Sub

3. Basın F5 kodu çalıştırmak için anahtar. O zaman alacaksın Kutools for Excel iletişim kutusu, lütfen köprünün var olup olmadığını bilmek istediğiniz aralığı seçin ve OK düğmesine basın.

Ardından, seçilen aralıkta köprü içeren hücreleri göstermek için bir iletişim kutusu açılır.