كيفية تصفية البيانات باستخدام الروابط التشعبية في Excel؟

في Excel، يمكنك تصفية البيانات بناءً على نص معين أو رقم أو لون الخط أو لون الخلفية، ولكن هل جربت من قبل تصفية جميع البيانات التي تحتوي على روابط تشعبية في عمود ما، كما هو موضح في لقطة الشاشة أدناه؟ في هذه المقالة، سأقدم لك كود VBA لتصفية وعرض الصفوف التي تحتوي على روابط تشعبية بسرعة في Excel.

تصفية البيانات باستخدام الروابط التشعبية

تصفية البيانات باستخدام الروابط التشعبية

1. اضغط على مفاتيح Alt + F11 لتمكين نافذة Microsoft Visual Basic for Applications.

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

VBA: تصفية البيانات باستخدام الروابط التشعبية

Sub HyperPicker()
'UpdatebyExtendoffice20180404
    Dim xRg As Range
    Dim xCell As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Select a column:", "Kutools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Hyperlinks.Count = 0 Then
            xCell.EntireRow.Hidden = True
        End If
    Next
End Sub

3. اضغط على مفتاح F5 لتحديد عمود لتصفيته.

4. انقر موافق، سيتم عرض الروابط التشعبية فقط.