Ինչպե՞ս ստուգել, ​​թե հիպերհղումը գոյություն ունի՞ Excel- ում աշխատաթերթում:

Ստուգելու համար, արդյոք գոյություն ունի hyperlink ընտրության մեջ, կարող եք փորձել հետևյալ VBA կոդը:

Ստուգեք, արդյոք hyperlink գոյություն ունի VBA կոդով ընտրության մեջ

---

Ստուգեք, արդյոք hyperlink գոյություն ունի VBA կոդով ընտրության մեջ

Դուք կարող եք ստուգել, ​​արդյոք գոյություն ունի հիպերհղում ընտրության կամ աշխատաթերթում `հետևյալ VBA կոդով:

1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Եվ ապա պատճենեք և կպցրեք հետևյալ VBA կոդը օրենսգրքի պատուհանում:

VBA. Ստուգեք, արդյոք հիպերհղումը գոյություն ունի ընտրության մեջ

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. Մամուլ F5 ծածկագիրը գործելու համար: Դրանից հետո դուք կստանաք a Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, ընտրեք մի տիրույթ, որը ցանկանում եք իմանալ, արդյոք գոյություն ունի հիպերհղում, և կտտացրեք այն OK կոճակը:

Դրանից հետո բացվում է երկխոսության տուփ ՝ ցույց տալու համար այն բջիջները, որոնք պարունակում են հիպերհղումներ ընտրված տիրույթում: