توزيع جدول الحصص

[خالد الشاعر]

السادة الخبراء

مرفق ملف تويع الحصص المدرسين اريد تفريغة فى الجدول العام حسب الفصول

ولكم جزيل الشكر

جدول حصص.rar

[lionheart]

Try

Sub Test()
    Dim xDay, xClass, ws As Worksheet, lr As Long, r As Long, xCol As Long
    Application.ScreenUpdating = False
        Set ws = ActiveSheet
        With ws
            lr = .Cells(Rows.Count, "C").End(xlUp).Row
            .Range("M7:BE95").ClearContents
            For r = 7 To lr
                xDay = Application.Match(.Cells(r, "C").Value, .Rows(5), 0)
                If Not IsError(xDay) Then
                    xCol = xDay + Val(.Cells(r, "G").Value) - 1
                    xClass = Application.Match(.Cells(r, "D").Value, .Columns(12), 0)
                    If Not IsError(xClass) Then
                        .Cells(xClass, xCol).Value = .Cells(r, "B").Value
                        .Cells(xClass + 1, xCol).Value = .Cells(r, "F").Value
                    End If
                End If
            Next r
        End With
    Application.ScreenUpdating = True
End Sub

 

[خالد الشاعر]

اشكرك استاذ lionheart

لكن الكود يحول المعادلات فى صفحة جدول توزيع الحصص الى قيم

انا اريد تفريغ لكل مدرس فى صفحة عام

الف شكر لحضرتك

[lionheart]

Not clear for me. Please attach sample of the required results

[خالد الشاعر]

فى صفحة جدول توزيع الحصص

المعلم 1 عنده حصه فى فصل A1  رقم 1 و رقم 9

اريد فى صفحة عام عند كتابه اسم المعلم يعطى فى نفس الصف جميع الحصص الخاصة به

ارجو ان اكون اوضحت الفكره

جزاكم الله كل خيراً

 

تم تعديل مارس 25, 2023 بواسطه خالد الشاعر

[خالد الشاعر]

شكرا

تم تعديل مارس 25, 2023 بواسطه خالد الشاعر

[lionheart]

Not logical for me

The English subject exists twice for two teachers 1 & 5 so the posted image not correct as for logic

English subject should be in the periods 1 & 5 not in 1 & 9

[خالد الشاعر]

ده حضرتك مثال للفكره المطلوبه و لكن من الطبيعى يكون نفس الماده واخد الحصه الاولى و التاسعه

تم تعديل مارس 25, 2023 بواسطه خالد الشاعر

[lionheart]

It seems you didn't get what I meant

 

[خالد الشاعر]

ده المقترح المضبوط

تم تعديل مارس 25, 2023 بواسطه خالد الشاعر

[lionheart]

Still no clear logic

Please this is the last reply from my side, attach clear file with some of the expected results and put some real names for the teacher column as I don't think your attachment is correct

[خالد الشاعر]

استاذى الفاضل

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

اريد فى صفحة عام عند كتابه اسم المعلم يعطى فى نفس الصف جميع الحصص الخاصة به فى كل يوم

ارجو ان اكون اوضحت الفكره

جدول حصص.rar

[بلانك]

خالد الشاعر ممكن الملف كامل حنى نستفيد منه وشكر

[ابراهيم الحداد]

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

و كل عام و انتم بخير

المعادلة التالية توضع فى الخلية G6 ثم نضغط CTRL+SHIF+ENTER لانها معادلة صفيف و بعدها نسحب طولا و عرضا ليوم الاثنين فقط

=IFERROR(INDEX('جدول توزيع الحصص'!$B$7:$H$12;MATCH(($C9&$G$6&G$7);'جدول توزيع الحصص'!$B$7:$B$12&'جدول توزيع الحصص'!$C$7:$C$12&'جدول توزيع الحصص'!$G$7:$G$12;0);3);"")

اما بقى الايام نقوم بتغيير الخلية G6  فى المعادلة ذاتها  الى P6 ليوم الثلاثاء و  Y6 ليوم الاربعاء و  AH6 ليو م الخميس و  AQ6 ليوم السبت

هذا و الله ولى التوفيق

تم تعديل مارس 25, 2023 بواسطه ابراهيم الحداد

[خالد الشاعر]

اشكرك استاذ ابراهيم على الاهتمام

سوف اجرب و اخبر حضرتك

يوجد ملحوظة هذا النطاق $B$7:$B$12& لماذا تم تحديد حتى الصف 12 فقط لان اخره 255

جزاك الله كل خيراً

تم تعديل مارس 25, 2023 بواسطه خالد الشاعر

[ابراهيم الحداد]

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

التجربة تمت على عدد الاسماء الموجودة بالملف

يمكنك فتح النطاق الى الرقم الذى تريده و لن يكون هناك خلل فى المعادلة

هذا و الله اعلى و اعلم