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

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

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

استخراج العناوين الفعلية من الروابط التشعبية بسهولة وسرعة باستخدام Kutools لـ Excel

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

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

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

هنا، يمكن لميزة تعديل الرابط التشعبي أن تساعدك في استخراج عنوان URL الأساسي لكل هذه الروابط التشعبية ووضع ذلك العنوان الفعلي في خلية مختلفة. يمكنك القيام بذلك كما يلي:

1. حدد الخلية التي تحتوي على الرابط التشعبي وانقر بزر الماوس الأيمن، ومن القائمة المنبثقة، اختر تعديل الرابط التشعبي، انظر لقطة الشاشة:

2. ستظهر نافذة تعديل الرابط التشعبي، حدد وانسخ (Ctrl+C) عنوان URL بالكامل من حقل العنوان في النافذة.

3. ثم أغلق النافذة والصق العنوان الفعلي في أي خلية تريدها.

ملاحظة: باستخدام هذه الطريقة، يمكنك استخراج عنوان رابط تشعبي واحد فقط في كل مرة، ولكن إذا كان لديك عدة روابط تحتاج إلى استخراجها، فستحتاج إلى تطبيق هذه الوظيفة بشكل متكرر.

استخراج العناوين الفعلية من الروابط التشعبية بسهولة وسرعة باستخدام Kutools لـ Excel

هناك أداة مفيدة تُدعى Kutools لـ Excel، مع ميزتها تحويل الروابط التشعبية، يمكنك بسرعة التعامل مع العمليات التالية:

• استخراج العناوين الفعلية من الروابط التشعبية؛
• تحويل نصوص الروابط إلى روابط تشعبية قابلة للنقر.

إذا كنت قد قمت بتثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. حدد النطاق الذي يحتوي على الروابط التشعبية التي تحتاج إلى استخراجها.

2. انقر على Kutools > ربط > تحويل الروابط التشعبية، انظر لقطة الشاشة:

3في تحويل الروابط التشعبية نافذة الحوار، حدد عناوين الروابط التشعبية تستبدل محتويات الخلية الخيار، واضغط على زر من نطاق النتيجة لتحديد خلية لوضع النتيجة.

4. وبعد ذلك اضغط موافق، تم استخراج العناوين الفعلية من الروابط التشعبية. انظر لقطة الشاشة:

ملاحظة: إذا كنت تريد وضع العناوين الفعلية في النطاق الأصلي، يرجى التحقق من تحويل نطاق المصدر.

قم بتنزيل وتجربة Kutools لـ Excel الآن مجانًا!

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

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

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

2. انقر على إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3. ثم اضغط على مفتاح F5 لتشغيل الكود، ستظهر نافذة منبثقة لتختار الروابط التشعبية التي تريد استخراج العناوين الحقيقية منها، انظر لقطة الشاشة:

4. ثم اضغط موافق، وتم تحويل محتويات الخلية المختارة إلى عناوين روابط تشعبية حقيقية في النطاق الأصلي. انظر لقطات الشاشة:

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

يمكن أيضًا استخدام الدالة المعرفة من قبل المستخدم التالية لاستخراج عنوان URL الفعلي من الروابط التشعبية.

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

2. انقر على إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3. احفظ الكود وأغلق النافذة، حدد خلية فارغة واكتب هذه الصيغة =GetURL(A2) (A2 هي الخلية التي تحتوي على الرابط التشعبي)، واضغط على زر الإدخال. يمكنك رؤية أن عنوان الرابط التشعبي الحقيقي قد تم استخراجه.

المقالة ذات الصلة:

كيفية تحويل نصوص الروابط إلى روابط تشعبية قابلة للنقر في Excel؟