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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


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





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

فقط حدد الــ Min والــ Max في هذا الملف لتحصل على كل الأرقام بينهما بطريقة عشوائية (معادلات فقط دون Vba ) حاول ان تضع ..



21-07-2018 09:18 صباحا
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 

فقط حدد الــ  Min  والــ Max  في هذا الملف لتحصل على كل الأرقام بينهما بطريقة عشوائية (معادلات فقط دون Vba )
حاول ان تضع الــــ  Min  أكبر من الـــ   Max  و انظر ماذا يقول لك الاكسل في الخلية C6

 
 
 
  Randbetween_without repetition with Formula.rar   تحميل rar مرات التحميل :(43)
الحجم :(15.555) KB


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

21-07-2018 11:21 صباحا
مشاهدة مشاركة منفردة [2]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif أرقام عشوائية بين عددين بدون تكرار ( معادلات)

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

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


توقيع :الصقر

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


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

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

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

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



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

لإثراء الموضوع هذا كود يقوم بذلك
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

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

لإثراء الموضوع هذا كود يقوم بذلك
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  رقم غير مكرر

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


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




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


 










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

الساعة الآن 05:31 مساء