اختيار عشوائى اسبوعى

[ابو يحيى1]

اساتذتنا الافاضل

هل من طريقة يمكن بها اختيار رقمين عشوائيين مختلفين من ارقام محددة كل يوم خلال اسبوع مع عدم تكرارهما ؟؟

كما بالمثال المرفق وشكرا

Random.rar

[سليم حاصبيا]

جرب هذا المرفق

تم اضافة رقمين الى الجدول حتى يصبح 14 رقم موزعة على رقمين كل يوم

الكود

Option Explicit

Sub Rand()
    Dim g(14), c, r, arr(), t$
    ReDim arr(1 To 2)
    Do
      c = Application.RandBetween(1, 14)
        If Not g(c) Then
            r = r + 1
            arr(r) = c
            t = "=INDEX($F$4:$F$17," & arr(r) & ")"
            Cells(r + 1, "a") = Evaluate(t)
            g(c) = True
        End If
    Loop Until r = 2
End Sub

الملف

 

Random_salim.rar

[ابو يحيى1]

شكراً أستاذنا المبدع دائماً سليم حاصبيا

نتيجة ممتازة جزاك الله خيراً .

وهل من طريقة اخرى من خلال المعادلات ان امكن .

[بن علية حاجي]

السلام عليكم

محاولة بالمعادلات في الملف المرفق...

بن علية حاجي

Random.rar

[ابو يحيى1]

فكرة جميلة جدا استاذنا بن علية حاجى

ولكن هل من الممكن اضافة بعض الصعوبة ... بجعل هذه الارقام تتوزع على مدار 6 ايام بدون تكرارها بمعدل رقمين كل يوم

ولك كل الشكر استاذى