كيف يمكنني البحث للحصول على رابط تشعبي نشط في Excel؟

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

في مثل هذه الحالات، يُحسّن ضمان إرجاع البحث لـرابط تشعبي نشط—يمكنك النقر عليه ليُفتح مباشرةً في متصفحك—سهولة الاستخدام ويوفّر الوقت، وهو أمرٌ بالغ الأهمية لمجموعات البيانات التي تتضمّن عناوين الويب أو مسارات الملفات أو غيرها من الموارد القابلة للنقر.

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

• بحث لإرجاع ارتباط تشعبي نشط باستخدام صيغة
• رمز VBA – إرجاع وإدراج ارتباط تشعبي نشط عبر البحث (سيناريوهات متقدمة)

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

لبحث قيمة وإرجاعها كرابط تشعبي نشط، يمكنك دمج دالتَيْHYPERLINK وVLOOKUP معًا. هذه الطريقة بسيطة ومثالية للبيانات الأصلية التي تكون فيها الروابط التشعبية محفوظة بشكل نظيف كعناوين URL نصية (مثل "https://www.example.com" أو مسار ملف شبكي). وستُصبح القيمة الناتجة قابلة للنقر مباشرةً في ورقة العمل الخاصة بك!

افترض أن لديك جدولًا يحتوي على عمودين: أحدهما لقيمة البحث (مثل الاسم)، والآخر لعنوان URL كنص عادي أو رابط تشعبي. وللاسترجاع الفعّال للرابط التشعبي النشط المقابل بناءً على قيمة يُدخلها المستخدم، اتبع الخطوات التالية:

1. أدخل الصيغة التالية في خلية فارغة لعرض النتيجة:

=HYPERLINK(VLOOKUP(D2, $A$1:$B$8,2, FALSE))

2. اضغطEnter للتأكيد. الآن، تعرض الخلية الرابط التشعبي كرابط نشط قابل للنقر، كما هو موضح أدناه:

ملاحظات حول المعاملات والاستخدام:

• D2: الخلية التي تحتوي على القيمة التي تريد البحث عنها.
• $A$1:$B$8: نطاق البيانات الذي يحتوي عموده الأول على قيم البحث، والثاني على الروابط التشعبية. استخدم المراجع المطلقة إذا كنت تنوي نسخ الصيغة.
• 2: يشير إلى أن الرابط التشعبي موجود في العمود الثاني من نطاقك.

نصائح:

• إذا لم يتم العثور على قيمة البحث، فستُرجع الصيغة خطأً (#N/A). تأكد من أن نطاق قيمة البحث يتطابق تمامًا مع القيم الموجودة في نطاق الجدول.
• إذا أردت أن يختلف النص الظاهر عن الرابط التشعبي الفعلي (مثل عرض اسمٍ بدلًا من عنوان URL)، يمكنك إضافة معلمة ثانية اختيارية إلىHYPERLINK:
  =HYPERLINK(VLOOKUP(D2,$A$1:$B$8,2,FALSE),D2)
  ويعرض هذا صيغة الخلية D2 كنص للرابط.
• تعمل هذه الطريقة فقط عندما تكون الروابط التشعبية محفوظة كنص URL قياسي أو كمسار ملف. ولا تستعيد الروابط التشعبية التي ينشئها Excel باستخدام خاصية «إنشاء ارتباط تشعبي» في الحالات التي يختلف فيها نص العرض عن عنوان الارتباط التشعبي، أو عند استخدام أسماء عرض «ودية» دون وجود عنوان URL خام في الخلية.

المشاكل الشائعة واستكشاف الأخطاء وإصلاحها:

• إذا كان الناتج غير قابل للنقر، فتأكد من أن بياناتك تتضمّن عنوان URL صالحًا وكاملًا (ويشمل "http://" أو "https://").
• إذا حصلت على نتائج غير صحيحة أو مفقودة، فتحقق من نطاق البحث الخاص بك وتأكد من أن فهرس العمود يتوافق مع العمود الذي يحتوي على الروابط التشعبية.
• بالنسبة للملفات المحلية، تأكد من أن مسار الرابط التشعبي يتبع التنسيق الصحيح (مثل «C:\Folder\file.xlsx»).

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

القيود:لا تدعم استرجاع عرض النص وعنوان الارتباط التشعبي بشكل منفصل إذا كانا مختلفين، ولا تتعرف على الروابط التي تم إنشاؤها يدويًّا—فهي تُنشئ ارتباطًا تشعبيًّا فقط عندما يكون عرض النص مرئيًّا في الخلية.

رمز VBA – إرجاع وإدراج ارتباط تشعبي نشط عبر البحث (سيناريوهات متقدمة)

إذا كنت بحاجة إلى البحث عن قيمة محددة ضمن نطاق معين وإرجاع رابطها التشعبي النشط الأصلي—بما في ذلك نص العرض والرابط القابل للنقر معًا—وليس مجرد عنوان URL عادي، فإن VBA يوفّر حلاً موثوقًا. يقوم هذا الكود بالبحث عن القيمة المستهدفة في النطاق الذي تحدده، وعند العثور على تطابق، ينسخ الرابط التشعبي الكامل (النص + العنوان) إلى الخلية التي تُعيّنها. ويكون هذا الحل مفيدًا بشكل خاص عندما يختلف نص العرض عن عنوان الرابط الفعلي، أو عندما تعجز الصيغ التقليدية عن استخراج الرابط الحقيقي.

هذه الطريقة مفيدة بشكل خاص عندما تتضمّن بياناتك أسماء عرض «ودية» تحتوي على روابط تشعبية أساسية، أو روابط تؤدي إلى ملفات أو مجلدات، أو تنسيقات روابط تشعبية غير قياسية. ويتيح لك VBA نسخ كلٍ من النص المرئي للرابط وعنوانه التشعبي الأساسي، أو إعادة إدراج الرابط التشعبي في موقع جديد باستخدام نتيجة البحث.

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

المزايا:تتعامل مع الحالات المعقدة—مثل الروابط المُنشأة في الخلية، حيث تُنشئ ارتباطًا تشعبيًّا وتفصل عرض النص عن عنوان الارتباط التشعبي. وتتيح لك معالجة دفعات من الروابط التشعبية أو تخصيص النتائج.

القيود:تتطلب معرفة أساسية بـ VBA، ولا تُدعم في جميع بيئات Excel المقيدة أو المستندة إلى الويب.

1. افتح محرر VBA بالنقر علىالمطوّر > Visual Basic. في النافذة المفتوحة حديثًا، انقر علىإدراج > وحدة نمطية، ثم الصق الكود التالي في الوحدة النمطية:

Sub LookupAndInsertHyperlink()
    Dim LookupValue As String
    Dim LookupRange As Range
    Dim ResultCell As Range
    Dim cell As Range
    Dim hyperlinkFound As Boolean
    Dim linkAddress As String
    Dim linkText As String
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set LookupRange = Application.InputBox("Select the lookup range (must include display text/cell and hyperlink)", xTitleId, Selection.Address, Type:=8)
    Set ResultCell = Application.InputBox("Select the cell to output the hyperlink", xTitleId, "", Type:=8)
    LookupValue = Application.InputBox("Enter the value to lookup", xTitleId, "", Type:=2)
    
    hyperlinkFound = False
    For Each cell In LookupRange
        If cell.Value = LookupValue Then
            If cell.Hyperlinks.Count > 0 Then
                linkAddress = cell.Hyperlinks(1).Address
                linkText = cell.Value
                ResultCell.Hyperlinks.Add Anchor:=ResultCell, Address:=linkAddress, TextToDisplay:=linkText
                hyperlinkFound = True
                Exit For
            End If
        End If
    Next
    
    If Not hyperlinkFound Then
        ResultCell.Value = "No matching hyperlink found"
    End If
End Sub

2. لتشغيل البرنامج النصي، اضغط علىAlt + F8 أثناء فتح ملفك، ثم اخترLookupAndInsertHyperlink، وانقر علىتشغيل.

3. في مربعات الحوار التي تظهر:

• حدد نطاق البحث ليشمل بياناتك (بما في ذلك القيم وروابطها التشعبية).
• اختر الخلية التي ترغب في إخراج الرابط التشعبي منها.
• أدخل قيمة البحث التي ترغب في العثور عليها. سيقوم البرنامج النصي بالعثور على القيمة المطابقة، واستخراج رابطها التشعبي—حتى لو اختلف نص العرض عن الرابط الفعلي—ثم إدراجه كرابط تشعبي نشط في الموقع الذي اخترته.

نصائح عملية وتذكيرات بالأخطاء:

• إذا لم يتم العثور على القيمة أو لم يكن هناك رابط تشعبي في الخلية، فسيظهر في الخلية المستهدفة: «لم يتم العثور على رابط تشعبي مطابق.»
• إذا كنت ترغب في معالجة عمليات بحث متعددة دفعة واحدة، فكّر في توسيع رمز VBA أو تشغيل البرنامج النصي عدة مرات حسب الحاجة.
• هذا البرنامج النصي فعّال حتى عندما لا يكون الرابط التشعبي مجرد سلسلة نصية لعنوان URL في الخلية، إذ ينسخ كلاً من العنوان ونص العرض تلقائيًا.

اقتراحات استكشاف الأخطاء وإصلاحها:

• تأكد من أن نطاق الإدخال الخاص بك يشمل العمود الذي يحتوي على الروابط التشعبية الفعلية.
• إذا لم يُنفَّذ البرنامج النصي VBA، فتأكد من تفعيل البرامج النصية في إعدادات Excel الخاصة بك.
• إذا ظهرت رسالة «لم يتم العثور على رابط تشعبي مطابق»، فتأكد من صحة قيمة البحث الخاصة بك وتحقق من وجود الروابط التشعبية المقابلة في ذلك الصف.
• احفظ ملفك دائمًا قبل تشغيل البرامج النصية، تحسبًا لحاجتك إلى التراجع عن أي تغييرات.

الخلاصة:

• استخدم طريقة الصيغة لإنشاء روابط تشعبية قياسية تعتمد على النص والبحث السريع.
• استخدم طريقة VBA للحالات الأكثر تقدمًا—مثل استعادة الروابط التي تم إنشاؤها يدويًّا، أو إنشاء ارتباط تشعبي، أو استرجاع كلٍ من نص العرض وعنوان الرابط، أو تطبيق النتائج ديناميكيًّا عبر نطاقات.

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

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

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

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

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير

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

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...