اريد ضبط هذا الكود بحيث لا يكرر الارقام
منتدى مصر التقني :: قسم لغات البرمجة 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
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 6:58 am من طرف mona mohamed
» مظلات وسواتر الرياض
الثلاثاء مايو 07, 2024 7:47 pm من طرف moslema_r
» شركة تنظيف فلل بالرياض
الثلاثاء مايو 07, 2024 6:55 pm من طرف moslema_r
» شركة تنظيف كنب بالرياض
الأحد مايو 05, 2024 6:56 pm من طرف moslema_r
» مظلات وسواتر
السبت مايو 04, 2024 8:58 pm من طرف moslema_r
» شركة تنظيف خزانات بالرياض
الخميس مايو 02, 2024 6:10 pm من طرف moslema_r
» افضل شركة رش مبيدات بالرياض
الإثنين أبريل 29, 2024 9:00 pm من طرف moslema_r
» ارخص شركة مكافحة الصراصير بالرياض
الخميس أبريل 25, 2024 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
الخميس أبريل 25, 2024 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا