Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

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

Author Xiaoyang Last modified

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

A screenshot showing the issue of VLOOKUP returning plain text instead of hyperlinks in Excel

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

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


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

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

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

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

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

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

A screenshot showing the use of HYPERLINK and VLOOKUP formula to return active hyperlinks in Excel

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

  • 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 نصية.

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

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

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

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

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

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

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

1. افتح محرر VBA بالنقر فوق Developer > Visual Basic. في النافذة الجديدة التي تم فتحها، انقر فوق Insert > Module، والصق الكود التالي في الوحدة:

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، وانقر فوق Run.

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

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

نصائح عملية وإشعارات الأخطاء:

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

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

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

ملخص:

  • استخدم طريقة الصيغة للارتباطات التشعبية القائمة على النصوص وللبحث السريع.
  • استخدم طريقة VBA لاحتياجات أكثر تقدمًا - مثل استعادة الارتباطات التشعبية المضافة يدويًا، استرداد كل من نص العرض ورابط العنوان، أو تطبيق النتائج عبر النطاقات ديناميكيًا.

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

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

عزز مهاراتك في 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 Tabs PowerPoint
  • حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
  • مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
  • الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
  • تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
  • قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد