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