كيفية الإكمال التلقائي عند الكتابة في قائمة منسدلة في Excel؟

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

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

---

اجعل قوائم الإكمال التلقائي تعمل باستخدام كود VBA

يرجى القيام بما يلي لجعل قائمة منسدلة تكتمل تلقائيًا بعد كتابة الحروف المقابلة في الخلية.

أولاً، تحتاج إلى إدراج مربع تحرير وسرد في ورقة العمل وتغيير خصائصه.

1. افتح ورقة العمل التي تحتوي على خلايا القائمة المنسدلة التي تريد جعلها تكتمل تلقائيًا.
2. قبل إدراج مربع تحرير وسرد، تحتاج إلى إضافة علامة التبويب "Developer" إلى شريط أدوات Excel. إذا كانت علامة التبويب "Developer" ظاهرة على الشريط الخاص بك، انتقل إلى الخطوة 3. وإلا، قم بما يلي لإظهار علامة التبويب "Developer" في الشريط: انقر فوق "File" > "Options" لفتح نافذة "Options". في نافذة "Excel Options" هذه، انقر فوق "Customize Ribbon" في الجزء الأيسر، وحدد مربع الاختيار "Developer"، ثم انقر فوق الزر "OK". انظر لقطة الشاشة:
   
3. انقر فوق "Developer" > "Insert" > "Combo Box (ActiveX Control)".
   
4. ارسم مربع تحرير وسرد في ورقة العمل الحالية. انقر بزر الماوس الأيمن عليه، ثم حدد "Properties" من قائمة النقر بزر الماوس الأيمن.
   
5. في مربع الحوار "Properties"، يرجى استبدال النص الأصلي في حقل "(Name)" بـ "TempCombo."
   
6. قم بإيقاف تشغيل "Design Mode" عن طريق النقر فوق "Developer" > "Design Mode."

ثم، قم بتطبيق الكود التالي لـ VBA

1. انقر بزر الماوس الأيمن على علامة ورقة العمل الحالية وانقر فوق "View Code" من قائمة السياق. انظر لقطة الشاشة:
   
2. في نافذة "Microsoft Visual Basic for Applications" التي تفتح، يرجى نسخ ولصق الكود التالي لـ 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 Applications.

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

---

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

بالنسبة لمعظم مستخدمي Excel، فإن الطريقة السابقة باستخدام VBA يصعب إتقانها. ولكن باستخدام ميزة "Searchable Drop-down List" الخاصة بـ Kutools لـ Excel، يمكنك بسهولة تمكين الإكمال التلقائي لقوائم التحقق من صحة البيانات في نطاق محدد في غضون ثانيتين فقط. وما هو أكثر من ذلك، أن هذه الميزة متاحة لجميع إصدارات Excel.

1. لتمكين الإكمال التلقائي في قوائمك المنسدلة، حدد أولاً النطاق الذي يحتوي على القوائم المنسدلة. ثم، انتقل إلى علامة التبويب "Kutools"، واختر "Drop-down List" > "Make Drop-down List Searchable, Auto-popup."
2. في مربع الحوار "Make the Drop-down List Searchable"، انقر فوق زر "OK" لحفظ الإعداد.

النتيجة

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

---

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