Skip to main content

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

Author: Xiaoyang Last Modified: 2025-05-30

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

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

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


arrow blue right bubble سرد جميع الروابط التشعبية المحددة باستخدام كود VBA

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

2. انقر فوق Developer > Visual Basic، سيتم عرض نافذة جديدة Microsoft Visual Basic for applications، انقر فوق Insert > Module، وأدخل الكود التالي في الوحدة:

Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then 
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub

3. ثم انقر Run button زر تشغيل الكود. وسيتم عرض جميع الروابط التشعبية في ورقة عمل جديدة تسمى Hyperlink List. شاهد لقطة الشاشة:

A screenshot showing a list of hyperlinks displayed in a new worksheet in Excel


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

مع ميزة تحويل الروابط التشعبية في Kutools لـ Excel، يمكنك استخراج العناوين الفعلية من الروابط التشعبية بسرعة.

Kutools لـ Excel يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة. بالتكامل مع قدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات أمرًا سهلاً للغاية. معلومات تفصيلية عن Kutools لـ Excel... نسخة تجريبية مجانية...

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

2. ثم انقر فوق Kutools > Link > Convert Hyperlinks، شاهد لقطة الشاشة:

A screenshot showing the Convert Hyperlinks option in Kutools tab on the ribbon

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

A screenshot of the Convert Hyperlinks dialog box

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

A screenshot showing extracted hyperlink addresses in Excel using Kutools

ملاحظة: تحويل نطاق المصدر: ستوضع النتائج المستخرجة على نطاق الخلايا الأصلي إذا قمت بتحديد هذا الخيار.

Kutools لـ Excel - قم بتعزيز Excel بأكثر من 300 أدوات أساسية. استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! احصل عليه الآن


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

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

أفضل أدوات الإنتاجية لمكتب العمل

🤖 Kutools AI Aide: أحدث ثورة في تحليل البيانات من خلال: التنفيذ الذكي |توليد الشيفرة |إنشاء الصيغ المخصصة |تحليل البيانات وتوليد الرسوم البيانية |استدعاء الوظائف المحسنة
الميزات الشائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو العنوان دون فقدان البيانات | تقريب ...
بحث متقدم: بحث V متعدد المعايير | بحث V متعدد القيم | بحث في عدة ورقات | مطابقة غامضة ....
قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة تابعة | قائمة منسدلة متعددة الاختيار ....
إدارة الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاق والأعمدة ...
ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | أدوات المصنف & أدوات الورقة العمل | مكتبة النص التلقائي (Auto Text) | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب القائمة | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع من الرسوم البيانية (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد

عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...


Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير

  • تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
  • افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
  • يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!