كيفية التحقق من وجود ارتباط تشعبي في ورقة عمل في Excel؟

للتحقق من وجود ارتباط تشعبي في التحديد ، يمكنك تجربة التعليمات البرمجية لـ VBA التالية.

تحقق مما إذا كان الارتباط التشعبي موجودًا في تحديد برمز VBA

---

تحقق مما إذا كان الارتباط التشعبي موجودًا في تحديد برمز VBA

يمكنك التحقق مما إذا كان الارتباط التشعبي موجودًا في تحديد أو ورقة عمل برمز VBA التالي.

1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز فبا التالي في نافذة التعليمات البرمجية.

فبا: تحقق من وجود ارتباط تشعبي في التحديد

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 مفتاح لتشغيل الكود. ثم ستحصل على ملف كوتولس ل إكسيل في مربع الحوار ، يرجى تحديد النطاق الذي تريد معرفة ما إذا كان الارتباط التشعبي موجودًا ، وانقر فوق OK .

ثم ينبثق مربع حوار لإظهار الخلايا التي تحتوي على ارتباطات تشعبية في النطاق المحدد.