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



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





اسماء طلاب الدور التاني

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



01-12-2017 02:17 صباحا
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 457
الاعجاب : 174
 offline 

احبابنا في الله
السلام عليكم ورحمة الله
==

ادعو الله ان تكونوا بخير يارب
هذا ملف به اسماء الطلاب وبه مستوياتهم
المستوى الذي نطلق عليه ( دون المستوى )
هو مايهمنا
المطلوب
استخراج اسماء الطلبه الذين عندهم تقدير
( دون المستوى ) .. وكذا رقم جلوسهم

وفي الملف المزيد من الايضاحات
من فضلكم
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  مناداة الدور التاني.rar   تحميل rar مرات التحميل :(17)
الحجم :(66.914) KB







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





01-12-2017 01:18 مساء
مشاهدة مشاركة منفردة [2]
hben
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 35
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 12-2-1961
يتابعهم : 0
يتابعونه : 7
قوة السمعة : 187
الاعجاب : 53
 offline 
look/images/icons/i1.gif اسماء طلاب الدور التاني
السلام عليكم ورحمة الله
أخي العزيز أبو أحمد، تعرف أني دائما ألجأ إلى المعادلات، وقد وضعت في الملف معادلات تفي بالغرض، ربما تجعل حجم الملف كبيرا وعمله بطيئا (حسب البيانات) لأن في عمود "رقم الجلوس" لكل قائمة معادلات صفيف... قد استعنت أيضا بترقيم عمود "تقديرات" لكل مادة في كل من شيت "رصد الترم الثاني" وشيت "مناداة الثاني" واستعنت أيضا بالتسمية Rng لئلا تكون المعادلات طويلة... أرجو أني وُفقت في الأمر في انتظار من يفيدنا بكود VBA لتسهيل عمل الملف..
أخوك بن علية

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  مناداة الدور التاني.rar   تحميل rar مرات التحميل :(7)
الحجم :(203.83) KB


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




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

وفي انتظار من يفيدنا بكود VBA لتسهيل عمل الملف..





01-12-2017 09:35 مساء
مشاهدة مشاركة منفردة [4]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 110
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 12
قوة السمعة : 804
الاعجاب : 209
 offline 
look/images/icons/i1.gif اسماء طلاب الدور التاني
السلام عليكم ورحمة الله
اخى الكريم اليك الملف بعد اضافة ورقة جديدة تحت مسمى مناداة
وتم استخدام كشف واحد لجميع المواد
ما عليك الا ان تختار من الخلية "C5" اسم المادة وتضغط على زر عرض
 
 
 
  مناداة الدور التاني.rar   تحميل rar مرات التحميل :(11)
الحجم :(86.437) KB


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




01-12-2017 11:02 مساء
مشاهدة مشاركة منفردة [5]
hben
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 35
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 12-2-1961
يتابعهم : 0
يتابعونه : 7
قوة السمعة : 187
الاعجاب : 53
 offline 
look/images/icons/i1.gif اسماء طلاب الدور التاني
السلام عليكم ورحمة الله
خلل طفيف في ملف أخي الكريم  زيزو العجوز فيما يخص مادة "الدراسات"، حيث تم وضع النطاق B7:AK لعمود "تقديرات" هذه المادة في الكود والصحيح هو AK7:AK... والله أعلم
بن علية حاجي
 

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




01-12-2017 11:30 مساء
مشاهدة مشاركة منفردة [6]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 110
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 12
قوة السمعة : 804
الاعجاب : 209
 offline 
look/images/icons/i1.gif اسماء طلاب الدور التاني
السلام عليكم ورحمة الله
فعلا كلامك صحيح اخى الكريم بن علية
اشكرك وبارك الله فيك

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




01-12-2017 11:42 مساء
مشاهدة مشاركة منفردة [7]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 375
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 40
يتابعهم : 7
يتابعونه : 247
قوة السمعة : 2546
الاعجاب : 650
 offline 
look/images/icons/i1.gif اسماء طلاب الدور التاني
بارك الله فيك أستاذى الغالى / زيزو العجوز
دائما لديك حلول سهلة وسريعة
وإن كنا نتمنى كما عتهدنا من أستاذنا المبدع / زيزو ـ وضع شرح مبسط والفكرة العامة للكود لتتم الفائدة للجميع
جزاك الله خيرا


تم تحرير المشاركة بواسطة :محمد الدسوقى
بتاريخ:02-12-2017 08:51 صباحا


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




02-12-2017 01:18 صباحا
مشاهدة مشاركة منفردة [8]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 457
الاعجاب : 174
 offline 
look/images/icons/i1.gif اسماء طلاب الدور التاني
اللهم اني اسالك باسمك الذي اذا نوديت به اجبت
ان تمد اخي في الله المحترم زيزو العجوز واخينا في الله الاستاذ بن عليه
الصحه والعافيه وراحة البال
.. آمين
==
'هذا الكود خاص بالمحترم زيزو العجوز

'حفظه الله ورعاه
'الهدف من الكود هو استخراج طلاب الدور التاني
'في كل المواد
'تم في 2/12/2017


=========================
Sub كشوف_مناداه_ترم_تان()
'هذا الكود خاص بالمحترم زيزو العجوز
'حفظه الله ورعاه
'الهدف من الكود هو استخراج طلاب الدور التاني
'في كل المواد
'تم في 2/12/2017
'***********
Dim ws As Worksheet, sh As Worksheet
Dim Rng As Range, C As Range
Dim Subj As String, LR As Long, Y As Long, Z As Long, p As Long

Set ws = Sheets("رصد الترم الثانى")
Set sh = Sheets(" مناداة")

LR = ws.Range("C" & Rows.Count).End(xlUp).Row
sh.Range("B6:C1000").ClearContents
Subj = sh.Range("C5").Value
If Subj = "" Then Exit Sub
If Subj = "اللغه العربيه" Then
Set Rng = ws.Range("O7:O" & LR)
Y = -13
Z = -12
ElseIf Subj = "الرياضيات" Then
Set Rng = ws.Range("Z7:Z" & LR)
Y = -24
Z = -23
ElseIf Subj = "الدراسات" Then
Set Rng = ws.Range("AK7:AK" & LR)
Y = -35
Z = -34
ElseIf Subj = "اللغه الاجنبية" Then
Set Rng = ws.Range("AV7:AV" & LR)
Y = -46
Z = -45
ElseIf Subj = "العلوم" Then
Set Rng = ws.Range("BI7:BI" & LR)
Y = -59
Z = -58
ElseIf Subj = "نشاط إختيارى1" Then
Set Rng = ws.Range("BQ7:BQ" & LR)
Y = -67
Z = -66
ElseIf Subj = "نشاط إختيارى2" Then
Set Rng = ws.Range("BX7:BX" & LR)
Y = -74
Z = -73
ElseIf Subj = "فنى" Then
Set Rng = ws.Range("CE7:CE" & LR)
Y = -81
Z = -80
ElseIf Subj = "رياضى" Then
Set Rng = ws.Range("CL7:CL" & LR)
Y = -88
Z = -87
ElseIf Subj = "دين" Then
Set Rng = ws.Range("DF7:DF" & LR)
Y = -108
Z = -107
ElseIf Subj = "مستوى E" Then
Set Rng = ws.Range("DQ7:DQ" & LR)
Y = -119
Z = -118
ElseIf Subj = "مستوى F" Then
Set Rng = ws.Range("EB7:EB" & LR)
Y = -130
Z = -129
End If
For Each C In Rng
If C.Value = "دون المستوى" Then
p = p + 1
sh.Cells(p + 5, 2) = C.Offset(0, Y)
sh.Cells(p + 5, 3) = C.Offset(0, Z)
End If

Next
End Sub


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




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





02-12-2017 12:57 مساء
مشاهدة مشاركة منفردة [10]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 110
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 12
قوة السمعة : 804
الاعجاب : 209
 offline 
look/images/icons/i1.gif اسماء طلاب الدور التاني
السلام عليكم ورحمة الله
الان يمكنك عرض قائمتين لمادتين مختلفتين
اليك الملف

 
 
 
  مناداة الدور التاني.rar   تحميل rar مرات التحميل :(6)
الحجم :(87.822) KB



تم تحرير المشاركة بواسطة :ابراهيم الحداد
بتاريخ:02-12-2017 12:59 مساء


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




02-12-2017 01:00 مساء
مشاهدة مشاركة منفردة [11]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 110
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 12
قوة السمعة : 804
الاعجاب : 209
 offline 
look/images/icons/i1.gif اسماء طلاب الدور التاني
السلام عليكم ورحمة الله
بالنسبة للاخ الكريم محمد الدسوقى
اليك شرح الكود

Sub CallingStuds()
Dim ws As Worksheet, sh As Worksheet ' الاعلان عن المتغيرات لتحديد الشيتات التى سوف يتم العمل عليها
Dim Rng As Range, C As Range ' الاعلان عن النطاقات التى سيتم العمل عليها "دون المستوى"
Dim Subj As String, LR As Long, Y As Long, Z As Long, p As Long ' الاعلان عن معيار استدعاء البيانات "دون المستوى"
Set ws = Sheets("رصد الترم الثانى")
 ' التعريف بالشيت الاول                       '                       
LR = ws.Range("C" & Rows.Count).End(xlUp).Row
 ' التعريف بطول النطاق بالشيت الاول
Set sh = Sheets(" مناداة")
  '  التعريف بالشيت الثانى الخاص بالكشوفات
sh.Range("B6:C1000").ClearContents
 '  مسح القوائم استعدادا لاستدعاء البيانات الجديدة
Subj = sh.Range("C5").Value
 '  التعريف بالخلية التى تحتوى على معيار الاستدعاء
If Subj = "" Then Exit Sub
If Subj = "اللغه العربيه" Then
 '   عند تحقق الشرط حيث يم تبديل حدود النطاق حيث لكل مادة النطاق الخاص بها
Set Rng = ws.Range("O7:O" & LR)
Y = -13
  ' بعد عمود رقم الجلوس عن النطاق
Z = -12
   '  بعد عمود الاسم عن النطاق
   '  وهكذا مع باقى النطاقات
ElseIf Subj = "الرياضيات" Then
Set Rng = ws.Range("Z7:Z" & LR)
Y = -24
Z = -23
ElseIf Subj = "الدراسات" Then
Set Rng = ws.Range("AK7:AK" & LR)
Y = -35
Z = -34
ElseIf Subj = "اللغه الاجنبية" Then
Set Rng = ws.Range("AV7:AV" & LR)
Y = -46
Z = -45
ElseIf Subj = "العلوم" Then
Set Rng = ws.Range("BI7:BI" & LR)
Y = -59
Z = -58
ElseIf Subj = "نشاط إختيارى1" Then
Set Rng = ws.Range("BQ7:BQ" & LR)
Y = -67
Z = -66
ElseIf Subj = "نشاط إختيارى2" Then
Set Rng = ws.Range("BX7:BX" & LR)
Y = -74
Z = -73
ElseIf Subj = "فنى" Then
Set Rng = ws.Range("CE7:CE" & LR)
Y = -81
Z = -80
ElseIf Subj = "رياضى" Then
Set Rng = ws.Range("CL7:CL" & LR)
Y = -88
Z = -87
ElseIf Subj = "دين" Then
Set Rng = ws.Range("DF7:DF" & LR)
Y = -108
Z = -107
ElseIf Subj = "مستوى E" Then
Set Rng = ws.Range("DQ7:DQ" & LR)
Y = -119
Z = -118
ElseIf Subj = "مستوى F" Then
Set Rng = ws.Range("EB7:EB" & LR)
Y = -130
Z = -129
End If
For Each C In Rng
 ' حلقة تكرارية داخل النطاق
If C.Value = "دون المستوى" Then
   '   عند تحقق الشرط
p = p + 1
   ' عدد الصفوف التى ينطبق عليها الشرط
sh.Cells(p + 5, 2) = C.Offset(0, Y)
 ' استدعاء بيانات رقم الجلوس
sh.Cells(p + 5, 3) = C.Offset(0, Z)
 ' استدعاء بيانات الاسم
End If
Next
Call CallingStuds2
  ' استدعاء الكود الثانى وهو شبيه الاول ويختلف فقط فى مكان وضع البيانات
End Sub


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




02-12-2017 01:46 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4359
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12563
الاعجاب : 4587
 offline 
look/images/icons/i1.gif اسماء طلاب الدور التاني
جزاك الله خيراً أخي العزيز زيزو العجوز
وفي انتظار تقديم دروس مستقلة ، فنحن نريد الاستفادة مما لديك من علم 
تقبل وافر تقديري واحترامي

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






الكلمات الدلالية
اسماء ، طلاب ، الدور ، التاني ،


 







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



الساعة الآن 02:08 مساء

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