السلام عليكم ورحمة الله وبركاته
تحيه طيبه للجميع
انا جديده في التعامل مع الفيجوال بيسك
سأشرح لكم مااريد وجزى الله من ساعدني خير الجزاء في الدنيا والاخره
لدي ملف اكسيل متغير كل اسبوع يحتوي على الاعمده التاليه بنفس الترتيب
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