ما هو الـ OSI Model ؟

شرح كيفية ايقاف دالة الـ Randombetween  من اعادة انتاج ارقام عشوائية 

تثبيت القيمة عن طريق عمل دالة جديدة بالماكرو تحاكي عمل الدالة الاصلية مع الاحتفاظ بالقيمة الاولى.

ملاحظة مهمة : لازم احفظ الملف بصيغة xlsm:  Excel Macro-Enabled Workbook  تاني اختيار فى قائمة الحفظ

الدالة المستخدمة في الشرح

<br /> Public Sub testme()<br /> <br /> Dim l_counter As Long<br /> Dim l_random As Long<br /> <br /> For l_counter = 0 To 10000<br /> l_random = make_random_old(0, 2)<br /> If l_random = 3 Then Debug.Print l_random<br /> Next l_counter<br /> <br /> Debug.Print "END"<br /> <br /> End Sub<br /> <br /> Public Function make_random(down As Long, up As Long) As Long<br /> <br /> make_random = CLng((up - down + 1) * Rnd + down)<br /> <br /> If make_random > up Then make_random = up<br /> If make_random < down Then make_random = down End Function Public Function make_random_old(down As Long, up As Long) As Long make_random_old = CLng((up - down + 1) * Rnd + down) End Function

تعديل المقال