تكرار قيمة خلية لعدد مرات محدد في ورقة اخرى

[Al_bahith]

السلام عليكم و رحمة الله و بركاته

أرجو من الإخوة الكرام في المنتدى مساعدتي في انجاز هذا الملف في ايكسل :

لدي جدول اول فيه عمود يحتوي على البيانات التالية

____________________ _________________

| المواد | عدد المدرسين |

______________________________________

| عربية | 5 |

| انقليزية | 3 |

| تاريخ | 2 |

_____________________________________

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

____________________

| المواد |

___________________|

| مدرس عربية 1 |

| مدرس عربية 2 |

| مدرس عربية 3 |

| مدرس عربية 4 |

| مدرس عربية 5 |

| مدرس انقليزية1 |

| مدرس انقليزية2 |

| مدرس انقليزية3 |

| مدرس تاريخ1 |

| مدرس تاريخ2 |

_____________________

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

مع الشكر سلفا

[يحيى حسين]

السلام عليكم و رحمة الله

أخي الباحث

اولا اشكرك على الطريقة المرتبة و الجميلة في عرض موضوعك و اسلوبك الواضح في طرح المشلكة و النتائج المتوقعة

و تفضل جرب هذا الحل

على فرض ان البيانات موجودة في العمود a and b

جرب هذا الكود

 

Sub Excel4us()

Dim c As Range, i As Integer

	x = 1

For Each c In Range("b2:b4")

	For i = 1 To c.Value

    	Cells(x, 5).Value = "مدرس " & c.Offset(, -1).Value & i

    	x = x + 1

	Next i

Next c

End Sub

[احمدزمان]

-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.

4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....

5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.