منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

اريد ضبط هذا الكود بحيث لا يكرر الارقام

اذهب الى الأسفل

اريد ضبط هذا الكود بحيث لا يكرر الارقام  Empty اريد ضبط هذا الكود بحيث لا يكرر الارقام

مُساهمة من طرف hamed.34552 الأحد يناير 17, 2021 11:53 am

لدي كود يوزع مدي من 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
hamed.34552
.
.

تاريخ التسجيل : 16/01/2021
المساهمات : 2
النقاط : 4
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

اريد ضبط هذا الكود بحيث لا يكرر الارقام  Empty رد: اريد ضبط هذا الكود بحيث لا يكرر الارقام

مُساهمة من طرف hamed.34552 الثلاثاء يناير 19, 2021 4:59 am

ارجو المساعدة من فضلكم
hamed.34552
hamed.34552
.
.

تاريخ التسجيل : 16/01/2021
المساهمات : 2
النقاط : 4
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

اريد ضبط هذا الكود بحيث لا يكرر الارقام  Empty رد: اريد ضبط هذا الكود بحيث لا يكرر الارقام

مُساهمة من طرف أحمد مناع الأربعاء يناير 20, 2021 11:48 pm


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
أحمد مناع
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 1077
النقاط : 201961
التقيم : 130
الدولة : مصر
الجنس : ذكر

https://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى