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

إذا كان لديك قائمة من عناوين URL التي هي نصوص عادية، فكيف يمكنك تفعيل هذه الروابط النصية لتصبح روابط تشعبية قابلة للنقر كما هو موضح في لقطة الشاشة التالية؟

تحويل مجموعة من عناوين URL النصية إلى روابط تشعبية نشطة باستخدام الصيغ

تحويل مجموعة من عناوين URL النصية إلى روابط تشعبية نشطة Kutools لـ Excel

تحويل مجموعة من عناوين URL النصية إلى روابط تشعبية نشطة باستخدام كود VBA

تحويل مجموعة من عناوين URL النصية إلى روابط تشعبية نشطة باستخدام الصيغ

النقر المزدوج على الخلية لتفعيل الروابط التشعبية واحدة تلو الأخرى سيضيع الكثير من الوقت، هنا يمكنني أن أقدم لك بعض الصيغ، يرجى القيام بما يلي:

أدخل هذه الصيغة: =HYPERLINK(A2, A2) في خلية فارغة حيث تريد إخراج النتيجة، ثم اسحب مقبض التعبئة لأسفل لتطبيق هذه الصيغة على الخلايا التي تريدها، وستتحول جميع عناوين URL النصية إلى روابط تشعبية نشطة، انظر لقطة الشاشة:

تحويل مجموعة من عناوين URL النصية إلى روابط تشعبية نشطة Kutools لـ Excel

هناك أداة عملية - Kutools لـ Excel، مع ميزتها تحويل الروابط التشعبية، يمكنك بسرعة تحويل مجموعة من عناوين URL النصية إلى روابط تشعبية قابلة للنقر واستخراج عناوين الروابط الحقيقية من سلسلة نصية تحتوي على روابط.

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. حدد الخلايا التي تحتوي على عناوين URL النصية التي تريد تفعيلها.

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

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

4. ثم انقر فوق زر موافق، وستكون عناوين URL النصية قد تم تفعيلها فورًا، انظر لقطة الشاشة:

ملاحظة: إذا كنت تريد وضع النتيجة في خلية أخرى بدلاً من الخلية الأصلية، يرجى إلغاء تحديد تحويل نطاق المصدر، واختيار خلية حيث تحتاج إلى إخراج النتيجة من النطاق الناتج كما هو موضح في لقطة الشاشة التالية:

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

تحويل مجموعة من عناوين URL النصية إلى روابط تشعبية نشطة باستخدام كود VBA

يمكن أن يساعدك الكود التالي VBA أيضًا في حل هذه المهمة، يرجى القيام بما يلي:

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

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

كود VBA: تحويل مجموعة من عناوين URL النصية إلى روابط تشعبية نشطة:

Sub activateHyperlinks()
'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
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

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

4. وبعد ذلك انقر فوق زر موافق، سيتم تحويل عناوين URL النصية إلى روابط تشعبية نشطة، انظر لقطة الشاشة: