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

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

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

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

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

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

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

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

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

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

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

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

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

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

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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. ثم اضغط OK، وتم تحويل محتويات الخلية المحددة إلى عناوين الارتباط التشعبي الحقيقية في النطاق الأصلي. انظر لقطات الشاشة:

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

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

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

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

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

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

هذه أداة يدوية تسمى كوتولس ل إكسيل، بما لديها تحويل الارتباطات التشعبية خاصية ، يمكنك التعامل بسرعة مع العمليات التالية:

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

إذا كنت قد قمت بتثبيت كوتولس ل إكسيليرجى القيام بما يلي:

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

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

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

4. ثم انقر فوق OK، تم استخراج العناوين الفعلية من الارتباطات التشعبية. انظر لقطة الشاشة:

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

انقر تحويل الارتباطات التشعبية لمعرفة المزيد عن هذه الميزة.

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!

العرض التوضيحي: استخراج العناوين الفعلية من الارتباطات التشعبية باستخدام Kutools for Excel

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

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