بسم الله الرحمن الرحيم
عالم الاوفيس : كود حصرى جدا الفلترة من خلال اليوزرفورم
اهلا بحضراتكم متابعى موقع ومدونة عالم الاوفيس
نسكتمل مابدناة فى الدرس السابق من شرح اليوزرفورم وتعبئة combobox بالبيانات وذكرنا فى هذا الدرس اننا سوف نبى علية درس اخر .
وها نحن قد وعدنا واوفينا بالوعد من خلال درس اليوم والذى نشرح فية كود حصرى ومهم جدا جدا وهو
الفلترة من خلال اليوزرفورم Excel Vba : Autofilter Userform
فى البداية سوف نقوم بعمل 3 ازرار نعمل عليهم مجموعة من الاكواد
الزر الاول commandbutton1 ونسمية (الفلترة )
الزر الثانى commandbutton2 ونسمية (ظهار البيانات )
الزر الثالث commandbutton3 ونسمية (مسح )
ناتى الان الى مرحلة الاكواد
1- فى commandbutton2 وظهار البيانات ونكتب فية الكود التالى
Private Sub CommandButton2_Click()
Range("a2:g5000").AutoFilter
Range("a1").Select
End Sub
وفى هذا الكود نقوم بعمل فلتر على المدى الذى نريدة
2- فى الزر commandbutton1 نقوم بكتابة الكود المهم
If Me.OptionButton2.Value = True Then Call CommandButton2_Click: ActiveSheet.UsedRange.AutoFilter field:=2, Criteria1:=Me.ComboBox1.Value
If Me.OptionButton3.Value = True Then Call CommandButton2_Click: ActiveSheet.UsedRange.AutoFilter field:=3, Criteria1:=Me.ComboBox2.Value
If Me.OptionButton4.Value = True Then Call CommandButton2_Click: ActiveSheet.UsedRange.AutoFilter field:=4, Criteria1:=Me.ComboBox3.Value
والزر الثالث نقوم بكتابة كود مسح البيانات
ونحب ان نزف اليكم بشرى سارة وهو انة من الان فصاعدا سوف يتم تحميل جميع الملفات على موقع الميديا فاير ولن نقوم برفع الملفات على مواقع اخرى
انتم مكسبنا الوحيد
ولمتابعة افضل يرجى متابعة شرح الفيديو