كشوف الملاحظة

[mahamad ramadan]

ياجماعة كان فيه أخ فاضل منزل برنامج كشوف الملاحظة وهو برنامج رائع بس أنا مش عارف أعدل في الكود عشان العدد في مدرستي كبير أكتر من 20 لجنة وهو متصمم على 16 لجنة بس
فرجاء شرح الكود وكيفية التعديل عليه
أولا ده الكود ملئ بيانات اليوم الأول:
Sub يوم1فترة1()
Application.ScreenUpdating = False
Sheets("الكشاف").Range("a10:f" & ['الكشاف'!d3] + 9).Select
     Selection.Sort Key1:=Range("f10"), Order1:=xlAscending
     Sheets("الكشاف").Range("n10:p" & ['الكشاف'!d3] + 9).ClearContents
r = 10
x = 10
xx = ['الكشاف'!d3] + 9
For i = x To xx
If Sheets("الكشاف").Cells(i, 3) <> ['الكشاف'!p5].Value And Sheets("الكشاف").Cells(i, 3) <> ['الكشاف'!p6].Value And Sheets("الكشاف").Cells(i, 7) <> "-" And Sheets("الكشاف").Cells(i, 7) <> "" And Sheets("الكشاف").Cells(i, 4) <> "" Then
       ' Sheets("الكشاف").Cells(r, 14).Value = r - 59
      Sheets("الكشاف").Cells(r, 14) = Sheets("الكشاف").Cells(i, 4)
    r = r + 1
        End If
Next i
Sheets("الكشاف").Range("a10:f" & ['الكشاف'!d3] + 9).Select
     Selection.Sort Key1:=Range("a10"), Order1:=xlAscending
Application.ScreenUpdating = True
Range("n10").Select
End Sub
ثانيا
ده الكود بتاع ملئ كشف الملاحظة
 

Sub ملء1()
Application.ScreenUpdating = False
Sheets("كشوف الملاحظة").Range("f7:h40").ClearContents
ff = Application.InputBox(prompt:="أدخل الرقم ", Title:="رقم العمود", Type:=1)
r = 7
x = 10
xx = 40
For i = x To xx
     Sheets("كشوف الملاحظة").Cells(r, 6) = Sheets("الكشاف").Cells(i, ff)
    Sheets("كشوف الملاحظة").Cells(3, 6) = Sheets("الكشاف").Cells(9, ff)
    Sheets("كشوف الملاحظة").Cells(3, 9) = Sheets("الكشاف").Cells(8, ff + 2)
     Sheets("كشوف الملاحظة").Cells(4, 9) = Sheets("الكشاف").Cells(9, ff + 2)
    r = r + 1
       
Next i
Application.ScreenUpdating = True

End Sub
فبرجاء شرح طريقة التعديل حتى يستوعب عدد أكبر من اللجان

كشوف الملاحظة.xls

[كباكا]

الى الخبراء الافاضل طلب صغير والمطلوب داخل الملف المرفق فأنتم أجدر منى فى كتابة الاكواد أو التعديل فيها

 

لتوزيع الملاحظة اليا .xls