اكسل كيفية عمل يوزرفورم كامل للبحث عن البيانات متعدد المعايير

سوف نتحدث اليوم فى هذا المقال عن كيفية عمل يوزرفورم للبحث عن البيانات متعدد المعايير

يعنى اية الكلام دة

المثال العملى

فى الصورة اعلاة لدينا قاعدة بيانات للطلاب وفيها عدة اعمدة مثل (اسم الطلاب – الجنس او النوع – الغرفة – الدرجة –تاريخ الميلاد ..... الخ

ونريد فى هذا الفورم ان نبحث عن البيانات داخل اى عمود من هذا الجدول

اى انة نريد ان تكون معاير البحث الاولى هى راس الجدول بالكامل الذى يمثل 10 اعمدة

وهذا ماسوف نضعة فى الكومبو بوكس 1

الخطوة الاولى

ادارج اداة كومبوبومس 1 Combobox1 : لادخال رؤس الجدول بالكامل فية كمعايير للبحث

الخطوة االثانية

ادارج اداة كومبوبومس 2 Combobox2

اما الكومبو بوكس 2 فهذا سوف نضع فية بعض المعايير المنطقية الاخرى مثل ( ">=" و "<=" و "=" و اى كلمة اخرى للبحث عن النصوص ولتكن كلمة "Contians "

الخطوة الثالثة

سوف ندرج تكست بوكس لادخال القيمة التى نريد البحث عنها

سواء اكانت اسم الطالب او اى حرف من الاسم او اسم الاب او الام او العنوان او تاريخ الميلاد

الخطوة الرابعة

نقوم بادارج اداة الليست بوكس لاظهار بيانات البحث بداخلها

الخطوة الخامسة

نقوم بادراج زر او كوماندبوتن لكتابة الاكواد البرمجية التالية فية

With Sheet2

If Me.ComboBox2 <> "Contains" And Me.ComboBox2 <> "=" Then

.Range("n1").Value = Me.ComboBox1.Value

.Range("n2").Value = Me.ComboBox2.Value & Format(Me.TextBox1.Value, 0)

ElseIf Me.ComboBox2 = "Contains" Then

.Range("n1").Value = Me.ComboBox1.Value

.Range("n2").Value = "*" & Me.TextBox1.Value & "*"

ElseIf Me.ComboBox2 = "=" Then

.Range("n1").Value = Me.ComboBox1.Value

.Range("n2").Value = Format(Me.TextBox1.Value, 0)

End If

Sheet1.Range("a1:j1000").AdvancedFilter Action:=xlFilterCopy, _

criteriarange:=Range("n1:n2"), copytorange:=Range("a4:j4"), unique:=False

End With

Me.ListBox1.RowSource = "list12"

End Sub

وبعد تنفيذ هذا الكود سيكون لديك يوزرفورم كامل للبحث متعدد المعايير

عالم الاوفيس