مطلوب مساعدة في استكمال ملف المواظبة

[سيد الأكرت]

السلام عليكم ورحمة الله وبركاته مطلوب مساعدة في الملف المرفق الذي يقوم باستدعاء أسماء التلاميذ حسب الفصل بحيث يحقق الآتي :

 

1- عند اختيار الشهر والسنة من الخلايا ak , al  يتم التوزيع من بداية الشهر إلى آخر الشهر واسم اليوم في الخلايا من c إلى ag

 

2- عند استدعاء اسم الفصل تكون الصفوف وافية لعدد كل فصل وتكون نهاية الشيت مذيلة في آخر 3 صفوف تحت خانة اسم التلميذ بثلاث كلمات وهي مقيد ، وغائب ، وحاضر لعمل حصر يومي بالغياب.

 

3- إن أمكن حذف أيام الجمعة والسبت في كل شهر لأنهما إجازة فستصبح المساحة أوسع في عرض العمود لتكون الكتابة واضحة

 

مواظبة.rar

[بن علية حاجي]

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

لم أفهم القصد من الشرط الثاني، أرجو أن تبين ذلك في الملف... ثم كم تريد من صف (سطر) في كل صفحة (عدد التلاميذ في كل صفحة)؟

بن علية حاجي

 

[سيد الأكرت]

أقصد أن عدد التلاميذ يختلف من فصل لآخر وأكبر عدد لدينا هو 117 وعليه فإني أرغب أن تكون الصفوف متناسقة مع العدد، فهناك فصل عدده 50 تلميذ ومن ثم لا أريد صفحات فارغة تحت الأسماء فالورقة الواحدة تسع 30 تلميذ ولنفرض أن لدينا فصل عدده 62 فالمطلوب أن يكون ذلك في 3 صفحات بحيث يكون في الصفحة الثالثة الاسمين الباقيين وصفوف فارغة لنهاية الصفحة التي سنذيلها بإحصاء في آخر 3 صفوف منها مكتوب فيها "مقيد" وفي الصف الذي يليه "غائب" وفي الأخير "حاضر" وهذا التذييل سيكون مكتوب في خانة الأسماء أي في العمود الثاني كما في المرفق...

مواظبة2.rar

[سليم حاصبيا]

بالنسبة لعرض الاسماء حسب الفصول 

اليك هذا الكود (اسرع بكثير لانه يعتمد على فلترة البيانات بدون حلقات تكرارية) و يضع لك قي اسفل 3 صفوف ما تريده

Option Explicit
Sub Slim_Data()
Dim data As Worksheet, Ws As Worksheet
Dim Old_lr As Long
Dim New_lr As Long
Dim last_row1%
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
    End With
Set data = Sheets("السجل")
Set Ws = Sheets("مواظبة")
Ws.Range("iv1") = "اسم الفصل"
Ws.Range("iv2") = Ws.Range("ah2")
Old_lr = Ws.Cells(Rows.Count, 2).End(3).Row
    Ws.Range("a7:Aj" & Old_lr).ClearContents
last_row1 = data.Range("c10").CurrentRegion.Rows.Count + 9
Dim Tabl As Range: Set Tabl = data.Range("c10:l" & last_row1)
If data.FilterMode = True Then data.ShowAllData
Tabl.AdvancedFilter Action:=1, criteriarange:=Ws.Range("Iv1:Iv2")
Tabl.Columns(2).Copy Ws.Range("b6")
data.ShowAllData
New_lr = Ws.Cells(Rows.Count, 2).End(3).Row + 3
Ws.Range("a7:Aj" & New_lr).Borders.LineStyle = 1
   With Ws.Range("a7")
    .Value = 1: .Resize(New_lr - 9).DataSeries Step:=1
   End With
    With Ws.Range("b" & New_lr)
        .Offset(-2, 0) = "مقيّد"
        .Offset(-1, 0) = "حاضر"
        .Value = "غائب"
    End With
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
End Sub

اما بالنسبة للتاريخ دون السبت والاحد فقد كانت لي مشاركة يهذا الموضوع قد ارسلتها لك

الملف

 

 

 

مواظبة sailim.xlsm

[سيد الأكرت]

شكرا استاذي الفاضل سليم لكنى اعمل على اوفيس 2003 وعندما جربت الاستدعاء اعطاني خطأ في الكود وكذلك الامر حدث في الملف الذي تكرمت به سابقا الخاص بالتاريخ دون الجمعه والسبت ولم يعمل الكود ايضا ومرفق صورتين لرسائل الخطأ والتي فسرتها قدر استطاعتي باختلاف الاوفيس

الصورتان.rar

[بن علية حاجي]

السلام عليكم

تم عمل المطلوب بالتعديل على الملف وعلى كود الاستدعاء حسب الشروط المطلوب... أرجو أن تفي بالغرض..

بن علية حاجي

 

مواظبة3.rar

[سليم حاصبيا]

الملف يصيغة 2003

مواظبة sailim 2003.xls

[سيد الأكرت]

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

[سيد الأكرت]

استفسار صغير من الأستاذ بن علية حاجي في الملف المرفق من سيادته لاحظت عند اختيار فصل 5/1 أن الملف يستدعي 116 تلميذ في حين أن عددهم 117 كما لاحظت عند تغيير الشهر من خلال الزر فإنه لا يكتمل فمثلا شهر  يناير 31 يوم وهو ينتهي بيوم الأربعاء وهو يوم عمل ولكنه غير موجود وفي شهر فبراير تقف المعادلات عند يوم 27 وهذا الشهر آخره 28 وهو يوم الأربعاء وهو أيضا يوم عمل وفي شهر مارس ينتهي الملف بيوم 1/4 وهو شهر جديد فهل هناك خلل في المعادلة واعتذر عن أسئلتي

[بن علية حاجي]

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

منذ ساعه, سيد الأكرت said:

استفسار صغير من الأستاذ بن علية حاجي في الملف المرفق من سيادته لاحظت عند اختيار فصل 5/1 أن الملف يستدعي 116 تلميذ في حين أن عددهم 117 كما لاحظت عند تغيير الشهر من خلال الزر فإنه لا يكتمل فمثلا شهر  يناير 31 يوم وهو ينتهي بيوم الأربعاء وهو يوم عمل ولكنه غير موجود وفي شهر فبراير تقف المعادلات عند يوم 27 وهذا الشهر آخره 28 وهو يوم الأربعاء وهو أيضا يوم عمل وفي شهر مارس ينتهي الملف بيوم 1/4 وهو شهر جديد فهل هناك خلل في المعادلة واعتذر عن أسئلتي

 

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

بن علية حاجي 

مواظبة3.rar

[سيد الأكرت]

المعذرة أستاذي الفاضل مني أنا لأني أرهقتك بكثرة طلباتي جزاك الله خيرا ونفع المسلمين بعلمك وجزاك عني خير الجزاء