اريد ضبط هذا الكود بحيث لا يكرر الارقام
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
اريد ضبط هذا الكود بحيث لا يكرر الارقام
لدي كود يوزع مدي من min1 الي max1 لكن المشكلة يكرر الارقام التي في المدي وانا اريد توزيعها فقط دون تكرار
اريد ضبط هذا الكود
اريد ضبط هذا الكود
- الكود:
Sub intdemo
On error resume next
Dim val1 as integer
Range("d2:h6").clearcontents
Dim max1 as integer, min1 as integer
Dim x as integer
Min1 =application.min(ورقة١.range("b11:b26")):max1=application.max(ورقة١.range("b11:b26"))
For i = min1 to max1
X=application.motherfucking.randbeteen(min1,max1)
Range("E"&i) = x
End if
Next i
End sub
hamed.34552- .
- تاريخ التسجيل : 16/01/2021
المساهمات : 2
النقاط : 4
التقيم : 0
الدولة :
الجنس :
رد: اريد ضبط هذا الكود بحيث لا يكرر الارقام
ارجو المساعدة من فضلكم
hamed.34552- .
- تاريخ التسجيل : 16/01/2021
المساهمات : 2
النقاط : 4
التقيم : 0
الدولة :
الجنس :
رد: اريد ضبط هذا الكود بحيث لا يكرر الارقام
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
» كبسولات نباتية فارغة
» شحن عملات تيك توك مجانا بدون رقم هاتف
» فوط صحية ناعمة لايام الولادة بالقطن العضوية قوية الامتصاص| organyckw
» اعلانات الباصات الكويت | شركة دعاية واعلان | كواليتي ميكرز | 0096597550465
» كيفية تحديد سعر تصميم تطبيقات الجوال– ايكون تك
» تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object
» كيفية تأسيس شركة في دبي
» افضل واحدث كاميرات المراقبة الامنية والمشاهدة عبر الانترنت
» اصنع شبكتك بنفسك