اذهب الي المحتوي
أوفيسنا

مساعده في VBA فورم لفلتره اكسل شيت


ran20

الردود الموصى بها

السلام عليكم ورحمة الله وبركاته

تحيه طيبه للجميع 

انا جديده في التعامل مع الفيجوال بيسك 

سأشرح لكم مااريد وجزى الله من ساعدني خير الجزاء في الدنيا والاخره

 

لدي ملف اكسيل متغير كل اسبوع يحتوي على الاعمده التاليه بنفس الترتيب

Category Type  

 User Name  

 Unique ID  

 First-Last Name 

   Course Name 

   Class Name

    Class Code

    Class Start Date

    Class End Date

    Vendor Name

    Class Location

    Class Actual Location 

   Request Submitted 

   Request Status

    Request Form Name

    Levels Required 

   Levels Completed  

 Escalated 

   Managed by  

 Class Type 

   Email
 

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

احاول ان اعمل فورم بسيط بحيث بضغطه زر استطيع ان افتلر الجدول المحدد بدون ماافعله كل مره 

أولا أريد زر حذف جميع الصفوف التي تتوفر فيها هذي الشرطين

لابد لي من حذف الصفوف اللي تحتوي على 0 من عامود  Levels Completed 

وايظا حذف الصفوف التي تحتوي على 1 = Levels Completed  و 3   =  Levels Required  ( لابد من توفر الشرطين في هذي النقطه )

 

الفورم اريد فيه1- ليست بوكس لعامود  Vendor Name  بحيث اختار الفندور من اللست ويظهر لي فقط مااخترته ( أريد خيار اني استطيع اختيار اكثر من فندور وليش فقط واحد )

2- ليست بوكس لعامود Category Type  بحيث ايظا استطيع اظهار الاعمده فقط اللي تحتوي على النوع الذي اريده( يوجد فقط خيارين في هذا العامود إما management أو technical )

 

3- عامود  Class Type  وأيظا يحتوي على خيارين (internal or external )

ثم زر لما اضغطه يطبق لي جميع الخيارات المختاره ويظهر لي فقط مااخترته 

 

 

في أمس الحاجه للمساعده 

الله يفرج كربكم جميعا ..

 

 

 

 


 

                                       

هذا الكود وجدته لحذف القيمه 0 من العامود  Levels Completed

Sub DeleteRowsWithX()

maxRow = ActiveSheet.UsedRange.Rows.Count

For i = 1 To maxRow
    Do While (StrComp(ActiveSheet.Cells(i, 17).Value, 0, vbTextCompare) = 0)
        Rows(i).Select
        Selection.Delete Shift:=xlUp
   Loop
Next

End Sub

 

رابط هذا التعليق
شارك

السلام عليكم

تم عمل فورم على الشكل التالي

Capture.PNG.2793a125b788136424eb58567c98304f.PNG

عند تشغيل الفورم سيقوم تلقائيا بحذف الصفوف اللي تحتوي على 0 من عامود  Levels Completed 

وايظا الصفوف التي تحتوي على 1 = Levels Completed  و 3   = Levels Required 

اما بخصوص الفلترة سيقوم الفورم ايضا بفلترة الصفوف حسب اختيارتلك بحث تحدد من اليست التي تود ان تضهر بالشروط التي تحددها من Category Type و Class Type

لاكن بدل مايقوم البرنامج بحذف الصفوف التي لاترغب بيها يقوم باخفائها وهكذا يمكنك التراجع عن الفلترة و انشاء فلترة جديد بدون فقدان البيانات

ارجو ان يكون هذا المطلوب

تحياتي

 

MGT pending.rar

رابط هذا التعليق
شارك

وعليكم السلام ورحمه الله وبركاته 

 

ماشاء الله عبقري 

في أقل من يوم عملته 

الله يرضى عليك ويجزاك الجنه

 

عندي استفسار كما قلت مسبقا ان الشيت متغير 

هل استطيع نسخ الجدوول ولصقه مكان الجدول الذي في الشيت اللي فيه الفورم  وسيشتغل الفورم؟

وايظا سؤال اخر لاحظت ان اسماء الفندورز مكرره على حسب تكرارها ف الصفوف 

هل يمكن ان يكون ف الليست اسم الفندور مره واحده فقط بحيث اذا تم الضغط عليه يظهر جميع الصفوف التي تحتوي على نفس الاسم المختار ؟

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

 

وشكرا لك 

تم تعديل بواسطه ran20
رابط هذا التعليق
شارك

1 ساعه مضت, ran20 said:

وعليكم السلام ورحمه الله وبركاته 

 

ماشاء الله عبقري 

في أقل من يوم عملته 

الله يرضى عليك ويجزاك الجنه

 

عندي استفسار كما قلت مسبقا ان الشيت متغير 

هل استطيع نسخ الجدوول ولصقه مكان الجدول الذي في الشيت اللي فيه الفورم  وسيشتغل الفورم؟

وايظا سؤال اخر لاحظت ان اسماء الفندورز مكرره على حسب تكرارها ف الصفوف 

هل يمكن ان يكون ف الليست اسم الفندور مره واحده فقط بحيث اذا تم الضغط عليه يظهر جميع الصفوف التي تحتوي على نفس الاسم المختار ؟

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

 

وشكرا لك 

يمكن ذلك فقط انسخ الجدول مكان الجدول

او اضهر الفورم على الشيت الذي تريد تعمل عليه لان الفورم يعمل على الشيت الضاهر

اما الطلب الاخير محتاج بعض التعديلات على الاكواد ان شاء الله عندما يسمح الوقت نعملها

رابط هذا التعليق
شارك

  • 2 weeks later...
في ١١‏/٤‏/٢٠١٧ at 22:48, شوقي ربيع said:

يمكن ذلك فقط انسخ الجدول مكان الجدول

او اضهر الفورم على الشيت الذي تريد تعمل عليه لان الفورم يعمل على الشيت الضاهر

اما الطلب الاخير محتاج بعض التعديلات على الاكواد ان شاء الله عندما يسمح الوقت نعملها

شكرا لك استاذ شوقي على جهودك

عند نسخ الجدول كما قلت ووضعه في صفحه الفورم يظهر لي الخطأ التالي ف المرفقات ولا يعمل الفورم

 

أيظا بالنسبه للفلتر يمكن لم أوضح طلبي بصوره صحيحه 

هناك 12 اسماء لفندورز اريد ان يتم الفلتره بناء عليهم 

فهل ممكن ان يكون هناك كود لاظهار فقط الاسماء ال 12 واختار منهم مااريد لاظهار الريكوردز المتعلقه بهم؟

 

شاكره لك حرصك وجهدك القيم 

 

 

Capture.PNG

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information