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



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





كيف نختار مجموعة عشوائية من التلاميذ

اذا اردنا ان تختار مجموعة عشوائية من تلاميذ صف ( بعدد محدد) و ادراج اسمائهم في عامود (دون تكرار) و في عامود اخر ما بيقى ..



11-09-2018 09:50 مساء
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
يتابعهم : 13
يتابعونه : 5
قوة السمعة : 1732
الاعجاب : 352
 offline 

اذا اردنا ان تختار مجموعة عشوائية من تلاميذ صف ( بعدد محدد) و ادراج اسمائهم في عامود (دون تكرار)
و في عامود اخر ما بيقى منهم
اكسل يحل لنا هذا الموضوع بواسطة هذا الملف
الكود

Option Explicit
Sub RANDOM_ELEVES()
If ActiveSheet.Name <> "Salim" Then GoTo Exit_Me
ActiveSheet.Unprotect
 With Application
  .ScreenUpdating = False
  .Calculation = xlCalculationManual
 End With
Dim lr%: lr = Cells(Rows.Count, 2).End(3).Row
 Dim x%: x = [h2]
 Dim y%: y = [h3]
 If Not IsNumeric(x) Or x < 1 _
  Or x Mod 1 <> 0 Or x >= y Then
  x = Int(y / 2)
  [h2] = x
  End If
  
Range("d2", Range("d1").End(xlDown)).ClearContents
Range("f2", Range("f1").End(xlDown)).ClearContents
Dim My_Rg: Set My_Rg = Range("b2:b" & lr)
Dim g()
ReDim g(1 To lr)
Dim i
Dim k%: k = 1
Do
Randomize
 i = Int((lr - 1 + 1) * Rnd + 1)
   If g(i) = False Then
   g(i) = i
   k = k + 1
   Cells(k, 4) = My_Rg.Cells(i)
   End If
   Loop Until k = [h2] + 1
   Range("d2:d" & k).SortSpecial Header:=xlNo

k = 2
For i = LBound(g) To UBound(g)

  If g(i) = vbNullString Then
 
    Cells(k, 6) = My_Rg.Cells(i)
    k = k + 1
  End If
    Next
  Erase g
 ActiveSheet.Protect
Exit_Me:
 With Application
  .ScreenUpdating = True
  .Calculation = xlCalculationAutomatic
 End With
End Sub

الملف مرفق
 
 
 
  Choose_Studiantes.rar   تحميل rar مرات التحميل :(13)
الحجم :(26.311) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، ali mohamed ali، محمد النيل، Eslam Abdullah، السعيد الجزائري، أحمد يوسف، mahmoud ayad، مهند محسن،





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

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




11-09-2018 10:43 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 429
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 20
قوة السمعة : 2357
الاعجاب : 693
 Online 
look/images/icons/i1.gif كيف نختار مجموعة عشوائية من التلاميذ
جزاك الله كل خير وجعله الله فى ميزان حسناتك

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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


11-09-2018 10:52 مساء
مشاهدة مشاركة منفردة [3]
محمد النيل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 86
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 146
الاعجاب : 54
 offline 
look/images/icons/i1.gif كيف نختار مجموعة عشوائية من التلاميذ
ماشاء الله ... جزاك الله خير 81

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




11-09-2018 11:25 مساء
مشاهدة مشاركة منفردة [4]
Eslam Abdullah
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1083
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 50
قوة السمعة : 6416
الاعجاب : 1822
 offline 
look/images/icons/i1.gif كيف نختار مجموعة عشوائية من التلاميذ
جزاك الله خيرا استاذ سليم 142

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




14-09-2018 08:15 مساء
مشاهدة مشاركة منفردة [5]
أحمد يوسف
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 226
الجنس : ذكر
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 275
الاعجاب : 109
 offline 
look/images/icons/i1.gif كيف نختار مجموعة عشوائية من التلاميذ
أحسنت استاذ سليم همة مشكورة
بارك الله فيك

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




15-09-2018 07:31 صباحا
مشاهدة مشاركة منفردة [6]
mahmoud ayad
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 104
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
يتابعهم : 3
يتابعونه : 2
قوة السمعة : 243
الاعجاب : 104
 offline 
look/images/icons/i1.gif كيف نختار مجموعة عشوائية من التلاميذ
سلمت يداك جزاك الله خيرا ... ولكن ع ما اعتقد الكود مش بيعطي نتائج مظبوطه عند اختيار عدد 20 او رقم اقل من 16 يعطي بالعود الاولي 19 والثاني 17

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




15-09-2018 08:35 صباحا
مشاهدة مشاركة منفردة [7]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
يتابعهم : 13
يتابعونه : 5
قوة السمعة : 1732
الاعجاب : 352
 offline 
look/images/icons/i1.gif كيف نختار مجموعة عشوائية من التلاميذ
المشاركة الأصلية كتبت بواسطة: mahmoud ayad »
سلمت يداك جزاك الله خيرا ... ولكن ع ما اعتقد الكود مش بيعطي نتائج مظبوطه عند اختيار عدد 20 او رقم اقل من 16 يعطي بالعود الاولي 19 والثاني 17
شكراً لك على هذه الملاحظة  اخي محمود
السبب في ذلك ان الارقام عشوائية و يجوز ان تحصل غلى اخر رقم (في مثلنا هنا 37) لذلك يقوم اكسل بنقل الخلية في الصف 
37 +1 العامود (الاول)  اي  ( my_rg.cells(37   الى الجدول (و كون هذه الخلية فارغة لا يظهر شيء) لان الجدول يبدأ من رقم الخلية رقم 2     A2 
لمعالجة هذه المشكلة يتم اضافة سطر صغير الى الكود :
​'===========================
  If i = lr Then i = lr - 1    وبذلك لا نسمح للرقم   ( Lr   (37  بالدخول الى الترقيم
'===========================
ليصبح الكود بهذا الشكل


Option Explicit
Sub RANDOM_ELEVES()
If ActiveSheet.Name <> "Salim" Then GoTo Exit_Me
ActiveSheet.Unprotect
 With Application
  .ScreenUpdating = False
  .Calculation = xlCalculationManual
 End With
Dim lr%: lr = Cells(Rows.Count, 2).End(3).Row
 Dim x%: x = [h2]
 Dim y%: y = [h3]
 If Not IsNumeric(x) Or x < 1 _
  Or x Mod 1 <> 0 Or x >= y Then
  x = Int(y / 2)
  [h2] = x
  End If
  
Range("d2", Range("d1").End(xlDown)).ClearContents
Range("f2", Range("f1").End(xlDown)).ClearContents
Dim My_Rg: Set My_Rg = Range("b2:b" & lr)
Dim g()
ReDim g(1 To lr)
Dim i
Dim k%: k = 1
Do
Randomize
 i = Int((lr - 1 + 1) * Rnd + 1)
'===========================
  If i = lr Then i = lr - 1 '
'===========================
   If g(i) = False Then
   g(i) = i
   k = k + 1
   Cells(k, 4) = My_Rg.Cells(i)
   End If
   Loop Until k = [h2] + 1
   Range("d2:d" & k).SortSpecial Header:=xlNo

k = 2
For i = LBound(g) To UBound(g)

  If g(i) = vbNullString Then
 
    Cells(k, 6) = My_Rg.Cells(i)
    k = k + 1
  End If
    Next
  Erase g
 ActiveSheet.Protect
Exit_Me:
 With Application
  .ScreenUpdating = True
  .Calculation = xlCalculationAutomatic
 End With
End Sub
الملف الجديد

 
 
 
  Choose_Studiantes_New.rar   تحميل rar مرات التحميل :(2)
الحجم :(25.692) KB


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




15-09-2018 09:10 صباحا
مشاهدة مشاركة منفردة [8]
mahmoud ayad
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 104
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
يتابعهم : 3
يتابعونه : 2
قوة السمعة : 243
الاعجاب : 104
 offline 
look/images/icons/i1.gif كيف نختار مجموعة عشوائية من التلاميذ
اشكرك استاذ سليم مجهود رائع واشكر ردك الكريم والكود الرائع سلمت يداك اخي وجزاك الله من فضله
 

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




15-09-2018 09:56 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4360
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12572
الاعجاب : 4590
 offline 
look/images/icons/i1.gif كيف نختار مجموعة عشوائية من التلاميذ
جزاك الله خيراً أخي الحبيب سليم ومشكور على الملف الجديد .. 
تقبل وافر تقديري واحترامي





15-09-2018 08:48 مساء
مشاهدة مشاركة منفردة [10]
مهند محسن
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 99
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 203
الاعجاب : 84
 offline 
look/images/icons/i1.gif كيف نختار مجموعة عشوائية من التلاميذ
أحسنت استاذى الكريم







الكلمات الدلالية
نختار ، مجموعة ، عشوائية ، التلاميذ ،


 







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



الساعة الآن 10:01 مساء

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