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

من طرف hamed.34552 الأحد يناير 17, 2021 6:53 pm

لدي كود يوزع مدي من 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 الثلاثاء يناير 19, 2021 11:59 am

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

من طرف **أحمد مناع** الخميس يناير 21, 2021 6:48 am

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