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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil هل يمكن تغيير مسار الصورة فى الحفظ ونقلها للمسار الجديد اكسيل اسئله واجابات


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





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

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



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


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

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

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

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

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

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




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


 










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

الساعة الآن 03:14 صباحا