كيف تقوم بالبحث الفوري المفلتر أثناء الكتابة في خلية في Excel؟

توفر لك هذه المقالة طريقة للبحث والتصفية على الفور أثناء الكتابة في خلية في Excel.

بحث فوري مفلتر أثناء الكتابة باستخدام رمز VBA

بحث فوري مفلتر أثناء الكتابة باستخدام رمز VBA

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

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

1. أولاً ، تحتاج إلى إنشاء جدول ببيانات القائمة ، وتسمية الجدول باسم "الإسم". الرجاء تحديد القائمة بأكملها ، انقر فوق إدراج > طاولة.

2. في الافتتاح اصنع جدول مربع الحوار، انقر فوق OK. انظر لقطة الشاشة:

3. انقر فوق أي خلية في الجدول لتنشيط ملف تصميم علامة التبويب ، ثم قم بإعادة تسمية الجدول باسم الإسم في ال اسم الطاولة مربع الكتابة. انظر لقطة الشاشة:

4. انقر المطور > إدراج > مربع نص (عنصر تحكم ActiveX) لإدراج مربع نص أعلى قائمة الجدول كما هو موضح أدناه لقطة الشاشة:

5. انقر بزر الماوس الأيمن فوق مربع النص وانقر عقارات، في عقارات window ، اكتب مرجع خلية في ملف لينكدسل مربع.

6. انقر بزر الماوس الأيمن فوق مربع النص وحدد عرض الرمز من قائمة السياق. ثم استبدل الكود الأصلي برمز VBA أدناه في ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. انظر لقطة الشاشة:

كود فبا: بحث فوري مصفى أثناء الكتابة في إكسيل

Private Sub TextBox1_Change()
'Update by Extendoffice 2018/08/22
Dim xStr, xName As String
Dim xWS As Worksheet
Dim xRg As Range
    On Error GoTo Err01
    Application.ScreenUpdating = False
    xName = "Name"
    xStr = TextBox1.Text
    Set xWS = ActiveSheet
    Set xRg = xWS.ListObjects(xName).Range
    If xStr <> "" Then
        xRg.AutoFilter field:=1, Criteria1:="*" & xStr & "*", Operator:=xlFilterValues
    Else
        xRg.AutoFilter field:=1, Operator:=xlFilterValues
    End If
Err01:
Application.ScreenUpdating = True
End Sub

ملاحظة:: في الكود ، مربع النص 1 هو اسم مربع النص المدرج ، الاسم هو اسم قائمة الجدول. يمكنك تغييرها بناءً على احتياجاتك.

7. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

8. قم بإيقاف تشغيل "وضع التصميم" بالنقر فوق المطور > وضع التصميم.

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

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء...

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

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!