كيف تُجري بحثاً مصفّى فورياً أثناء كتابتك في خلية Excel؟
يقدّم هذا المقال طريقة تتيح لك البحث والتصفية فورًا أثناء الكتابتك في خلية Excel.
بحث مصفّى فوري أثناء الكتابة باستخدام كود VBA
بحث مصفّى فوري أثناء الكتابة باستخدام كود VBA
كما هو موضّح في لقطة الشاشة أدناه، لديك قائمة أسماء تريد البحث فيها وتصفيتها فورًا أثناء الكتابة في خلية معيّنة. يُرجى اتباع الخطوات التالية لتحقيق ذلك.
1. أولاً، أنشئ جدولاً يحتوي على بيانات القائمة، ثم سمِّه بـ “Name”. بعد ذلك، حدد القائمة بأكملها، ثم انقر فوقإدراج > جدول.
2. في مربع الحوارإنشاء جدولالذي يظهر، انقر فوقموافق. راجع لقطة الشاشة:
3. انقر فوق أي خلية في الجدول لتفعيل علامة التبويبتصميم، ثم غيّر اسم الجدول إلىName في مربع النصاسم الجدول. راجع لقطة الشاشة:
4. انقر فوقالمطوّر > إدراج > مربع نص (عنصر تحكم ActiveX)لإدراج مربع نص أعلى قائمة الجدول، كما هو موضّح في لقطة الشاشة أدناه:
5. انقر بزر الماوس الأيمن فوق مربع النص، ثم اخترخصائص. في نافذةالخصائص، أدخل مرجع الخلية في مربعLinkedCell.
6. انقر بزر الماوس الأيمن فوق مربع النص، ثم اخترعرض الكودمن القائمة السياقية. بعد ذلك، استبدل الكود الأصلي بكود VBA أدناه في نافذةمايكروسوفت Visual Basic for Applications. راجع لقطة الشاشة:
كود VBA: بحث مصفّى فوري أثناء الكتابة في Excel
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ملاحظة: في الكود،TextBox1 هو اسم مربع النص المُدرج، وName هو اسم قائمة الجدول. يمكنك تغييرهما حسب احتياجاتك.
7. اضغط على مفاتيحAlt+Q لإغلاق نافذةمايكروسوفت Visual Basic for Applications.
8. أوقف وضع التصميم بالنقر فوقالمطوّر > وضع التصميم.
من الآن فصاعدًا، سيتم البحث في قائمة الجدول وتصفيتها فورًا وفقًا للقيمة المُدخلة في مربع النص. راجع لقطة الشاشة:
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل