كيف تقوم بالبحث الفوري المفلتر أثناء الكتابة في خلية في 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. قم بإيقاف تشغيل "وضع التصميم" بالنقر فوق المطور > وضع التصميم.
من الآن فصاعدًا ، سيتم البحث في قائمة الجدول وتصفيتها على الفور بناءً على القيمة التي تم إدخالها في مربع النص. انظر لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!