تسلسل رقم مع ارقام ثابتة

[ياسر فاروق]

الساده

برجاء المساعده

الرقم الموضح فى الملف المرفق متسلسل الى 500 رقم ومطلوب عند التعديل إعاده التسلسل يدوى (يوجد أرقام ثابتة على شمال الرقم المتسلسل)

هل يوجد طريقة لتسلسل الرقم بعد النقطة اتوماتيك بمعنى اذ تم اضافة سطر او إلغاء سطر يتم الترقيم اتوماتيك مرة ثانية

 

وشكرا لسيادتكم

 

تسلسل.xlsx

[محمد حسن المحمد]

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

يمكنك كتابة معادلة في الخلية A1

ثم اسحب نزولاً إلى آخر رقم تريده

في حال الحذف ستأخذ الخلية الأدنى قيمة الخلية المحذوفة

أما في حال الإضافة فأنت بحاجة لسحب المعادلة من جديد بعدد الصفوف المضافة

="*T900."&ROW()

والسلام عليكم

[lionheart]

Sub Test()
    Dim m As Long
    m = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1:A" & m).Value = Evaluate("=LEFT(A1:A" & m & ",FIND(""."",A1:A" & m & "))&ROW(A1:A" & m & ")")
End Sub