اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

 

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

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

 

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

بن علية حاجي 

مواظبة3.rar

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information