ترقيم تلقائي

[سليم حاصبيا]

لغز برسم جميع الاصدقاء في المنتدى الرائع

كيف يمكن الترقيم التلقائي مع وجود خلايا مدمجة

فزورة.rar

تم تعديل يناير 29, 2016 بواسطه سليم حاصبيا
لم يتم التحميل جيداً

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب سليم

أيوا كدا رجعنا لأيام الألغاز والفوازير

إليك الحل الذي هداني الله إليه

Sub NumberingMergedCells()
    Dim I As Integer, Counter As Integer
    For I = 2 To Cells(Rows.Count, 2).End(xlUp).Row
        Cells(I, 1).Value = Counter + 1
        Counter = Counter + 1
        If Cells(I, 1).MergeCells Then I = I + Cells(I, 1).MergeArea.Cells.Count - 1
    Next I
End Sub

في انتظار مزيد من الحلول من الأخوة المشاركين بالمنتدى

 

 

[رجب جاويش]

وهذا حل آخر

 

حل الفزورة.rar

[ياسر خليل أبو البراء]

أخي الكريم رجب ...كيف قمت بنسخ المعادلات من الخلية A3 إلى بقية الخلايا ...أم أنك وضعت معادلة مختلفة لكل مجموعة خلايا ؟؟؟!!

 

[رجب جاويش]

أخى الحبيب ياسر

قمت بتحديد الخلايا من A3  الى A29  مرة واحدة

ثم وضعت المعادلة فى شريط الصيغة ثم ضغط ctrl + enter

[ياسر خليل أبو البراء]

الله ينور أخي الغالي رجب ...معلومة جميلة وبسيطة بعيداً عن جو الأكواد

تقبل وافر تقديري واحترامي

[سليم حاصبيا]

اخي ياسر 

حل رائع اذا كات الدمج في العامود الاول و لكن للاسف الدمج في العامود الثالث اصلاً و المطلوب الترقيم في العامود الاول

[ياسر خليل أبو البراء]

أخي الكريم سليم

هل تقصد أن الخلايا في العمود الأول غير مدمجة وتريد ترقيمها حسب الخلايا المدمجة في العمود الثالث ؟؟؟ أي أن الكود يقوم بالترقيم والدمج معاً ...؟

[سليم حاصبيا]

نعم بالضبط

ومن ثم اجراء التنسيق في العامود الاول حسب العامود الثالث 

مع مراعاة عدم ترقيم  الخلايا الفارغة في العامود B

انا فعلتها بواسطة المعادلات

فزورة exemple.rar

7 ساعات مضت, رجب جاويش said:

وهذا حل آخر

 

حل الفزورة.rar

اخي الفاضل

العامود A ليس مدمجاَ أصلاَ

انظر الى اخر مشاركة لي بهذا الموضوع

تم تعديل يناير 30, 2016 بواسطه سليم حاصبيا

[رجب جاويش]

هل تقصد هكذا

 

حل الفزروة2.rar

[سليم حاصبيا]

اخي الفاضل هذه احد الحلول للترقيم 

باقي ان نقوم بنتسيق العامود الاول كما الثالث (اوتو ماتيكياً)و لو بواسطة لماكرو