سؤال فى دمج وتوسيط الخلايا

[نور الرحمة]

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

لو سمحتوا عايزة اعمل دمج وتوسيط لبعض الخلايا فى نتائج الطلاب اذا كان (راسب\منقول بمادة\منقول بمادتين)

ويتم عمله تلقائى

للخلايا( المجموع و النسبة و التقدير)

ولو مثلا تكون الطريقة عن طريق الصيغة

ارجو المساعدة ولكم منى جزيل الشكر

Book1.rar

تم تعديل ديسمبر 6, 2009 بواسطه نور الرحمة

[ابو اسامة العينبوسي]

السلام عليكم

تفضلى بهذا الكود

For i = 10 To 17

If Not IsNumeric(Cells(i, "ah")) Then

Application.DisplayAlerts = False

Range(Cells(i, "ah"), Cells(i, "aj")).MergeCells = True

Range(Cells(i, "ah"), Cells(i, "aj")).HorizontalAlignment = xlCenter

End If

Next

Application.DisplayAlerts = True

Noor1.rar

تم تعديل ديسمبر 6, 2009 بواسطه ابو اسامة العينبوسي

[نور الرحمة]

جزاك الله الجنة على مساعدتك لى

لكن لا توجد طريقة ثانية للدمج لأننا لم نأخذ برمجة الاكسيل

ومطلوب عملها من غير برمجة

[نور الرحمة]

لو سمحتوا مفيش حل تانى غير البرمجة

[طارق محمود]

السلام عليكم

أختنا العزيزة

عفوا أنا مش فاهم السؤال

ياريت لو تعملي يدويا علي المثال الذي أرسلتيه

سطر أو إثنين فقط لكي أفهم ماتريدينه بالضبط

[ابو اسامة العينبوسي]

السلام عليكم

اخ طارق ما تريده هو اذا كان الخلايا الثلاث من العمود AH to AJ من نفس الصف تحتوي نفس النص

مثلا راسب راسب راسب تريد الاستعاضه عن هذا بدمج الخلايا الثلاث و توسيطها بخلية واحده

[طارق محمود]

من قال لاأعلم ...

وأنا لاأعلم لها حلا بلا أكواد

أخي أبو أسامة

تحياتي لشخصكم الكريم