ajore قام بنشر ديسمبر 15, 2014 مشاركة قام بنشر ديسمبر 15, 2014 هل يمكن تحرير listbox وترحيل التعديل الى الشيت ؟ form11.rar رابط هذا التعليق شارك More sharing options...
ابو تراب قام بنشر ديسمبر 15, 2014 مشاركة قام بنشر ديسمبر 15, 2014 جرب المرفق form11.zip رابط هذا التعليق شارك More sharing options...
ayadprof قام بنشر ديسمبر 15, 2014 مشاركة قام بنشر ديسمبر 15, 2014 نفس مشكلة ارجو من اخوان حل هذه المشكلة هذا الكود ممتاز بس هناك مشكلة هي عندما تكون الاسم مكرر يتم تغيير الاسم الاول وليس الاسم المحدد رابط هذا التعليق شارك More sharing options...
ابو تراب قام بنشر ديسمبر 16, 2014 مشاركة قام بنشر ديسمبر 16, 2014 هلا اخي جربت الكود وهو يعمل بشكل صحيح ... الكود يعتمد على الموقع الحالي لسطر القائمة بغض النظر عن تكرار الاسم فضلا خبرنا اذا ما كانت المشكلة مازالت موجودة رابط هذا التعليق شارك More sharing options...
ajore قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 راااااااائع رابط هذا التعليق شارك More sharing options...
محمود ربيع قام بنشر يناير 25, 2015 مشاركة قام بنشر يناير 25, 2015 استاذنا ابو تراب هل يمكن اضافة خاصية حذف السطر المحدد في الليست بوكس رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر يناير 25, 2015 مشاركة قام بنشر يناير 25, 2015 استاذنا ابو تراب هل يمكن اضافة خاصية حذف السطر المحدد في الليست بوكس بعد إذن الأستاذ ابو تراب تم إضافة زر الحذف للفورم + إستدعاء بيانات الليست بوكس عن طريق الكود أما بالنسبة لطريقة إستدعاء البيانات عن طريق MyRange كما في مرفق مشاركة الأستاذ أبو تراب يكفي إضافة زر إعادة تسميته بهذا الإسم cmdDelete ووضع الكود التالي فيه Private Sub cmdDelete_Click() Dim I As Long With Me.listMain For I = .ListCount - 1 To 0 Step -1 If .Selected(I) Then Sheets("all").Rows(I + 1).EntireRow.Delete Next I End With End Sub تعديل +حذف.zip رابط هذا التعليق شارك More sharing options...
الردود الموصى بها