zoom10 قام بنشر يناير 9, 2013 قام بنشر يناير 9, 2013 السلام عليكم ورحمة الله كل ما أريده في الملف المرفق هو دالة تعطيني ارقام عشوائية من خلية إلى خلية بضغطة واحدة وتكون هذه الأرقام غير مكررة ولكم الشكر والتقدير . aaa.rar
رجب جاويش قام بنشر يناير 9, 2013 قام بنشر يناير 9, 2013 تفضل أخى Sub ragab() For i = 13 To 34 1 x = Int((99 - 10 + 1) * Rnd + 10) Cells(i, 5) = x y = Application.WorksheetFunction.CountIf(Range("E13:E34"), Cells(i, 5)) If y > 1 Then GoTo 1 Next End Sub aaa1.rar
جمال عبد السميع قام بنشر يناير 9, 2013 قام بنشر يناير 9, 2013 بعد إذن أستاذى ومعلمى الرائع ( رجب جاويش ) إللى وحشنى العمل فى مشاركاتة هذا عمل بسيط لعله ينفع وإن كان ليس لى باع طويل فى الأكواد RandomNumbers.rar
zoom10 قام بنشر يناير 9, 2013 الكاتب قام بنشر يناير 9, 2013 بارك الله فيكم ياأخ رجب ويا أخ محمود وكثر الله من أمثالكم بصراحة انتم رائعيين هناك مشكلة وهي لا أريد عند إضافة اشخاص ان أذهب للماكروا وأقوم بتعديل وزيادة الخلايا أريدها تلقائيا بحيث أذا أضفت شخص ينضاف له رقم . في مثال الاخ محمود كان الحل ممكنا ولكن اريد الدالة في زر ماكروا إذا أمكن . الله لا يحرمكم الاجر
جمال عبد السميع قام بنشر يناير 9, 2013 قام بنشر يناير 9, 2013 اأخى المعادلة لاتحتاج لزر أمر ولا حاجة إكتبها مرة واحدة فقط وأسحبها ثم عن طريق ( f9 ) سيتم تغيير الأرقام تلقائيا
zoom10 قام بنشر يناير 9, 2013 الكاتب قام بنشر يناير 9, 2013 نسخت المعادلة في مستندي وطلع لي في الخلية #NAME? ياترى ماالمشكلة . علما بأن الأوفس عندي اصدار 2007
الـعيدروس قام بنشر يناير 10, 2013 قام بنشر يناير 10, 2013 بعد اذن اخي رجب جاويش هذا تعديل على الكود انسخ الكود في حدث الورقة بحيث عند اضافة اسم في عمود D دايركت يقوم بعمل رقم عشوائي للاسم وتحديث للسابق Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then For Each Rn In Range("D13:D" & Cells(Rows.Count, "D").End(xlUp).Row) 1 x = Int((99 - 10 + 1) * Rnd + 10): Rn.Offset(0, 1) = x y = Application.WorksheetFunction.CountIf(Rn.Offset(0, 1), Cells(Rn.Row, 5)) If y > 1 Then GoTo 1 Next End If End Sub
رجب جاويش قام بنشر يناير 10, 2013 قام بنشر يناير 10, 2013 أخى العزيز / عباد لمساتك دائما سحرية على الأكواد بارك الله فيك
zoom10 قام بنشر يناير 10, 2013 الكاتب قام بنشر يناير 10, 2013 بارك الله فيك أخي الكريم عباد . ولكن هناك ارقام مكررة وهذا بالنسبة لي مشكلة كبيرة لأنها ارقام سرية ولا تقبل التكرار فهل هناك تعديل في الكود ليمنع التكرار ؟؟؟
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.