الخميس، 29 أغسطس 2019

عالم الاوفيس : كود حصرى جدا الفلترة من خلال اليوزرفورم Excel Vba:Autofilter Userform

بسم الله الرحمن الرحيم

عالم الاوفيس : كود حصرى جدا الفلترة من خلال اليوزرفورم

اهلا بحضراتكم متابعى موقع ومدونة عالم الاوفيس 
نسكتمل مابدناة فى الدرس السابق من شرح اليوزرفورم وتعبئة 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
والزر الثالث نقوم بكتابة كود مسح البيانات 
ونحب ان نزف اليكم بشرى سارة وهو انة من الان فصاعدا سوف يتم تحميل جميع الملفات على موقع الميديا فاير ولن نقوم برفع الملفات على مواقع اخرى 
انتم مكسبنا الوحيد 
ولمتابعة افضل يرجى متابعة شرح الفيديو 




هناك تعليق واحد:

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة