logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





04-01-2018 03:09 مساءً
بسم الله الرحمن الرحيم
احبابنا في الله
هذا ملف لتوزيع الطلاب على اللجان المدرسيه وبه كود سهل وسريع
جزى الله بل خير .. كل من كانت له بصمه في هذا العمل
CODE

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


attachقوائم لجنتين للمحترم زيزو العجوز 5.rar
 
 
  قوائم لجنتين للمحترم زيزو العجوز 5.rar   تحميل rar مرات التحميل :(229)
الحجم :(21.461) KB


أثارت هذه المشاركة إعجاب: مدحت حافظ،



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




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

أثارت هذه المشاركة إعجاب: مدحت حافظ،



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




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




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




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




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




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




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




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




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




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




اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 2 < 1 2 >




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
برنامج ملاحظى اللجان ابراهيم الحداد
63 14882 mostafa asala
عمل اللجان المدرسيه 1 ناصر سعيد1
4 1846 yehya mahmoud
توزيع اللجان دفعة واحدة بالأكواد Haneen Amr
14 3502 yehya mahmoud
كشوف اللجان للمحترم زيزو ناصر سعيد1
6 2274 تاج الدين
ابو العربي وابو خليل لعمل اللجان بالمصفوفات سوزي كارم
21 3229 تاج الدين

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









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

الساعة الآن 07:57 AM