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

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


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


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





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

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



04-01-2018 03:09 مساء
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
قوة السمعة : 627
الاعجاب : 3
 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 مرات التحميل :(150)
الحجم :(21.461) KB





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




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




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




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




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




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




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




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




10-12-2018 09:29 مساء
مشاهدة مشاركة منفردة [9]
محمد2002
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-05-2018
رقم العضوية : 5944
المشاركات : 85
الجنس : ذكر
تاريخ الميلاد : 7-7-2002
قوة السمعة : 158
الاعجاب : 0
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
جزاك الله خيرا




18-12-2018 12:52 صباحا
مشاهدة مشاركة منفردة [10]
اشرف بركات
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 17-12-2018
رقم العضوية : 10286
المشاركات : 7
الجنس : ذكر
تاريخ الميلاد : 9-2-1972
قوة السمعة : 14
الاعجاب : 0
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
جهد رائع




19-12-2018 02:23 مساء
مشاهدة مشاركة منفردة [11]
سامي فتحي الفرت
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-12-2017
رقم العضوية : 2168
المشاركات : 22
الجنس : ذكر
تاريخ الميلاد : 13-12-1970
قوة السمعة : 46
الاعجاب : 0
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
بارك الله فيك




29-01-2019 05:02 مساء
مشاهدة مشاركة منفردة [12]
ابو مينا
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-02-2018
رقم العضوية : 4294
المشاركات : 17
الجنس : ذكر
تاريخ الميلاد : 18-1-1968
قوة السمعة : 53
الاعجاب : 0
 offline 
look/images/icons/i1.gif كشف اللجان ( المناداه ) للمدارس
بارك الله فيك شكرا اخى الكريم






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
برنامج ملاحظى اللجان ابراهيم الحداد
63 7889 mostafa asala
عمل اللجان المدرسيه 1 ناصر سعيد1
4 917 yehya mahmoud
توزيع اللجان دفعة واحدة بالأكواد Haneen Amr
14 1859 yehya mahmoud
كشوف اللجان للمحترم زيزو ناصر سعيد1
6 1215 تاج الدين
ابو العربي وابو خليل لعمل اللجان بالمصفوفات سوزي كارم
21 1689 تاج الدين

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


 







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

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

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