التحكم فى تكرار الاسم فى الصف

[جوده]

الاساتذه الافاضل بعد التحيه

هل يمكن عمل داله تحكم فى توزيع الاسم على الصف الموجود فيه على حسب رقم التكرار الذى امامه بشكل عشوائى مثلا الاسم م1 امامه العدد المكرر 5 هل يمكن كتابه الاسم م1 5مرات بشكل عشوائى فى الصف

a2 مرفق مثال

شكرا لكم جودة

22222222.rar

[عبدالله المجرب]

ضع هذا الكود في حدث الصفحة

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 2 Then Exit Sub

If Target.Value = Empty Then Range(Cells(Target.Row, 4), Cells(Target.Row, 24)) = Empty: Exit Sub

If Not Intersect(Target, [C2:C50]) Is Nothing Then

Range(Cells(Target.Row, 4), Cells(Target.Row, 24)) = Empty

Range(Cells(Target.Row, 4), Cells(Target.Row, 3 + Val(Target))) = Target.Offset(0, -1)

End If

End Sub

[جوده]

الاساتذ عبد الله رائع وبارك الله فيك واسمح لى بتكمله الموضوع

سنفرض مثلا ان اسم م1 فى الخليه a1 ., a2 هل يمكن التحكم فى اثناء التوزيع ان لايمكن ان يكون اى اسم مكرر فى نفس العمود اى اذا وجد م1 فى عمود لايمكن ان يتكرر فى نفس العمود مثل الجدول المدرسى

ثانيا هل يمكن التحكم فى مدى الخلايا مثلا ان نعطيه امر بان يتم التوزيع من a2 ; b2 يقوم بالتوزيع 3 مرات وهكذا

اسف للاطاله ولك منى كل تقدير

جوده

[عبدالله المجرب]

بصراحة اخي جودة لم افهم المطلوب

ارفق ملف به النتيجة المطلوبة من التوزيع وان كنت قادر على الحل ان شاء الله انا في الخدمة

[جوده]

الاستاذ عبدالله

تحيه وشكر وتقدير

اسمح بعاده عرض المطلو ب واعذرنى فى الخطا فى عرضه سابقا

الموضوع مثل الجدول المدرسى مثلا م 1 نريد تكراره 3 مرات يوم السبت 2مره يوم الاحد

واذا تكرر الاسم م1 فى الصف الذى يليه لابد ان لايتكرر راسيا اى فى عمود واحد اسمان متشابهان وشكرا

22222222.rar

تم تعديل مارس 3, 2012 بواسطه goda509129

[عبدالله المجرب]

السلام عليكم

هذا الكود خلاصة عدد كبير من المحاولات والجهد

جربه ان شاء الله يكون ما طلبت

للعلم اذا بلغ عدد مجموع تكرار اي اسم اكبر من 21 (عدد الخانات المتاحة للتوزيع ) سيتم ايقاف التوزيع وظهور رسالة تنبهك بالاسم المتجاوز

22222222.rar

[الزير]

ما شاء الله استاذ عبدالله

كود قمة في الروعة

[جوده]

استاذ عبدالله / ماكنت احلم بذلك بارك الله فيك وانه لشرف لى هذا

اخيك جوده

[جوده]

الاخ عبد الله ارجو ان تسمح لى بسؤال

كيف يمكن التحكم فى المدى صفوف واعمده مثال اذا اردت ذياده الايام الى الخميس مثلا.و كذالك راسيا (ان امكن شرح هذا الكود الخطير )

شكرا للك جوده

تم تعديل مارس 4, 2012 بواسطه goda509129

[جوده]

استاذ عبدالله / ماكنت احلم بذلك بارك الله فيك وانه لشرف لى هذا

اخيك جوده

[عبدالله المجرب]

السلام عليكم

لك ما طلبت بخصوص الشرح (تم شرح كودين للفائدة)