كيفية سرد جميع الروابط التشعبية بسرعة في Excel؟
عندما نستخدم ورقة عمل، قد ننشئ العديد من الروابط التشعبية فيها، وأحيانًا نحتاج إلى معرفة المكان الذي ترتبط به النصوص. إذا قمت بالنقر عليها واحدة تلو الأخرى، فسيكون ذلك مملًا ويستغرق وقتًا طويلاً. إذا تمكنا من سرد جميع الروابط التشعبية مع النصوص وعناوين الروابط التشعبية في ورقة العمل، فسيكون من السهل علينا التحقق من جميع الروابط التشعبية في Excel.
سرد جميع الروابط التشعبية المحددة باستخدام كود VBA
استخراج جميع العناوين الفعلية من الروابط التشعبية باستخدام Kutools لـ Excel
سرد جميع الروابط التشعبية المحددة باستخدام كود 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 Sub3. ثم انقر 
زر تشغيل الكود. وسيتم عرض جميع الروابط التشعبية في ورقة عمل جديدة تسمى Hyperlink List. شاهد لقطة الشاشة:
استخراج جميع العناوين الفعلية من الروابط التشعبية باستخدام Kutools لـ Excel
مع ميزة تحويل الروابط التشعبية في Kutools لـ Excel، يمكنك استخراج العناوين الفعلية من الروابط التشعبية بسرعة.
1. حدد الروابط التشعبية التي تريد استخراج الوجهات الحقيقية لها.
2. ثم انقر فوق Kutools > Link > Convert Hyperlinks، شاهد لقطة الشاشة:
3. في مربع الحوار تحويل الروابط التشعبية، حدد خيار تحويل عنوان الرابط التشعبي إلى محتوى الخلية من قسم نوع التحويل، ثم حدد خلية حيث تريد وضع النتيجة تحت قسم نطاق النتائج، شاهد لقطة الشاشة:
4. ثم انقر فوق زر OK، تم استخراج جميع العناوين الحقيقية من الروابط التشعبية، شاهد لقطة الشاشة:
ملاحظة: تحويل نطاق المصدر: ستوضع النتائج المستخرجة على نطاق الخلايا الأصلي إذا قمت بتحديد هذا الخيار.
Kutools لـ Excel - قم بتعزيز Excel بأكثر من 300 أدوات أساسية. استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! احصل عليه الآن
المقالة ذات الصلة:
كيفية حذف جميع الروابط التشعبية بسرعة في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد