كيف يمكن استخراج العناوين الفعلية من الروابط التشعبية في Excel؟
افترض أن لديك نطاقًا من الخلايا يحتوي على روابط تشعبية، وتحتاج الآن إلى معرفة الوجهات الفعلية لهذه الروابط واستخراجها، كما هو موضح في لقطة الشاشة التالية. هل توجد طرق سهلة وسريعة لحل هذه المشكلة؟ سيُرشدك هذا المقال إلى كيفية استخراج العناوين الفعلية من عدة روابط تشعبية بكفاءة.
استخراج العناوين الفعلية من الروابط التشعبية باستخدام ميزة تحرير الرابط التشعبي
استخراج العناوين الفعلية من الروابط التشعبية باستخدام Kutools لـ Excel بسرعة وسهولة
استخراج العناوين الفعلية من الروابط التشعبية باستخدام كود VBA
استخراج العناوين الفعلية من الروابط التشعبية باستخدام دالة مُعرَّفة من قبل المستخدم
استخراج العناوين الفعلية من الروابط التشعبية باستخدام ميزة تحرير الرابط التشعبي
هنا، تساعدك ميزةتحرير الرابط التشعبيعلى استخراج عنوان URL الأساسي لكلٍّ من هذه الروابط التشعبية ووضعه في خلية منفصلة. اتبع الخطوات التالية:
1. حدد الخلية التي تحتوي على الرابط التشعبي، ثم انقر بزر الماوس الأيمن واختر من قائمة السياقتحرير الرابط التشعبي. انظر لقطة الشاشة:
2. بعد ظهور نافذة مربع حوارتحرير الرابط التشعبي، حدد وعنون ()Ctrl+C) عنوان URL بالكامل من حقلالعنوانفي مربع الحوار.
3. بعد ذلك، أغلق مربع الحوار والصق العنوان الفعلي في أي خلية ترغب بها.
ملاحظة: باستخدام هذه الطريقة، يمكنك استخراج رابط تشعبي واحد فقط في كل مرة، ولكن إذا كان لديك عدة روابط تشعبية تحتاج إلى استخراجها، فستضطر إلى تكرار تطبيق هذه الوظيفة مرارًا وتكرارًا.
استخراج العناوين الفعلية من الروابط التشعبية باستخدام Kutools لـ Excel بسرعة وسهولة
هناك أداة مفيدة تُسمىKutools لـ Excel، ومع ميزةتحويل الروابط التشعبيةالخاصة بها، يمكنك التعامل بسرعة مع العمليات التالية:
- استخراج العناوين الفعلية من الروابط التشعبية؛
- حوّل نص عنوان URL إلى روابط تشعبية قابلة للنقر!
إذا كنت قد قمت بتثبيتKutools لـ Excel، فالرجاء اتباع ما يلي:
1. حدد النطاق الذي يحتوي على الروابط التشعبية التي ترغب في استخراجها.
2. انقرKutools > رابط > تحويل الروابط التشعبية، انظر لقطة الشاشة:
3. في مربع حوارتحويل الروابط التشعبية، اختر خيارتحويل عنوان الرابط التشعبي إلى محتوى الخلية، ثم انقر على زر
مننطاق النتيجةلتحديد الخلية التي تريد وضع النتيجة فيها.
4. ثم انقر على زرموافق، وسيتم استخراج العناوين الفعلية من الروابط التشعبية. انظر لقطة الشاشة:
ملاحظة: إذا كنت ترغب في وضع العناوين الفعلية ضمن النطاق الأصلي، فما عليك سوى تحديد خانةتحويل نطاق المصدر.
حمّل وجرّب مجانًا Kutools لـ Excel الآن!
استخراج العناوين الفعلية من الروابط التشعبية باستخدام كود 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 Sub3. بعد ذلك، اضغط على مفتاحF5 لتشغيل الكود، وستظهر نافذة حوار تطلب منك تحديد الروابط التشعبية التي تريد استخراج عناوينها الحقيقية. انظر لقطة الشاشة:
4. ثم انقر على زرموافق، وسيتم تحويل محتويات الخلايا المحددة إلى عناوين ارتباط تشعبي حقيقية في النطاق الأصلي. انظر لقطات الشاشة:
 |  |  |
استخراج العناوين الفعلية من الروابط التشعبية باستخدام دالة مُعرَّفة من قبل المستخدم
يمكن للدالة المُعرَّفة من قِبل المستخدم التالية أيضًا استخراج عنوان 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 هي الخلية التي يحتويها الرابط التشعبي)، ثم اضغط على زرإدخال، وسترى أن عنوان الارتباط التشعبي الحقيقي قد تم استخراجه.
مقال ذو صلة:
كيف يمكن تحويل نص عنوان URL إلى رابط تشعبي قابل للنقر في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل