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



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





كشف اللجان ( المناداه ) للمدارس

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



04-01-2018 03:09 مساء
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 455
الاعجاب : 173
 offline 

بسم الله الرحمن الرحيم
احبابنا في الله

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

Sub TwoList()
'هذا الكود للمحترم زيزو العجوز
'وتعديل المحترم بن عليه وتم التعديل لمتطلبات جديده
'متغيرات
'تم هذا الكود في 1/1/2008

Dim Sh As Worksheet, Main As Worksheet
Dim C As Range
Dim x, y, z, p, q
Const Presd = "رئيس شئون الطلاب /"
Const Manag = "مدير المدرسة /"

'لمنع اهتزاز الشاشه
Application.ScreenUpdating = False

'اسم الورقه المصدر
Set Main = Sheets("البيانات")

'اسم الورقه الهدف
Set Sh = Sheets("اللجان")

'خليتي رقم اللجنه
x = Sh.Range("D2").Value: y = Sh.Range("K2").Value

'رقم صف العناوين في الصفحه الهدف
p = 4: q = 4

'تفريغ مدى صفحة الهدف
Sh.Range("B5:M500") = Empty

'ازاله الحدود في صفحة الهدف
Sh.Range("B5:M500").Borders.LineStyle = xlNone

'عمود اللجنه في الورقه المصدر
For Each C In Main.Range("D4:D500")

  If C.Value = x Then
    p = p + 1
    
    ' ناقص واحد بدايه  ترقيم المسلسل
    Sh.Cells(p, 2) = p - 4
     
     
    'معلومات عن اللجنه اليمنى
    'السالب هو رقم العمود في صفحه المصدر الموجود يمين عود رقم اللجنه
    Sh.Cells(p, 3) = C.Offset(0, 1)
    Sh.Cells(p, 4) = C.Offset(0, -2)
    Sh.Cells(p, 5) = C.Offset(0, -1)
    Sh.Cells(p, 6) = C.Offset(0, 4)
     
    '=======
  ElseIf C.Value = y Then
   
    '=======
    'معلومات عن اللجنه اليمنى
    q = q + 1
    Sh.Cells(q, 9) = q - 4
    Sh.Cells(q, 10) = C.Offset(0, 1)
    Sh.Cells(q, 11) = C.Offset(0, -2)
    Sh.Cells(q, 12) = C.Offset(0, -1)
    Sh.Cells(q, 13) = C.Offset(0, 4)
  End If

Next

  z = IIf(p >= q, p, q)
 
'خليه بدايه ونهايه التسطير
' في اللجنه الاولى وحجم الخط
  Sh.Range(Cells(5, 2), Cells(z, 6)).Borders.Weight = 2
 
  'خليه بدايه ونهايه التسطير
' في اللجنه الثانيه وحجم الخط
  Sh.Range(Cells(5, 9), Cells(z, 13)).Borders.Weight = 2
  Sh.Range(Cells(5, 7), Cells(z + 3, 8)).Borders(xlInsideVertical).LineStyle = zlDot
 
  Cells(z + 2, 2) = Presd: Cells(z + 3, 2) = "  " & Main.Range("G1")
  Cells(z + 2, 5) = Manag: Cells(z + 3, 5) = "  " & Main.Range("G2")
  Cells(z + 2, 9) = Presd: Cells(z + 3, 9) = "  " & Main.Range("G1")
  Cells(z + 2, 12) = Manag: Cells(z + 3, 12) = "  " & Main.Range("G2")

'اعادة الشاشه الى ماكانت عليه
Application.ScreenUpdating = True

End Sub


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  قوائم لجنتين للمحترم زيزو العجوز 5.rar   تحميل rar مرات التحميل :(57)
الحجم :(21.461) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، mohammed gurtuby، تاج الدين، kby،





07-01-2018 08:55 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4283
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 307
قوة السمعة : 12214
الاعجاب : 4446
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
بارك الله فيك أخي العزيز ناصر .. وللأخ زيزو العجوز جزاكم الله خيراً على مساهماتكم الرائعة 

أثارت هذه المشاركة إعجاب: ناصر سعيد1،




08-01-2018 02:03 صباحا
مشاهدة مشاركة منفردة [2]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 455
الاعجاب : 173
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
وبارك الله فيك اخي الكريم استاذ ياسر 
الفضل يرجع لله اولا ثم للاستاذ المحترم زيزو العجوز واستاذ بن عليه
اما شخصي البسيط فما عليا الا ان اظهر درر الاكواد واضع عليها الاضواء مضافا اليها بعض شروحات الاسطر لتزيدها فهما للاخوه المبتدئين وتكون عونا للاخوه المخضرمين في الاستفاده الفعليه من هذه الدرر
ربنا يكتبها في كفه حسنات  كل من كانت له بصمه في اعمال الخير

أثارت هذه المشاركة إعجاب: YasserKhalil،




24-01-2018 02:53 مساء
مشاهدة مشاركة منفردة [3]
mohammed gurtuby
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-01-2018
رقم العضوية : 3536
المشاركات : 121
الجنس : ذكر
تاريخ الميلاد : 31-12-1988
الدعوات : 3
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 163
الاعجاب : 68
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
ربنا يجازيك بالخير ايها الانسان المبدع

أثارت هذه المشاركة إعجاب: YasserKhalil،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
عمل اللجان المدرسيه 1 ناصر سعيد1
3 370 تاج الدين
كشوف اللجان للمحترم زيزو ناصر سعيد1
6 400 تاج الدين
ابو العربي وابو خليل لعمل اللجان بالمصفوفات سوزي كارم
21 713 تاج الدين
توزيع اللجان دفعة واحدة بالأكواد Haneen Amr
13 560 Haneen Amr
برنامج ملاحظى اللجان ابراهيم الحداد
9 926 ناصر سعيد1

الكلمات الدلالية
اللجان ، المناداه ، للمدارس ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 11:12 مساء

أعلن هنا
أعلن هنا
أعلن هنا