الرقم السري لكنترولات المدارس

[خالد الشاعر]

اولاً اشكر كل من شارك فى هذا الحل الممتاز

ولكن فكرة الارقام العشوئية للارقام السرية الخاصة بالامتحانات

الفكرة هى موضحة فى الملف المرفق

1 - الرقم السرى له بداية انا بحددها واخرة مرتبط بعدد التلميذ

2- بداية السرى لا يجب ان تكون ثابتة عند خلية معينة مرتبطة بعدد الاولاد

3- الرقم السرية تكون مجموعات مثال " خمس ارقام متتالية فى المجموعة الواحدة "

وجزاكم الله خيراً

الرقم السرى.rar

[خالد الشاعر]

اولاً اشكر كل من شارك فى هذا الحل الممتاز

ولكن فكرة الارقام العشوئية للارقام السرية الخاصة بالامتحانات

الفكرة هى موضحة فى الملف المرفق

1 - الرقم السرى له بداية انا بحددها واخرة مرتبط بعدد التلميذ

2- بداية السرى لا يجب ان تكون ثابتة عند خلية معينة مرتبطة بعدد الاولاد

3- الرقم السرية تكون مجموعات مثال " كل خمس ارقام فى المجموعة الواحدة "

وجزاكم الله خيراً

[خالد الشاعر]

حاولات تقسيم الارقام على مجموعات

فاضل توزيع الارقام بين هذه المجموعات عشوائي

لكم جزيل الشكر

الرقم السرى.rar

[خالد الشاعر]

وجدت هذا العمل بقسم الاكسس

وهو يفى بالمطلوب

هل ممكن تنفيذه فى اكسل

وجزاكم الله كل خير

الحل النهائى للكتشنة1.rar

[عبدالله باقشير]

السلام عليكم

شاهد المحاولة هذه

استخدمنا هذا الكود

Option Explicit


Sub kh_Rnd_Num()

Const ch As String * 1 = "/"

Dim MyAr$, MySr$, MyNum$

Dim Sr, NRnd, SP

Dim R%, RR%, Con%, G%, St%, i%, ii%

'========================================

Range(Range("A3:D3"), Range("A3:D3").End(xlDown)).ClearContents

'========================================

St = [G2]              '  فرق الارقام

G = [G4]          '  بداية رقم الجلوس

Sr = [G6]       '  بداية الرقم السري

Con = [G8]            '  اجمالي الطلبة

RR = 3       '  اول صف لوضع البيانات

'========================================

For R = 1 To Con Step St + 1

    Cells(RR + i, "A") = G

    Cells(RR + i, "b") = G + St

    MySr = MySr & " " & Sr & ch & Val(Sr + St)

    i = i + 1

    G = G + St + 1

    Sr = Sr + St + 1

Next

MySr = Trim(MySr)

'========================================

For R = 1 To i

1   NRnd = Int((Rnd * i) + 1)

    MyNum = NRnd & ch

    If InStr(ch & MyAr, ch & MyNum) Then GoTo 1

    MyAr = MyAr & MyNum

Next

'========================================

For R = 0 To i - 1

    ii = Split(MyAr, ch)(R) - 1

    SP = Split(MySr)(ii)

    Cells(RR + R, "C") = Split(SP, ch)(0)

    Cells(RR + R, "D") = Split(SP, ch)(1)

Next

End Sub

الرقم السري خبور.rar

[خالد الشاعر]

استاذى خبور خير

دائماً تبهرنا بهذه الحلول العظيمة

تسلم ايدك و جزاك الله خيراً

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

وذلك يعطى فرق فى الارقام السرية

مثال لو بداية ارقام الجلوس 201 و عدد الطلبة 10 يجب ان يكون نهاية ارقام الجلوس 210

وجزاكم الله خيراً

[عبدالله باقشير]

السلام عليكم

ما رايك بهذا للجدولين معا

Option Explicit




Sub kh_Rnd_Num()

Dim Sry, SpSry, NRnd

Dim MyAr$, MySr$, MyNum$

Dim Con%, G%, St%, iRow%

Dim r%, i%, ii%, c%, co%, cc%, o%

Const ch As String * 1 = "/"

'========================================

Range(Range("A3:D3"), Range("A3:D3").End(xlDown)).ClearContents

Range(Range("I3:J3"), Range("I3:J3").End(xlDown)).ClearContents

'========================================

St = [G2]              '  فرق الارقام

G = [G4]          '  بداية رقم الجلوس

Sry = [G6]       '  بداية الرقم السري

Con = [G8]            '  اجمالي الطلبة

iRow = 3       '  اول صف لوضع البيانات

'========================================

For r = 1 To Con Step St + 1

    MySr = MySr & " " & Sry

    i = i + 1

    Sry = Sry + St + 1

Next

'========================================

For r = 1 To i

1   NRnd = Int((Rnd * i) + 1)

    MyNum = NRnd & ch

    If InStr(ch & MyAr, ch & MyNum) Then GoTo 1

    MyAr = MyAr & MyNum

Next

'========================================


For r = 0 To i - 1

    o = 0

    ii = Split(MyAr, ch)(r) - 1

    SpSry = Split(Trim(MySr))(ii)

    Cells(iRow + r, "A").Value = G + co

    Cells(iRow + r, "C").Value = SpSry

    For c = 0 To St

        cc = (r * (St + 1)) + iRow

        If co = Con Then Exit For

        Cells(cc, "I").Offset(c, 0).Value = G + co

        Cells(cc, "J").Offset(c, 0).Value = SpSry + c

        co = co + 1: o = o + 1

    Next

    Cells(iRow + r, "B").Value = G + co - 1

    Cells(iRow + r, "D").Value = SpSry + o - 1

Next

'========================================

End Sub

الرقم السري1 خبور.rar

[saffaa]

الاستاذ المبجل خبور خير

احمد الله اني دخلت مرة اخرى هذا المنتدى الطيب

ووجدت مشاركاتك

وارجو ان تدلني على روابط كل مواضيعك الخاصه بالتعليم وشكرا ربنا يخليك لينا

او ماهي مواضيعك الجديده الخاصة بالتعليم

لانني احب مواضيعك كثيرا جدا

[خالد الشاعر]

استاذى خبور خير

اكثر من رائع ممتاز ممتاز ممتاز

تسلم يدك جعلها الله فى ميزان حسناتك

اطمع فى شرح بسيط للكود لو امكن

جزاك الله كل خير

[عبدالله المجرب]

ماشاء الله

حلول واكواد ممتازة من استاذ خبير ولا تكفي الكلمات لايفائه حقه

بارك الله فيك استاذ عبدالله

[saffaa]

الاستاذ خبور

لو عملنا فرزفي العمودين I & J

بدلالة العمود J

لوجدنا فجوه في تسلسل الارقام السريه

[خالد الشاعر]

استاذى خبور خير

عند اختيار فرق الارقام 7

يكون هناك فرق فى التسلسل

فهل ممكن معالجة هذه المشكلة

ولكم جزيل الشكر والاحترام

[خالد الشاعر]

للرفع