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



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





توزيع لجان الامتحانات

السلام عليكم ورحمة الله وبركاته الرجاء المساعدة في حل السؤال الموجود في الملف المرفق ولكم فائق الشكر والتقدير والاحترا ..



01-01-2018 06:34 صباحا
Khairi
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 1
يتابعونه : 2
قوة السمعة : 51
الاعجاب : 16
 offline 





السلام عليكم ورحمة الله وبركاته 
الرجاء المساعدة في حل السؤال الموجود في الملف المرفق 
ولكم فائق الشكر والتقدير والاحترام
 
 
  الامتحانات.rar   تحميل rar مرات التحميل :(23)
الحجم :(228.157) KB







01-01-2018 01:01 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3572
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 282
قوة السمعة : 9890
الاعجاب : 3398
 offline 
look/images/icons/i1.gif توزيع لجان الامتحانات
وعليكم السلام أخي الكريم
اطلعت على الملف وحاولت فهم المطلوب ولكني لم أوفق في ذلك .. قم بوضع بعض النتائج المتوقعة مع شرح منطق عملية التوزيع لكي يسهل على الأخوة الأعضاء تقديم المساعدة المطلوبة إن شاء الله





01-01-2018 01:25 مساء
مشاهدة مشاركة منفردة [2]
زيزو العجوز
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 109
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 795
الاعجاب : 206
 offline 
look/images/icons/i1.gif توزيع لجان الامتحانات
السلام عليكم ورحمة الله
استخدم هذا الكود ربما يفيدك

Sub Destirb()
Dim ws As Worksheet, Sh As Worksheet
Dim C As Range, Cel As Range
Dim p As Integer, q As Integer
Set ws = Sheets("12")
Set Sh = Sheets("توزيع اللجان")
ws.Range("A6:G20").ClearContents
For Each C In Sh.Range("D5:D202")
If ws.Range("E2") = C.Value Then
p = p + 1
ws.Cells(p + 5, 1) = p
ws.Cells(p + 5, 2) = C.Offset(0, -2)
ws.Cells(p + 5, 3) = C.Offset(0, -1)
End If
Next
For Each Cel In Sh.Range("P5:P96,AB5:AB23")
If ws.Range("E2") = Cel.Value Then
q = q + 1
ws.Cells(q + 5, 5) = q
ws.Cells(q + 5, 6) = Cel.Offset(0, -2)
ws.Cells(q + 5, 7) = Cel.Offset(0, -1)
End If
Next

End Sub

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




01-01-2018 02:29 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3572
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 282
قوة السمعة : 9890
الاعجاب : 3398
 offline 
look/images/icons/i1.gif توزيع لجان الامتحانات
بارك الله فيك أخي الغالي زيزو العجوز وجزاك الله خيراً
لم أفهم المطلوب إلا بعد الإطلاع على الكود الذي قدمته .. 
تقبل وافر تقديري واحترامي

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




01-01-2018 02:34 مساء
مشاهدة مشاركة منفردة [4]
زيزو العجوز
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 109
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 795
الاعجاب : 206
 offline 
look/images/icons/i1.gif توزيع لجان الامتحانات
السلام عليكم ورحمة الله
بارك الله فيك اخى الحبيب ياسر
ردك وسام على صدرى

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




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

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




01-01-2018 03:41 مساء
مشاهدة مشاركة منفردة [6]
Khairi
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 1
يتابعونه : 2
قوة السمعة : 51
الاعجاب : 16
 offline 
look/images/icons/i1.gif توزيع لجان الامتحانات
ارجو أن اكون قد وصلت المطلوب بشكل جيد في الملف المرفق 





01-01-2018 03:44 مساء
مشاهدة مشاركة منفردة [7]
Khairi
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 1
يتابعونه : 2
قوة السمعة : 51
الاعجاب : 16
 offline 
look/images/icons/i1.gif توزيع لجان الامتحانات
 
 
  التعديل.rar   تحميل rar مرات التحميل :(21)
الحجم :(228.752) KB
  التعديل.rar   تحميل rar مرات التحميل :(6)
الحجم :(228.752) KB


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




01-01-2018 04:45 مساء
مشاهدة مشاركة منفردة [8]
Khairi
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 1
يتابعونه : 2
قوة السمعة : 51
الاعجاب : 16
 offline 
look/images/icons/i1.gif توزيع لجان الامتحانات
بارك الله فيك اخي زيزو
والف شكر وتقدير لك على هذه المجهودات الجبارة 
 





01-01-2018 07:51 مساء
مشاهدة مشاركة منفردة [9]
زيزو العجوز
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 109
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 795
الاعجاب : 206
 offline 
look/images/icons/i1.gif توزيع لجان الامتحانات
السلام عليكم ورحمة الله
اخى العزيز ناصر
اتمنى أن يكون هذا هو طلبك

 
 
 
  قوائم لجنتين.rar   تحميل rar مرات التحميل :(9)
الحجم :(13.791) KB


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




01-01-2018 09:32 مساء
مشاهدة مشاركة منفردة [10]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif توزيع لجان الامتحانات

Sub TwoLists()
'هذا الكود للاستاذ الخلوق زيزو العجوز
'الهدف من الكود هو استدعاء بيانات اللجان
'بميزه كل لجنتين في صفحه واحده
'تم بفضل الله هذا الكود في 1/1/20018
'==================

Dim Sh As Worksheet, Main As Worksheet
Dim C As Range
Dim x, y, p, q
Application.ScreenUpdating = False

Set Main = Sheets("بيانات الطلبة")
Set Sh = Sheets("اللجان")

'خليتي رقم اللجنتين
x = Sh.Range("E3").Value
y = Sh.Range("M3").Value

'مسح نطاق خلايا اللجان
Sh.Range("B10:N47").ClearContents

'عمودرقم اللجنه في شيت المصدر
For Each C In Main.Range("R7:R500")
If C.Value = x Then
p = p + 1

'=====
'رقم ال9 هو رقم صف البدايه
'بدايه الاستدعاء ستكون في الصف الذي يليه
'الارقام السالبه عدد العمده التي على يمين عمود اللجان

Sh.Cells(p + 9, 2) = p
Sh.Cells(p + 9, 3) = C.Offset(0, -16)
Sh.Cells(p + 9, 4) = C.Offset(0, -13)
Sh.Cells(p + 9, 5) = C.Offset(0, -3)
Sh.Cells(p + 9, 6) = C.Offset(0, -2)


ElseIf C.Value = y Then
q = q + 1
Sh.Cells(q + 9, 10) = q
Sh.Cells(q + 9, 11) = C.Offset(0, -16)
Sh.Cells(q + 9, 12) = C.Offset(0, -13)
Sh.Cells(q + 9, 13) = C.Offset(0, -3)
Sh.Cells(q + 9, 14) = C.Offset(0, -2)
'=====

End If
Next
Application.ScreenUpdating = True
End Sub


الله يسعد ايامك استاذ زيزو العجوز
التسطير الاوتوماتيك واخفاء الصفوف الزياده
حفظك الله ورعاك


تم تحرير المشاركة بواسطة :ناصر سعيد1
بتاريخ:02-01-2018 12:17 صباحا


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




01-01-2018 10:07 مساء
مشاهدة مشاركة منفردة [11]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif توزيع لجان الامتحانات
من فضلك التسطير الاوتوماتيكي واخفاء الصفوف الزائده لاننا هانعمل تذييل رئيس شؤون الطلبه .. المدير


تم تحرير المشاركة بواسطة :ناصر سعيد1
بتاريخ:02-01-2018 12:19 صباحا






01-01-2018 10:11 مساء
مشاهدة مشاركة منفردة [12]
Khairi
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 1
يتابعونه : 2
قوة السمعة : 51
الاعجاب : 16
 offline 
look/images/icons/i1.gif توزيع لجان الامتحانات
اخي العزيز زيزو ياريت يكون توزيع اللجان حسب زر الزيادة والنقصان وليس قائمة منسدلة 

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
شيت توزيع ومراقبة الاقساط - حسام خطاب الصقر
7 983 accahmed7777777
توزيع اللجان دفعة واحدة بالأكواد Haneen Amr
13 453 Haneen Amr
مساعدة في توزيع 36 شهر sharawee707
5 264 YasserKhalil
توزيع المخزون بشروط Hanyaly755
7 274 الصقر
توزيع الطلبة على القاعات الامتحانية aliraqi
6 341 YasserKhalil

الكلمات الدلالية
لجان ، الامتحانات ، توزيع ،


 







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



الساعة الآن 11:54 صباحا

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