دغيدى قام بنشر يناير 25, 2011 قام بنشر يناير 25, 2011 السلام عليكم برجاء التفضل بالدخول لعمل توزيع عشوائى بشرط الا يتكرر الاسم فى الصف أو العمود أو مع زميله ولكم منى جزيل شكرى تحياتى ** دغيدى ** توزيع عشوائى.rar
طارق محمود قام بنشر يناير 25, 2011 قام بنشر يناير 25, 2011 السلام عليكم هو ليس عشوائي بل منظم شاهد المرفق توزيع عشوائى2.rar
دغيدى قام بنشر يناير 25, 2011 الكاتب قام بنشر يناير 25, 2011 الأخ الفاضل / طارق سلام الله عليكمورحمته وبركاته شكرا من كل قلبى على ردكم السريع ولكن كنت أود أن يكون التوزيع عشوائيا عن طريق كود وأنا اثق فيكم وفى عمالقة المنتدى بجاهزية الرد ولكم منى جزيل شكرى تحياتى ** دغيدى **
طارق محمود قام بنشر يناير 26, 2011 قام بنشر يناير 26, 2011 السلام عليكم أخي جمال المرفق ان شاء الله هو ماتطلب ظلل الأسماء المراد توزيعها ثم إضغط زر الماكرو الأصفر يتكون المطلوب بداية من C5 لزيادة التأكيد تم عمل تنسيق شرطي ليعطي لون أحمر للخلية (الخلايا) في حال تكرار الاسم في الصف او في العمود وهذا هو الكود Sub hhh() a = Selection.Columns.Count b = Selection.Count If a <> 2 Then MsgBox ("لابد أن تكون البيانات المختارة في عمودين"): Exit Sub If Int(b / 2) * 2 <> b Then MsgBox ("لابد أن يكون عدد البيانات في العمودين متساويين"): Exit Sub Dim x(999), y(999) i = 1 For Each ce In Selection i = i + 1: s = Int(i / 2) If s * 2 = i Then x(s) = ce.Value Else y(s) = ce.Value Next ce For s = 1 To b / 2 last = 0 For i = 1 To 10 If (s + last) > (b / 2) Then k = 50 Else k = 0 [B4].Offset(s, 2 * i - 1).Value = x(s + last - k) [B4].Offset(s, 2 * i).Value = y(s + last - k) last = last + 1 Next i Next s End Sub تفضل المرفق توزيع عشوائى3.rar
دغيدى قام بنشر يناير 26, 2011 الكاتب قام بنشر يناير 26, 2011 الأخ الفاضل / طارق سلام الله عليكم ورحمته وبركاته شكرا كل الشكر على مجهودكم الفائق وأرجو ألا يضيق صدركم من طلبى لم يتحقق الشرط الاخير وهو عدم تلازم الزميلين إلا مرة واحدة ( وما تم عمله التلازم المستمر ) تحياتى ** دغيدى
عبدالله باقشير قام بنشر يناير 26, 2011 قام بنشر يناير 26, 2011 السلام عليكم بارك الله فيك اخي طارق لم يتحقق الشرط الاخير وهو عدم تلازم الزميلين إلا مرة واحدة ( وما تم عمله التلازم المستمر ) في هذا المرفق الكود يعطيك نتائج مختلفة عن السابق لكن لم اتاكد من عدم تكرار الزميلين بشكل قاطع تاكد من النتائج التنسيق الشرطي نفسه الذي اضافه الاخ طارق توزيع عشوائى.rar
دغيدى قام بنشر يناير 26, 2011 الكاتب قام بنشر يناير 26, 2011 الفاضل العلامة / خبور خير السلام الله عليكم ورحمته وبركاته كنت أطمع فى مشاركتكم والحمد الله على تحقيقها فشكرا لكم من كل قلبى تحياتى ** دغيدى
طارق محمود قام بنشر يناير 27, 2011 قام بنشر يناير 27, 2011 (معدل) الحمد لله أخي جمال بالأمس عندما رأيت ردك ، رأيت أيضا أستاذنا وعالمنا المحبوب خبور خير متابع للموضوع فقلت إذا حضر الماء أخي وأستاذي خبور خير ازددنا شرفا أستاذنا العزيز بمرورك ومشاركتك تقبل ودي واحترامي تم تعديل يناير 27, 2011 بواسطه TareQ M
طارق محمود قام بنشر يناير 27, 2011 قام بنشر يناير 27, 2011 السلام عليكم إخواني مازال يوجد بعض التكرار في الزميلين تحايلت لاكتشافه بالتنسيق الشرطي أيضا تفضلوا المرفق توزيع عشوائى_4.rar
طارق محمود قام بنشر يناير 27, 2011 قام بنشر يناير 27, 2011 السلام عليكم بعد إذن أستاذنا الجليل خبور خير أخي جمال رجعت إلي مقترحي الأول والذي كنت عملته يدويا بالمشاركة #2 وطبقت عليه التنسيق الشرطي ووجدته جيدا ليس به تكرار في الزميلين في المرفق تم تعديل وضعية المزاملة وتم عمل تنسيق شرطي ثاني لتفادي التكرار في الزميلين وإن كان وقت التوافيق طويل نسبيا علي كل حال تفضلوا المرفق توزيع عشوائى5.rar
دغيدى قام بنشر يناير 27, 2011 الكاتب قام بنشر يناير 27, 2011 السلام عليكم شكرا كل الشكر أخى الفاضل طارق تحياتى *جمال دغيدى **
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.