logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
abdelmoniem ismail لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة توزيع المعلمين في جدول الحصص حسب النصاب بشروط اكسيل مشاريع جاهزه



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





21-07-2018 09:18 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
فقط حدد الــ Min والــ Max في هذا الملف لتحصل على كل الأرقام بينهما بطريقة عشوائية (معادلات فقط دون Vba )
حاول ان تضع الــــ Min أكبر من الـــ Max و انظر ماذا يقول لك الاكسل في الخلية C6
 
 
  Randbetween_without repetition with Formula.rar   تحميل rar مرات التحميل :(42)
الحجم :(15.555) KB


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



look/images/icons/i1.gif أرقام عشوائية بين عددين بدون تكرار ( معادلات)
  21-07-2018 11:15 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
جزاك الله خيرا أستاذ سليم عمل رائع
عقبال ما نشوف ليك مشاركات تشرح فيها smile
تقبل وافر احترامى وتقديرى 81




look/images/icons/i1.gif أرقام عشوائية بين عددين بدون تكرار ( معادلات)
  21-07-2018 11:21 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20034
الاعجاب : 12
موقعي : زيارة موقعي

جزاكم الله خيرا استاذ سليم
3


اسمحى لى بوجهة نظر من الافضل البعد عن معادلات الصفيف
حيث انها تعمل على ثقل حجم الملف خاصه مع البيانات الكبيره ففى هذه الحاله VBA أفضل




توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


look/images/icons/i1.gif أرقام عشوائية بين عددين بدون تكرار ( معادلات)
  21-07-2018 11:28 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
المشاركة الأصلية كتبت بواسطة: الصقر

جزاكم الله خيرا استاذ سليم
3


اسمحى لى بوجهة نظر من الافضل البعد عن معادلات الصفيف
حيث انها تعمل على ثقل حجم الملف خاصه مع البيانات الكبيره ففى هذه الحاله VBA أفضل


​استاذي الصقر
الملف لا يستأهل كل هذا
الحجم الطبيعي له 23Kb و 15Kb مضغوطاً ,والبيانات ليست كبيرة





look/images/icons/i1.gif أرقام عشوائية بين عددين بدون تكرار ( معادلات)
  21-07-2018 03:27 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
بارك الله فيك أخي الحبيب سليم وجزاك الله خيراً

لإثراء الموضوع هذا كود يقوم بذلك
CODE
Sub Test_RandomNumbers()
    Dim r           As Range
    Dim a           As Long
    Dim b           As Long

    a = 5: b = 17
    Set r = Sheets(1).Range("A1:A20")

    RandomNumbers a, b, r
End Sub

Sub RandomNumbers(low As Long, high As Long, rng As Range)
    Dim cell        As Range
    Dim rndNumber   As Long

    rng.ClearContents
    For Each cell In rng.Cells
        If WorksheetFunction.CountA(rng) = (high - low + 1) Then Exit For
        Do
            rndNumber = Int((high - low + 1) * Rnd() + low)
        Loop Until rng.Cells.Find(rndNumber, LookIn:=xlValues, lookat:=xlWhole) Is Nothing
        cell.Value = rndNumber
    Next cell
End Sub




look/images/icons/i1.gif أرقام عشوائية بين عددين بدون تكرار ( معادلات)
  21-07-2018 05:53 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
المشاركة الأصلية كتبت بواسطة: YasserKhalil بارك الله فيك أخي الحبيب سليم وجزاك الله خيراً

لإثراء الموضوع هذا كود يقوم بذلك
CODE
Sub Test_RandomNumbers()
    Dim r           As Range
    Dim a           As Long
    Dim b           As Long

    a = 5: b = 17
    Set r = Sheets(1).Range("A1:A20")

    RandomNumbers a, b, r
End Sub

Sub RandomNumbers(low As Long, high As Long, rng As Range)
    Dim cell        As Range
    Dim rndNumber   As Long

    rng.ClearContents
    For Each cell In rng.Cells
        If WorksheetFunction.CountA(rng) = (high - low + 1) Then Exit For
        Do
            rndNumber = Int((high - low + 1) * Rnd() + low)
        Loop Until rng.Cells.Find(rndNumber, LookIn:=xlValues, lookat:=xlWhole) Is Nothing
        cell.Value = rndNumber
    Next cell
End Sub

حبيب القلب ياسر
​تريدها بالكود فليكن
الكود سريع جداً جداً ( يمكن اختباره بواسطة الخلية F3) في 0.8 ثانية 10000 رقم غير مكرر
CODE

Option Explicit
Sub rand_num()
Dim i%
Dim myStart%: myStart = Application.Min([c1], [d1])
Dim myEnd%: myEnd = Application.Max([c1], [d1])
Dim a()
Dim t: t = Timer

Range("b:b").ClearContents
ReDim a(myEnd - myStart)

 With CreateObject("System.Collections.SortedList")
       For i = myStart To myEnd
       .Item(Rnd) = i
       Next i
      
      For i = 0 To .Count - 1
      a(i) = .GetByIndex(i)
      Next
 End With
  Range("b2").Resize(UBound(a) + 1).Value = Application.Transpose(a)
  Erase a
 
  Range("F3") = Round(Timer - t, 3) & "  Secondes"

End Sub




الملف مرفق
 
 
  Random_without_repetition.rar   تحميل rar مرات التحميل :(10)
الحجم :(38.126) KB





look/images/icons/i1.gif أرقام عشوائية بين عددين بدون تكرار ( معادلات)
  21-07-2018 07:37 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
تسلم يا جدو ومنتحرمش من هداياك القيمة .. بارك الله فيك وجزاك الله خيراً




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب توليد أرقام عشوائية بكار للأبد
3 194 YasserKhalil
دالة معرفة لتوليد أرقام عشوائية غير مكررة (فريدة) Random Integers Without Repetition YasserKhalil
15 2752 YasserKhalil
طلب مساعدة فى عمل ارقام عشوائية غير مكررة كامل احمد
16 2704 YasserKhalil
كيف نختار مجموعة عشوائية من التلاميذ salim
11 2627 محمود ابراهيم العبادى
مجموعة من الارقام العشوائية بشرط salim
5 1984 مالك ماريه

الكلمات الدلالية
أرقام ، عشوائية ، عددين ، بدون ، تكرار ، معادلات) ،









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

الساعة الآن 05:54 PM