كيفية تعبئة الخلايا الأخرى تلقائيًا بعد اختيار قيمة من قائمة منسدلة في Excel: دليل شامل

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

أولاً: إنشاء قائمة منسدلة

الطريقة الأولى: التعبئة التلقائية باستخدام وظيفة VLOOKUP

الطريقة الثانية: التعبئة التلقائية باستخدام وظيفتي INDEX وMATCH

الطريقة الثالثة: التعبئة التلقائية باستخدام Kutools لـ Excel

الطريقة الرابعة: التعبئة التلقائية باستخدام وظيفة معرفة

الطريقة الرابعة: التعبئة التلقائية باستخدام وظيفة معرفة

أولاً: إنشاء قائمة منسدلة

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

الخطوات:

الخطوة 1: إعداد مصدر البيانات.

الخطوة 2: إنشاء القائمة المنسدلة.

• انتقل إلى الخلية التي تريد فيها القائمة المنسدلة (على سبيل المثال، Sheet1!D2)

• انتقل إلى البيانات > التحقق من صحة البيانات > التحقق من صحة البيانات.

  

• في مربع حوار التحقق من صحة البيانات، اختر قائمة من قسم السماح، وحدد مصدر البيانات. انقر فوق موافق.

  

  

بمجرد إعداد القائمة المنسدلة، يمكنك المتابعة لتنفيذ أي من طرق التعبئة التلقائية التالية.

الطريقة الأولى: التعبئة التلقائية باستخدام وظيفة VLOOKUP

VLOOKUP هي واحدة من أكثر الوظائف المستخدمة شيوعًا لاسترداد البيانات في Excel. عند زوجها مع قائمة منسدلة، يمكنها بسرعة جلب البيانات المرتبطة من جدول مرجعي.

الخطوات:

في الخلية المجاورة للقائمة المنسدلة (مثل E2)، أدخل:

🔓 شرح الصيغة:

• يبحث عن القيمة في D2 في العمود الأول من A2:B5. إذا تم العثور عليها، فإنها تعيد القيمة المقابلة من العمود الثاني (عمود B). إذا لم يتم العثور عليها، فإنه يعطي خطأ (#N/A).
• FALSE يعني أنه يجب أن يكون هناك تطابق دقيق.

الخطوة 2: اضغط على مفتاح Enter.

✨ ملاحظات

• استخدم IFERROR() لإخفاء الأخطاء إذا لم يتم تحديد أي قيمة:
  =VLOOKUP(D2,$A$2:$B$5,2,FALSE)
• لا يمكن البحث إلى يسار العمود الرئيسي.

الطريقة الثانية: التعبئة التلقائية باستخدام وظيفتي INDEX وMATCH

INDEX وMATCH هما ثنائي قوي يتفوقان على VLOOKUP في المرونة. إنهما يدعمان عمليات البحث من الجهة اليسرى وتبقى مستقرة حتى لو تم إعادة ترتيب الأعمدة.

الخطوات:

في الخلية المجاورة للقائمة المنسدلة (مثل E2)، أدخل:

🔓 شرح الصيغة:

• MATCH(D2, $A$2:$A$5, 0)
  يبحث عن D2 في النطاق A2:A5. 0 يعني التطابق الدقيق (مثل FALSE في VLOOKUP).
  يعيد الموضع (رقم الصف) حيث تم العثور على D2.
• INDEX($B$2:$B$5, ...)
  يأخذ رقم الصف من MATCH.
  يعيد القيمة المقابلة من B2:B5.

الخطوة 2: اضغط على مفتاح Enter.

✨ ملاحظات

• يجب أن يكون كل من نطاق الإرجاع (INDEX) ونطاق البحث (MATCH) محاذيًا صفياً.
• يمكن البحث يسارًا أو يمينًا.
• أكثر متانة من VLOOKUP.

الطريقة الثالثة: التعبئة التلقائية باستخدام Kutools لـ Excel

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

الخطوات:

الخطوة 1: في الخلية المجاورة للقائمة المنسدلة (مثل E2)، انتقل إلى Kutools > مساعد الصيغة > البحث والمرجع > ابحث عن قائمة القيم.

الخطوة 2: حدد مجموعة الجداول، قيمة البحث ورقم العمود. انقر فوق موافق.

✨ ملاحظات

• يتيح لك Kutools تطبيق هذا على نطاق كامل دفعة واحدة.
• الأداة سهلة الاستخدام للغاية وتقلل من الأخطاء اليدوية.
• سهلة الاستخدام.
• لا تتطلب صيغ.

تعب من المهام المتكررة والصيغ المعقدة في Excel؟ Kutools لـ Excel هو معزز الإنتاجية الشامل الخاص بك! مع أكثر من 300 ميزة قوية - التحرير الدفعي، التعبئة الذكية، التصفية التلقائية - ستعمل بسرعة أكبر بمقدار 10 مرات. قم بالتنزيل الآن وارفع مهاراتك في Excel إلى المستوى التالي!

الطريقة الرابعة: التعبئة التلقائية باستخدام وظيفة معرفة

بالنسبة للمستخدمين الذين يحتاجون إلى حل ديناميكي وأوتوماتيكي يتجاوز حدود الصيغ، توفر VBA أقصى درجات التحكم والتخصيص المنطقي.

الخطوات:

الخطوة 1: اضغط على مفتاح Alt + F11 لفتح محرر VBA.

الخطوة 2: انقر فوق إدراج > وحدة.

الخطوة 3: ألصق الكود أدناه في الوحدة.

'Update by Extendoffice
Function GetProductInfo(productName As String, colIndex As Integer) As Variant
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") 'the sheet that the data source in

    Dim rng As Range
    Set rng = ws.Range("A2:B5") 'the range of data source

    Dim r As Range
    For Each r In rng.Rows
        If r.Cells(1, 1).Value = productName Then
            GetProductInfo = r.Cells(1, colIndex).Value
            Exit Function
        End If
    Next

    GetProductInfo = "Not found"
End Function

الخطوة 4: عد إلى الورقة وفي الخلية المجاورة للقائمة المنسدلة (مثل E2)، أدخل:

الخطوة 5: اضغط على مفتاح Enter.

✨ ملاحظات

• يتطلب مصنفًا مُمكّنًا من الماكرو (.xlsm)

الأسئلة الشائعة

سؤال 1: ماذا يحدث إذا تغير نطاق بياناتي بشكل متكرر؟

استخدم النطاقات المسماة أو الجداول الديناميكية للحفاظ على المراجع.

سؤال 2: هل يمكنني استخدام VLOOKUP للبحث جهة اليسار؟

لا، فكر في استخدام INDEX+MATCH أو Kutools لهذا الحال.

سؤال 3: هل Kutools آمن للاستخدام؟

نعم، يتم استخدامه على نطاق واسع وموثوق به، لكن دائمًا قم بالتنزيل من الموقع الرسمي.

سؤال 4: هل ستعمل VBA في جميع إصدارات Excel؟

معظم إصدارات سطح المكتب تدعمها، لكنها تكون معطلة بشكل افتراضي وغير مدعومة في Excel Online.

سؤال 5: هل Kutools مجاني للاستخدام؟

Kutools لـ Excel ليس أداة مجانية بالكامل، ولكنه يقدم فترة تجريبية مجانية، تليها خيار شراء لمرة واحدة:

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