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

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
khaled alborene Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الاصدار الأول لشيت المرتبات الاوتوماتيك - حسام خطاب اكسيل اسئله واجابات




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





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

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



11-09-2018 09:50 مساء
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 217
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
يتابعهم : 13
يتابعونه : 8
قوة السمعة : 2244
الاعجاب : 481
 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

الملف مرفق
 




لرؤية الروابط والمرفقات عليك الرد على الموضوع


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





11-09-2018 10:12 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4938
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 12
يتابعهم : 0
يتابعونه : 327
قوة السمعة : 14182
الاعجاب : 5279
 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
المشاركات : 624
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 3014
الاعجاب : 973
 offline 
look/images/icons/i1.gif كيف نختار مجموعة عشوائية من التلاميذ
جزاك الله كل خير وجعله الله فى ميزان حسناتك

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


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


11-09-2018 10:52 مساء
مشاهدة مشاركة منفردة [3]
محمد النيل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 125
الجنس : ذكر
تاريخ الميلاد : 0-4-1978
يتابعهم : 7
يتابعونه : 5
قوة السمعة : 194
الاعجاب : 78
 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
المشاركات : 1229
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 61
قوة السمعة : 7374
الاعجاب : 2087
 offline 
look/images/icons/i1.gif كيف نختار مجموعة عشوائية من التلاميذ
جزاك الله خيرا استاذ سليم 142

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




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

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




15-09-2018 07:31 صباحا
مشاهدة مشاركة منفردة [6]
mahmoud ayad
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 129
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
يتابعهم : 4
يتابعونه : 2
قوة السمعة : 289
الاعجاب : 127
 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
المشاركات : 217
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
يتابعهم : 13
يتابعونه : 8
قوة السمعة : 2244
الاعجاب : 481
 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
الملف الجديد

 




لرؤية الروابط والمرفقات عليك الرد على الموضوع


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




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

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




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





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







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


 







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



الساعة الآن 02:15 صباحا

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