كيف تُفعّل ميزة الإكمال التلقائي أثناء الكتابة في قائمة Excel المنسدلة؟

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

جعل القوائم المنسدلة تُكمَّل تلقائيًا باستخدام كود VBA
اجعل قائمة منسدلة تُكمَّل تلقائيًا بسهولة خلال ثانيتين
مزيد من الدروس التعليمية حول القوائم المنسدلة...

جعل القوائم المنسدلة تُكمَّل تلقائيًا باستخدام كود VBA

يرجى اتباع الخطوات التالية لإنشاء قائمة منسدلة تُكمَّل تلقائيًا بمجرد كتابة الأحرف المقابلة في الخلية.

أولاً، عليك إدراج مربع تحرٍّ في ورقة العمل ثم تعديل خصائصه.

1. افتح ورقة العمل التي تحتوي على خلايا قائمة التحديد المنسدلة التي تريد تمكين الإكمال التلقائي لها.
2. قبل إدراج مربع تحرٍّ، تحتاج إلى إضافة علامة تبويب المطور إلى شريط Excel. إذا كانت علامة تبويب المطور ظاهرة في الشريط،فانتقل مباشرةً إلى الخطوة 3. وإلا، اتبع الخطوات التالية لإظهار علامة تبويب المطور في الشريط: انقر على «ملف» > «خيارات» لفتح نافذة «الخيارات». في نافذة «خيارات Excel»، انقر على «تخصيص الشريط» في الجزء الأيسر، وفعِّل خانة الاختيار «المطور»، ثم انقر على زر «موافق». راجع لقطة الشاشة:
   
3. انقر على «المطور» > «إدراج» > «مربع تحرٍّ (عنصر تحكم ActiveX)».
   
4. ارسم مربع تحرٍّ في ورقة العمل الحالية، ثم انقر بزر الماوس الأيمن عليه واختر «خصائص» من القائمة المنسدلة.
   
5. في مربع حوار «الخصائص»، يُرجى استبدال الاسم الموجود في الحقل «(الاسم)» باسم «TempCombo».
   
6. أوقف «وضع التصميم» بالنقر على **المطور** > **وضع التصميم**.

بعد ذلك، طبّق كود VBA أدناه

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

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   'Update by Extendoffice: 2020/01/16
       Dim xCombox As OLEObject
       Dim xStr As String
       Dim xWs As Worksheet
       Dim xArr
       
       Set xWs = Application.ActiveSheet
       On Error Resume Next
       Set xCombox = xWs.OLEObjects("TempCombo")
       With xCombox
           .ListFillRange = ""
           .LinkedCell = ""
           .Visible = False
       End With
       If Target.Validation.Type = 3 Then
           Target.Validation.InCellDropdown = False
           Cancel = True
           xStr = Target.Validation.Formula1
           xStr = Right(xStr, Len(xStr) - 1)
           If xStr = "" Then Exit Sub
           With xCombox
               .Visible = True
               .Left = Target.Left
               .Top = Target.Top
               .Width = Target.Width + 5
               .Height = Target.Height + 5
               .ListFillRange = xStr
               If .ListFillRange = "" Then
                   xArr = Split(xStr, ",")
                   Me.TempCombo.List = xArr
               End If
               .LinkedCell = Target.Address
           End With
           xCombox.Activate
           Me.TempCombo.DropDown
       End If
   End Sub
   Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
       Select Case KeyCode
           Case 9
               Application.ActiveCell.Offset(0, 1).Activate
           Case 13
               Application.ActiveCell.Offset(1, 0).Activate
       End Select
   End Sub

   
3. اضغط معًا على مفتاحَي «Alt + Q» لإغلاق نافذة Microsoft Visual Basic for Applications.

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

اجعل قائمة منسدلة تُكمَّل تلقائيًا بسهولة خلال ثانيتين

بالنسبة لمعظم مستخدمي Excel، قد تكون طريقة VBA المذكورة أعلاه صعبة الإتقان. لكن مع ميزة «جعل القائمة المنسدلة قابلة للبحث» من Kutools لـ Excel، يمكنك تمكين الإكمال التلقائي لقوائم التحقق من الصلاحية في نطاق محدود خلال ثانيتين فقط! والأفضل من ذلك، أن هذه الميزة متوافقة مع جميع إصدارات Excel.

1. لتمكين الإكمال التلقائي في قوائم التحديد المنسدلة، اختر أولًا النطاق الذي يحتوي على هذه القوائم. ثم انتقل إلى علامة تبويب «Kutools»، وانقر على «قائمة منسدلة» > «جعل قائمة منسدلة قابلة للبحث ومنبثقة تلقائيًا».
2. في مربع حوار «جعل القائمة المنسدلة قابلة للبحث»، انقر زر «موافق» لحفظ الإعداد.

النتيجة

بمجرد الانتهاء من التهيئة، يؤدي النقر على خلية قائمة منسدلة ضمن نطاق محدود إلى ظهور مربع القائمة. وعند إدخال أحرف، إذا تطابق أحد العناصر تمامًا، يتم تمييز الكلمة بأكملها فورًا في مربع القائمة، ويمكن إدخالها في خلية القائمة المنسدلة بمجرد الضغط على مفتاح الإدخال (Enter).

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

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

🤖	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...تنزيل مجاني...