أكاديمية الصقر للتدريب

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات




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





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

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



04-01-2018 03:09 مساء
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 505
الاعجاب : 190
 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


لرؤية الروابط والمرفقات عليك الرد على الموضوع




لرؤية الروابط والمرفقات عليك الرد على الموضوع


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





07-01-2018 08:55 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14730
الاعجاب : 5499
 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
قوة السمعة : 505
الاعجاب : 190
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
وبارك الله فيك اخي الكريم استاذ ياسر 
الفضل يرجع لله اولا ثم للاستاذ المحترم زيزو العجوز واستاذ بن عليه
اما شخصي البسيط فما عليا الا ان اظهر درر الاكواد واضع عليها الاضواء مضافا اليها بعض شروحات الاسطر لتزيدها فهما للاخوه المبتدئين وتكون عونا للاخوه المخضرمين في الاستفاده الفعليه من هذه الدرر
ربنا يكتبها في كفه حسنات  كل من كانت له بصمه في اعمال الخير

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




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

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




19-10-2018 05:19 مساء
مشاهدة مشاركة منفردة [4]
احمد انس
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 06-11-2017
رقم العضوية : 1367
المشاركات : 13
الجنس : ذكر
تاريخ الميلاد : 11-3-1966
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 28
الاعجاب : 9
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
مشكوووووووووووووووووووور





11-11-2018 02:38 صباحا
مشاهدة مشاركة منفردة [5]
امير العاصمة
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 13-03-2018
رقم العضوية : 4837
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 13-11-1982
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/wub.gif كشف اللجان ( المناداه ) للمدارس
جزاكم الله خيرا





11-11-2018 10:37 صباحا
مشاهدة مشاركة منفردة [6]
abdulwahed catran
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 219
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 10-2-1968
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 140
الاعجاب : 59
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
بوركت جهودكم





11-11-2018 01:02 مساء
مشاهدة مشاركة منفردة [7]
مالك ماريه
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 311
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 3
قوة السمعة : 370
الاعجاب : 141
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
جزاكم الله خير





11-11-2018 01:21 مساء
مشاهدة مشاركة منفردة [8]
mostafa asala
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 22-09-2018
رقم العضوية : 8118
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 2-1-1965
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
جزاكم الله خيرا





11-11-2018 02:08 مساء
مشاهدة مشاركة منفردة [9]
عمرزكى
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 174
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 21-7-1987
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
مشكوووووووووووووورين





11-11-2018 02:11 مساء
مشاهدة مشاركة منفردة [10]
عمرزكى
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 174
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 21-7-1987
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
مشكوووووووووووووورين





11-11-2018 02:11 مساء
مشاهدة مشاركة منفردة [11]
عمرزكى
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 174
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 21-7-1987
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
مشكوووووووووووووورين





11-11-2018 02:15 مساء
مشاهدة مشاركة منفردة [12]
عمرزكى
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 174
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 21-7-1987
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
مشكوووووووووووووورين






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
برنامج ملاحظى اللجان ابراهيم الحداد
56 1959 maged_n7000
عمل اللجان المدرسيه 1 ناصر سعيد1
4 484 yehya mahmoud
توزيع اللجان دفعة واحدة بالأكواد Haneen Amr
14 882 yehya mahmoud
كشوف اللجان للمحترم زيزو ناصر سعيد1
6 559 تاج الدين
ابو العربي وابو خليل لعمل اللجان بالمصفوفات سوزي كارم
21 860 تاج الدين

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


 







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



الساعة الآن 02:32 صباحا

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