البحث عن البيانات في إكسيلExcel وعرض النتائج في قائمة منسدلة (ListBox) باستخدام VBA
تعتبر ميزة البحث في البيانات وعرض النتائج في قائمة منسدلة من أكثر الميزات المفيدة في تطبيقات إكسيل. باستخدام VBA Excel ، يمكننا إنشاء واجهة مستخدم بسيطة وفعالة تتيح للمستخدمين البحث عن البيانات بسرعة وسهولة وعرض النتائج في قائمة اختيار.
استخدام ListBox لعرض البيانات المستخرجة من إكسيل
الخطوات:
1.
إنشاء
UserForm:
o افتح محرر Visual Basic . ( ALT+ F11)
o
ادرج
UserForm جديد (Insert
> UserForm).
o
أضف
إلى هذا النموذج:
§
TextBox:
لكتابة نص البحث.
§
ListBox:
لعرض نتائج البحث.
§
CommandButton:
لبدء عملية البحث.
2.
كتابة
كود VBA:
o
اربط
زر "بحث" بحدث Click.
o
اكتب
الكود التالي، مع تعديل أسماء الأوراق والمدى حسب بياناتك:
()Private Sub CommandButton1_Click
Dim ws As Worksheet
Dim searchTerm As String
Dim lastRow As Long
Dim i As Long
Set ws = ThisWorkbook.Sheets("Sheet1") ' اسم ورقة العمل التي تحتوي على البيانات
searchTerm = TextBox1.Value ' الحصول على نص البحث من TextBox
lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row ' تحديد آخر صف يحتوي على بيانات
ListBox1.Clear ' مسح القائمة قبل البحث الجديد
For i = 2 To lastRow '
بدء البحث من الصف الثاني (الصف الأول
عادةً يحتوي على عناوين الأعمدة)
r = Me.ListBox1.ListCount
If InStr(1, ws.Cells(i,
1).Value, searchTerm, vbTextCompare) > 0 Then
With ListBox1
.AddItem
.List(r, 0) =
ws.Cells(i, 1).Value
.List(r, 1) =
ws.Cells(i, 2).Value
.List(r, 2) = ws.Cells(i, 3).Value
End With
End If
Next i
End Sub
3.
شرح الكود:
o
ws:
يمثل ورقة العمل التي تحتوي على البيانات.
o
searchTerm:
يحفظ النص الذي أدخله المستخدم في TextBox.
o
lastRow:
يحدد آخر صف يحتوي على بيانات في العمود الأول (يمكنك تعديله للبحث في أعمدة
أخرى).
o
i:
متغير عداد يستخدم في الحلقة.
o
InStr:
دالة تستخدم للبحث عن نص داخل نص آخر.
o
ListBox1.AddItem:
تضيف النتيجة إلى قائمة ListBox.
4.
عرض
UserForm:
o
من
خلال زر أو أي عنصر تحكم آخر في ورقة العمل، استدعِ عرض UserForm:
UserForm1.Show
تعديلات إضافية:
·
البحث
في عدة أعمدة: قم بتعديل شرط If
ليشمل البحث في أعمدة متعددة.
·
فرز
النتائج: استخدم طريقة Sort
لترتيب النتائج حسب معيار معين.
·
تخصيص
UserForm: قم بتغيير لون الخلفية، الخطوط، الحجم، وغيرها.
·
إضافة
ميزات أخرى: يمكنك إضافة ميزات مثل البحث عن قيم
دقيقة، أو البحث عن قيم تبدأ بحرف معين، أو البحث عن تاريخ محدد.
ملاحظات:
·
تأكد
من أن أسماء الأوراق والمدى في الكود تتطابق مع بياناتك.
·
يمكنك
تخصيص الكود ليتناسب مع احتياجاتك المحددة.
·
للحصول
على نتائج أفضل، قم بإنشاء مؤشر للبحث (index)
لتسريع عملية البحث في مجموعات بيانات كبيرة.
.
باستخدام هذا الشرح وكود VBA، يمكنك إنشاء نماذج بحث قوية وفعالة في إكسيل لتسهيل عملك وتحسين
إنتاجيتك.
دليل كامل: البحث في Excel
وعرض النتائج في ListBox خطوة بخطوة
تحويل Excel إلى محرك بحث خاص بك! تعلم كيفية البحث وعرض النتائج في ListBox
استخدم Excel كقاعدة بيانات: البحث السريع وعرض النتائج في ListBox
اكتشف قوة ListBox في Excel:
البحث والتصفية بسهولة
سريع وفعال: البحث في Excel
وعرض النتغنات في ListBox
خدعة Excel السحرية: حول جدولك إلى قاعدة بيانات قابلة للبحث
استخدم Excel كمحترف: البحث عن أي شيء في أي وقت
لا تبحث عن البيانات، دع البيانات تجدك!
سرعة في البحث، دقة في النتائج: مع ListBox في Excel
تحكم كامل في بياناتك: البحث والتصفية في Excel
هل تعبت من البحث اليدوي في Excel؟
هذا الحل سيغير حياتك!
تريد تحويل جدول Excel إلى
قاعدة بيانات متقدمة؟
كيف تجد أي معلومة في Excel في
ثوانٍ؟
هل تعلم أن Excel
يمكنه أن يكون محرك بحث قوي؟
البحث في Excel بـ ListBox:
سريع وسهل
تحويل Excel إلى قاعدة بيانات
البحث الذكي في Excel
ListBox في Excel:
دليل المبتدئين
5 طرق لتحسين بحثك في Excel".
دليل شامل: البحث السريع والفعال عن أي بيانات
في Excel وعرض النتائج في ListBox بطريقة احترافية