كيف تقوم بالبحث الفوري المفلتر أثناء الكتابة في خلية في Excel؟
توفر لك هذه المقالة طريقة للبحث والتصفية على الفور أثناء الكتابة في خلية في Excel.
بحث فوري مفلتر أثناء الكتابة باستخدام رمز VBA
بحث فوري مفلتر أثناء الكتابة باستخدام رمز VBA
كما هو موضح أدناه ، لديك قائمة أسماء تريد البحث عنها وتصفيتها على الفور أثناء الكتابة في خلية معينة. يرجى القيام بما يلي للحصول عليها.
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-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
