هل يمكن تصميم جدول مدرسي بالإكسيل؟

[ياسر خليل أبو البراء]

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

إخوتي في المنتدى /

عندي سؤال بسيط - قد يكون معقد - أو قد لا يكون !!!

المهم السؤال هو : هل يمكن عمل أو تصميم جدول مدرسي باستخدام الإكسيل وليس الأكسيس ( لأني قد قرأت من قبل أنه يوجد برنامج جاهز للجدول المدرسي وقمت بتنزيله ، ولكنه لم يعجبني أو بالأحرى لم أستطع التعامل معه )

[ياسر خليل أبو البراء]

سلام الله على أهل المنتدى الكرام

حتى الآن 21 قراءة ولم يتم الرد ، حتى ولو بعدم الإمكانية !!!

الرجاء الرد ...........

أي رد !!!!!

دمتم على طاعة الله

[ابو اسامة العينبوسي]

السلام عليكم

كلمة

ولكنه لم يعجبني

ده تقيله شويه حبتين

لكن انا اعتقد ان هذه البرامج هى الموجوده لحد الان

و اهلا بك

دمت بود

[mr mostafa osman]

الاخ السأل

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

لذلك يمكن قبل الاجابة على سؤالك يجب اعطاء توضيح كافى عن البرنامج الذى تريدة

mostafa osman

www.mostafaosman.page.tl

تم تعديل أبريل 24, 2009 بواسطه mr mostafa osman

[ياسر خليل أبو البراء]

السلام عليكم

أستاذي الكريم / مصطفى عثمان

إليك ملف مرفق به أسماء المدرسين والخطة المطلوب العمل عليها ، والمطلوب توزيع حصص هؤلاء المدرسون في أيام الأسبوع (ابتداء من الأحد إلى الخميس)

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

وإلى مزيد من التقدم والرقي

_____.rar

[ياسر خليل أبو البراء]

أخي العزيز

أرفقت الملف ولم يتم الرد!

عذراً على الاستعجال فأنا بحاجة ماسة لهذا الأمر!!!!

[ايمن ريا]

السلام عليكم

هذا رابط أفضل برنامج لعمل الجداول المدرسية ، يتميز بتصديره إلى الإكسيل ، وعمل جدول مجمع لكل المدرسين ، والفصول ، وجدول لكل فصل وكل مدرس بمفرده ، إضافة للتعامل مع حصص الإحتياطى ، ولكن يتطلب التدريب عليه أولاً .

http://www.asctimetables.com/download/aScTimeTables.exe

وهذا رابط لشرح البرنامج لأحد الأخوة المتميزين فى التعامل معه .

http://www.4shared.com/get/63996517/28bd9b...6FCD4D27A.dc138

[احمدزمان]

بعد الشكر و التقدير لأخي ايمن

اخي ياسر

حاولت فعلا اول ماوضعت الملف عمل المطلوب

ولكن لم استطع عمله بالدوال ((ممكن يكون احد الإخوان يستطيع عمله))

ولكن من ناحيتي يمكن عمل المطلوب بكود Vb

اذا رغبت في الكود اخبرني

وسوف اقوم بعون الله تعالى بعمله

وكلام في سرك : من 3 ايام ومخي بجد مهنق مش عارف لية

مع التحية و التقدير

[ياسر خليل أبو البراء]

السلام عليكم

أخيراً سمعت صوتك تاني في مواضيعي ، بجد أنا فرحان

وألف سلامة على مخك المهنق _ يبدو إني أنا حسدتك بصراحة ما أكذبش عليك _ بس دا حسد محمود يعني الغيرة في العلم ( يطلق عليها غبطة )

بس يبدو إني تقلت العيار حبتين فأثر على مخك

من فضلك حافظ عليه عشان بجد محتاجينه

أنا فعلاً محتاج الكود وياريت ولو شرح مبسط للأكواد لإني لسه جديد في موضوع الأكواد ده

عاشق الإكسيل

[ياسر خليل أبو البراء]

شكر خاص للأخ أيمن

جزاكم الله خيراً على الروابط التي أعطيتني إياها

جاري التحميل ... ثم التدريب إن شاء الله

عاشق الإكسيل

[احمدزمان]

السلام عليكم

أخيراً سمعت صوتك تاني في مواضيعي ، بجد أنا فرحان

وألف سلامة على مخك المهنق _ يبدو إني أنا حسدتك بصراحة ما أكذبش عليك _ بس دا حسد محمود يعني الغيرة في العلم ( يطلق عليها غبطة )

بس يبدو إني تقلت العيار حبتين فأثر على مخك

من فضلك حافظ عليه عشان بجد محتاجينه

أنا فعلاً محتاج الكود وياريت ولو شرح مبسط للأكواد لإني لسه جديد في موضوع الأكواد ده

عاشق الإكسيل

السلام عليكم

ان شاء الله اليوم يتم

بس سؤاال

بس دا حسد محمود

مين هوه محمود ده

ههههههههههه

[احمدزمان]

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

تم عمل نقل البيانات في المرفق

Sub khutah()

On Error Resume Next

Application.ScreenUpdating = False

Range("B1:Z113").ClearContents 

ActiveWorkbook.Calculation = xlManual

Dim Q 
Dim W 

Dim E 

Dim R 

Sheets("PLAN").Select

For Q = 2 To 111

For W = 1 To 111

If Cells(Q, 1) = Sheets("PlanC").Cells(W, 1) Then

R = 2

For E = 154 To 256

If Cells(Q, E).Value <> "" Then

Sheets("PlanC").Cells(W, R) = Cells(Q, E).Value

R = R + 1

End If

Next E

End If

Next W

Next Q

ActiveWorkbook.Calculation = xlAutomatic

End Sub

ومرفق شرح

AY____________.rar