كيفية استخراج العناوين الفعلية من الروابط التشعبية في 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 Sub3. ثم اضغط على مفتاح 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؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد