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

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

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

المشاركة الأصلية كتبت بواسطة: الصقر

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

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

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

المشاركة الأصلية كتبت بواسطة: 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

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