أكاديمية الصقر للتدريب

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .




08-11-2018 06:20 مساء
مشاهدة مشاركة منفردة [2]
ابونور
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 77
الجنس : ذكر
تاريخ الميلاد : 14-11-1974
يتابعهم : 3
يتابعونه : 4
قوة السمعة : 445
الاعجاب : 147
 offline 
look/images/icons/i1.gif حذف موظف عن طريق الليست بوكس
وعليكم السلام ورحمة الله وبركاته
لجعل كودك صالح للعمل تم عمل التعديلات الآتيه

أولا تغيير معادلة المسلسل 
=IF(B10="","",ROW()-9)

لأن المعادله الأولى تأتى بخطأ عند الحذف
ثانيا تغيير معرفة آخر رقم صف به بيانات من العمود A الى العمود B
لأنه فى العمود الأول يأتى بأخر صف ممتد أليه معادلة المسلسل
أما بالعمود الثانى يأتى بأخر صف به بيانات
Range("b1000").End(xlUp).Row
ولسرعة عمل الكود تم إضافة هذا السطر للخروج من الحلقه التكراريه لعدم الفائده من أكمالها
Exit For

وهذا الكود كاملا
Private Sub CommandButton3_Click()
On Error Resume Next
        Dim i As Integer
        UserForm3.TextBox9.Text = ListBox1.Column(1, ListBox1.ListIndex)
        UserForm3.TextBox10.Text = ListBox1.Column(2, ListBox1.ListIndex)
        If MsgBox("åá ÊÑíÏ ÝÚáÇð ÍÐÝ ÈíÇäÇÊ ÇáßæÏ/ " & TextBox9.Value & "  ÈÅÓã /" & TextBox10.Value, vbYesNo + vbQuestion, "ÑÓÜÇáÉ ãä ÇáãÈÑãÌ ÃÈæÔÜÑæÞ") = vbYes Then
        For i = 10 To Range("b1000").End(xlUp).Row
        If Cells(i, 1) = ListBox1.List(ListBox1.ListIndex) Then
        Rows(i).Select
        Selection.Delete
        Exit For
        End If
        Next i
        End If
    TextBox9.Text = ""
    TextBox10.Text = ""
End Sub


ومرفق الملف بعد التعديل

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  حذف عن طريق الليست بوكس.rar   تحميل rar مرات التحميل :(8)
الحجم :(72.869) KB




اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 07:48 صباحا

أعلن هنا
أعلن هنا
أعلن هنا