كيفية ترقيم الصفوف بعد إدخال أو حذف الصفوف تلقائيًا في Excel؟

لنفترض أن لدي صفوفًا مرقمة من 1 إلى 20 في عمود ، الآن ، عندما أقوم بإدراج أو حذف صف من نطاق البيانات ، أريد إعادة ترقيم قائمة الأرقام تلقائيًا. هل يمكن إكمال هذه المهمة في Excel؟

ترقيم الصفوف بعد إدراج الصفوف أو حذفها تلقائيًا باستخدام الصيغ

صفوف الأرقام بعد إدراج الصفوف أو حذفها تلقائيًا باستخدام رمز VBA

ترقيم الصفوف بعد إدراج الصفوف أو حذفها تلقائيًا باستخدام الصيغ

في الواقع ، يمكن أن تساعدك وظيفة الصف في Excel على إعادة ترقيم الصفوف تلقائيًا بعد إدراج الصفوف أو حذفها ، يرجى القيام بما يلي:

1. أدخل هذه الصيغة: = ROW () - 1 في الخلية A2 ، ثم اسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد ترقيم الصفوف ، انظر لقطة الشاشة:

ملاحظة: إذا بدأت قائمة الأرقام الخاصة بك من الخلية الأولى ، يمكنك تغيير الصيغة كـ = ROW ()، يمكنك الجمع أو الطرح من الصيغة إذا لم تتطابق أرقامك مع الصف الفعلي ، على سبيل المثال ، = ROW () - 3, = ROW () + 10...

2. ثم أنشئ جدولاً لنطاق البيانات هذا ، وحدد نطاق البيانات ، وانقر إدراج > طاولة، ثم في اصنع جدول مربع الحوار ، تحقق الجدول يحتوي على رؤوس إذا كانت هناك رؤوس في النطاق الخاص بك ، فراجع لقطة الشاشة:

3. ثم انقر فوق OK، تم إنشاء الجدول مرة واحدة ، والآن ، عندما تقوم بإدراج أو حذف صفوف في نطاق الجدول ، يتم تحديث أرقام الصفوف دائمًا تلقائيًا ، راجع لقطة الشاشة:

صفوف الأرقام بعد إدراج الصفوف أو حذفها تلقائيًا باستخدام رمز VBA

باستثناء طريقة الصيغة أعلاه ، يمكنك أيضًا الانتهاء منها برمز VBA.

1. انتقل إلى ورقة العمل التي تريد إدراج أرقام التسلسل تلقائيًا.

2. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، وحدد عرض الرمز من قائمة السياق ، في النافذة المنبثقة ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق الكود التالي في نافذة الوحدة النمطية الفارغة.

رمز فبا: صفوف الأرقام التلقائية بعد إدراج الصفوف أو حذفها:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160612
    Dim I As Integer
    I = 1
    Application.EnableEvents = False
    For I = 1 To 20
        Range("A" & I).Value = I
    Next
    Range("A21").Value = ""
    Application.EnableEvents = True
End Sub

3. ثم احفظ وأغلق هذا الرمز ، عندما تدخل الرقم الأول 1 في الخلية A1 ، سيتم ملء الأرقام التسلسلية من 1 إلى 20 تلقائيًا. إذا قمت بإدراج صفوف أو حذفها من النطاق ، فسيتم إعادة ترقيم رقم السلسلة تلقائيًا مرة واحدة.

ملاحظة: في الكود أعلاه الحرف A يشير إلى حرف العمود الذي تريد ملء رقم التسلسل ، 1 إلى شنومكس هي الصفوف التي تريد ترقيمها ، و A21 هو مرجع الخلية الموجود بجوار آخر خلية مرقمة. يمكنك تغييرها كما تريد.

عرض توضيحي: عدد الصفوف بعد إدراج الصفوف أو حذفها تلقائيًا في ورقة عمل Excel

---

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...