ظهور رسالة خطاء عند حذف طالب

[محمد الورفلي1]

السلام عليكم

ظهور رسالة خطاء في الكود عند حذف طالب من عمود الجنس او الصف عن طريق  مفتاح delete

 120.rar

 

 

 

 

[عبد العزيز البسكري]

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

أخي الكريم جربت الحذف في الملف بمفتاح DELETE مرة و مرتين وثلاث ..لم يظهر عندي أي خطأ  ..

تحياتي

[محمد الورفلي1]

جرب الحذف من عمود الجنس او الصف

 

 

[عبد العزيز البسكري]

جرب الحذف من عمود الجنس او الصف

 

 

جربت أخي وقرأت ذلك في أولى مشاركاتك ..بالنسبة لي شخصيا لم ألاحظ أي خطأ عند الحذف من عمود الجنس أو الصف

[ياسر خليل أبو البراء]

جرب تعديل الكود بهذا الشكل ..

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Reset_EnableEvents
    Application.ScreenUpdating = False
    Application.EnableEvents = False

    If Not Intersect(Target, Range("C18:C2014")) Is Nothing Then
        If IsEmpty(Target) Then
            Target = ""
        ElseIf Target.Value = 1 Then
            Target.Value = "اولي ابتدائي"
        ElseIf Target.Value = 2 Then
            Target.Value = "ثانية ابتدائي"
        ElseIf Target.Value = 3 Then
            Target.Value = "ثالثة ابتدائي"
        ElseIf Target.Value = 4 Then
            Target.Value = "الصف الرابع"
        ElseIf Target.Value = 5 Then
            Target.Value = "الصف الخامس"
        ElseIf Target.Value = 6 Then
            Target.Value = "الصف السادس"
        ElseIf Target.Value = 7 Then
            Target.Value = "الصف السابع"
        ElseIf Target.Value = 8 Then
            Target.Value = "الصف الثامن"
        ElseIf Target.Value = 9 Then
            Target.Value = "الصف التاسع"
        End If
    End If

    If Not Intersect(Target, Range("D18:D2014")) Is Nothing Then
        Select Case Target
        Case "ك"
            Target = "ذكر"
        Case "ن"
            Target = "انثى"
        End Select
    End If

    Application.ScreenUpdating = False
    If Target.Column = 4 Or Target.Column > 8 Then GoTo Reset_EnableEvents
    LR = Cells(Rows.Count, 2).End(xlUp).Row
    If Range("B" & LR) = "" Or Range("C" & LR) = "" Or Range("D" & LR) = "" Or Range("E" & LR) = "" Then GoTo Reset_EnableEvents

    Range("B18:E" & LR).Select
    Selection.Sort Key1:=Range("b18"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    '''''''''''''''''''''''''''''''''''''''''''''''
    With Range("b18:b" & LR + 3)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Font.Size = 18
        .Font.Bold = True
    End With

    ''''''''''''''''''''''''''''''''''''''''''''
    With Range("B18:B" & LR + 3)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Font.Size = 18
        .Font.Bold = True
    End With
    
    Range("B" & LR + 5).Select
Reset_EnableEvents:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

 

[محمد الورفلي1]

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

استاذ ياسر .........................(( شــــــــــــــــــــــــــــــــكراً جزيلاً   ))

 

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

بعد اذنك اذا توفر لك وقت ياريت تفصيل الكود وشرحهه بالذات هذا الجزء

 

 On Error GoTo Reset_EnableEvents
    Application.ScreenUpdating = False
    Application.EnableEvents = False

 

وهذا

 

Reset_EnableEvents:
    Application.ScreenUpdating = True
    Application.EnableEvents = True

 

[ياسر خليل أبو البراء]

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

نقطة أخرى قمت باستبدال جملة Select Case واستخدمت جملة IF حيث أن الأولى تقوم باختبار جميع القيم أولاً قبل التنفيذ بينما جملة If تختبر شرط شرط فإذا وافق الشرط يتم الخروج من الجملة بدون استكمال عمليات الاختبار لبقية الشروط مما يجعل الأمر أيسر وأخف

[محمد الورفلي1]

شكراً

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

نقطة أخرى قمت باستبدال جملة Select Case واستخدمت جملة IF حيث أن الأولى تقوم باختبار جميع القيم أولاً قبل التنفيذ بينما جملة If تختبر شرط شرط فإذا وافق الشرط يتم الخروج من الجملة بدون استكمال عمليات الاختبار لبقية الشروط مما يجعل الأمر أيسر وأخف