طلب كود يوزع المواد على جدول بشكل قطري

[121403]

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

في الملف المرفق جدول به 35 حصة ( سبع مواد وخمس حصص لكل مادة )

المطلوب كود يقوم بتوزيع كل مادة على 5 أيام بشكل قطري

في المرفق عملت الجدول يدوي ( قابل للخطأ ) كونه يدوي ونظرا لوجود أكثر من مادة وأكثر من صف جعلني أفكر في عمل كود يقوم بالتوزيع بشكل قطري

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

جدول قطري.pdf

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

[121403]

السلام عليكم اخواني أعضاء المنتدى

قمت بضغط ملف الاكسيل وهاهو المطلوب عمل الكود عليه

جدول قطري.rar

[حمادة عمر]

السلام عليكم

الاخ الفاضل / 121403

اليك محاولة بسيطة مني علها تفي بالغرض

الي ان يرد احد خربائنا بحله الممتاز

تفضل المرفق

Book122.rar

تم تعديل يناير 13, 2013 بواسطه دغيدى

[121403]

الله يعطيك العافية أخي حمادة

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

تم تعديل يناير 9, 2013 بواسطه 121403

[الـعيدروس]

أو بهذه الطريقة قطري للأعمدة

Public Sub Ali_Dly()

    Dim i As Integer, j As Integer

    Dim Ar

    Set A = Range(Cells(9, 4), Cells(13, 10)).Cells(1)

    Ar = Array("حساب", "عربي", "دين", "حاسب", "رياضة", "كيمياء", "احياء")

    On Error Resume Next

    For i = 1 To 4

	 Set A = Union(A, A.Cells(1).Offset(i, i))

	  Set B = Union(A.Offset(0, 1), A.Cells(1, 2).Offset(i, i))

	    Set C = Union(A.Offset(0, 2), A.Cells(1, 3).Offset(i, i))

		  Set D = Union(A.Offset(0, 3), A.Cells(1, 4).Offset(Choose(i, 1, 2, 3), Choose(i, 1, 2, 3)))

	    Set E = Union(A.Offset(0, 4), A.Cells(1, 5).Offset(Choose(i, 1, 2), Choose(i, 1, 2)))

	  Set F = Union(A.Offset(0, 5), A.Cells(1, 6).Offset(Choose(i, 1), Choose(i, 1)))

	 Set G = A.Cells(1, 7)

    Next i

    A.Cells = Ar(0): B.Cells = Ar(1)

    C.Cells = Ar(2): D.Cells = Ar(3)

    E.Cells = Ar(4): F.Cells = Ar(5): G.Cells = Ar(6)

End Sub

[121403]

أشكرك عزيزي أبو نصار

جربت الكود ولكن لايتم تعبئة بقية الخانات في العمود الأول إلى الرابع

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

شاكر لكم جهودكم وبانتظار المزيد .

[حمادة عمر]

السلام عليكم

الاخ الكريم / 121403

شكرا لك علي كلماتك الرقيقة .... بإذن الله ستصل مع الاستاذ الغالي الكبير / ابونصار لكود رائع

قم باستبدال السطر التالي الموجود بالكود :

	  Ar = Array("حساب", "عربي", "دين", "حاسب", "رياضة", "كيمياء", "احياء")

بهذا السطر

	    Ar = Array([C17], [C18], [C19], [C20], [C21], [C22], [C23])

وشاهد النتيجة

الاستاذ القدير / ابونصار

اريد من سيادتكم معرفة اذا كان هذا التعديل سليم ويتماشي مع الكود ولايجعل هناك مشكلة ام لا

لنتعلم من خبرتكم استاذي

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

[رجب جاويش]

بعد اذن اخوتى الأعزاء

لاثراء الموضوع

هذا كود لتوزيع المواد بشكل عشوائى

ولكن ليس بشكل قطرى

ربما يفيد

Sub ragab()

[D9:J13].ClearContents

For ii = 9 To 13

    For i = 17 To 23

1	   x = Int((10 - 4 + 1) * Rnd + 4)

	    If Cells(ii, x) = "" Then

		    Cells(ii, x) = Cells(i, 3)

		    y = Application.WorksheetFunction.CountIf(Range(Cells(ii, 4), Cells(ii, 10)), Cells(ii, x))

	    If y > 1 Then GoTo 1

	    End If

    Next

Next

For R = 9 To 13

    For T = 4 To 10

	    If Cells(R, T) = "" Then

2		   xx = Int((23 - 17 + 1) * Rnd + 17)

		    Cells(R, T) = Cells(xx, 3)

		    yy = Application.WorksheetFunction.CountIf(Range(Cells(R, 4), Cells(R, 10)), Cells(R, T))

		    If yy > 1 Then GoTo 2

	    End If

    Next

Next

End Sub

توزيع المواد بشكل عشوائى.rar

[121403]

الأخوة الأعزاء

أشكر لكم تعاونكم

بالنسبة للأستاذ حمادة عمر جزاك الله خير قمت باستبدال السطر الذي أشرت إليه والنتيجة تمام

وبالنسبة للأستاذ رجب جزاك الله خيرا مشكورا ومانستغني عن خدماتكم

دمتم بخير

[121403]

ماعملناه سابقا كان توزيع مواد على فصل واحد ولكن لدي استفسار من الأخوة الأعزاء :

كيف يمكن وضع جدول للمعلمين موزع بشكل قطري بحيث لا يوجد تعارض عند المعلمين ولايوجد تعارض في الفصول

بحيث يحتوي الجدول على نصاب كل معلم من الحصص وتتوزع هذه الحصص في الجدول بحيث حصص كل فصل تتحرك قطريا مع المعلم

فما هي الطريقة المناسبة

Table1.rar

[الـعيدروس]

اين المواد التي تريد ترحيلها بشكل قطري ؟

احمد = قران

طيب يرحل بشكل قطري على أي يوم وفي اليوم نفسه على اي عمود 1 او 2 او الخ ......

مزيد من التوضيح عن اليه العمل الذي تريده

[121403]

السلام عليكم أخي عباد

كل المواد أريدها قطري ( عدد مثلا 200 مادة ) تتوزع قطريا بحيث :

مثلا خالد يدرس الرياضيات لثلاث فصول ( 15 حصة ) فأريد الرياضيات عند فصل1 لوبدت السبت الحصة 2 فتتوزع على بقية الأيام قطريا

فتكون يوم الأحد الثالثة

الأثنين الرابعة

الثلاثاء الخامسة

الأربعاء السادسة

وهكذا لبقية الحصص الموجودة عند خالد بحيث لاتتعارض حصص فصل2 وحصص فصل3 مع حصص فصل1

وهكذا عند بقية المعلمين

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

وهذا غير صعب على عمالقة هذا المنتدى الذي طالما استفدت منه

وآسف على الاطالة

[121403]

السلام عليكم

خطرت في بالي فكرة نجعل التوزيع يدوي في يوم السبت أما بقية الأيام فتتوزع قطريا بناء على مايكتب في يوم السبت

فلو كتبنا في الحصة الخامسة يوم السبت فصل2 فيحدث التالي

يوم الأحد السادسة يكتب فيها فصل2

الأثنين السابعة يكتب فيها فصل2

الثلاثاء الأولى يكتب فيها فصل 2

الأربعاء الثانية يكتب فيها فصل2

وذلك في نفس الصف الخاص بالمعلم

وبهذا نكون تحكمنا في نصاب المعلم بناء على مايكتب في يوم السبت فإذا وضعنا له 3 فصول فيعني لديه 15 حصة وهكذا

أتمنى أن تكون وصلت الفكرة

[121403]

أساتذتي الكرام هل وضحت الفكرة من الجدول ؟

[121403]

السلام عليكم

هل الفكرة غير واضحة ؟

[121403]

لايوجد جواب ولا رد وأنا محتار

[121403]

السلام عليكم أعضاء المنتدى الكرام

لايوجد رد بخصوص طلبيي

هل هو غير ممكن ؟؟

وآسف للإزعاج

[abu_fhd]

بالنسبة لي غدًا بإذن الله أبدأ فيه .. 

والطريقة خلية الحصة الثانية يوم الأحد = خلية الحصة الأولى يوم السبت .. وهكذا البقية .. شغلانة :)