كيف يمكن تطبيق الترقيم التلقائي أو إعادة الترقيم تلقائيًا بعد تصفية البيانات في Excel؟
عند العمل مع مجموعات بيانات كبيرة في Excel، من الشائع تعيين سلسلة أرقام كمعرّفات للصفوف لتنظيم الإدخالات أو تتبعها. ومع ذلك، بعد تطبيق تصفية لعرض صفوف محددة، تظل السلسلة المرئية أو تحديد عدد الصفوف كما هي في مجموعة البيانات الأصلية—ولا يتم تحديثها لتعكس الترتيب المرئي بعد التصفية. قد يؤدي ذلك إلى حدوث ارتباك ويجعل من الصعب عرض قائمة مرقّمة بوضوح لأغراض إعداد التقارير أو العروض التقديمية. أحيانًا قد ترغب في أن تكون السلسلة مرتبة ديناميكيًّا بحيث تعرض فقط الصفوف المرئية (المُفلترة) ترقيمًا متسلسلاً، كما هو موضح في لقطات الشاشة أدناه. في هذه المقالة، سنستعرض كيفية الترقيم التلقائي أو إعادة الترقيم بعد التصفية في Excel لتحسين وضوح وسهولة إدارة طريقة عرض بياناتك المُفلترة.
الترقيم التلقائي أو إعادة الترقيم بعد التصفية باستخدام كود VBA
الترقيم التلقائي أو إعادة الترقيم بعد التصفية باستخدام صيغة Excel (SUBTOTAL وROW)
الترقيم التلقائي أو إعادة الترقيم بعد التصفية باستخدام Kutools لـ Excel
 |  |  |
الترقيم التلقائي أو إعادة الترقيم بعد التصفية باستخدام كود VBA
في Excel، عندما تكون بياناتك مُفلترة، لا يملأ مقبض الملء التلقائي (Autofill) الأرقام المتسلسلة وفقًا للصفوف المرئية فقط، بل يستمر في التسلسل ليشمل الصفوف المخفية أيضًا، ما يؤدي غالبًا إلى ترقيم يعكس مواضع الصفوف الأصلية بدلًا من ترتيب البيانات المُفلترة فعليًّا. ويصبح إدخال الأرقام يدويًّا لكل صف مرئي أمرًا مملًّا وغير عملي، خصوصًا مع القوائم الكبيرة. وفي مثل هذه الحالات، يمكنك استخدام كود VBA بسيط لإعادة ترقيم الصفوف ضمن نطاق البيانات المُفلترة بكفاءة، مما يوفر جهدًا يدويًّا كبيرًا ويقلل من احتمالات الخطأ.
1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسيك للتطبيقات. هذه هي الواجهة الرئيسية لكتابة وتشغيل أكواد VBA في Excel.
2. في نافذة VBA، انقر فوقإدراج > وحدة نمطيةلإضافة وحدة جديدة. ثم الصق ماكرو التالي في نافذةالوحدة النمطية.
كود VBA: الترقيم التلقائي أو إعادة الترقيم بعد التصفية
Sub Renumbering()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)
xIndex = 1
For Each Rng In WorkRng
Rng.Value = xIndex
xIndex = xIndex + 1
Next
End Sub
3. بعد لصق الكود، اضغط على مفتاحF5 لتشغيله. ستظهر نافذة منبثقة تطلب منك تحديد نطاق الخلايا التي تريد ترقيمها تلقائيًّا أو إعادة ترقيم الصفوف المرئية بعد التصفية. انظر لقطة الشاشة:
4. بعد تحديد نطاقك المستهدف، انقر فوقموافق. أصبحت الخلايا المرئية (المُفلترة) داخل نطاق التحديد الآن مرقّمة بشكل متسلسل—كما هو موضح أدناه:
ملاحظات ونصائح:يقوم هذا الكود بإعادة كتابة الترقيم في النطاق المحدَّد، ويستبدل الأرقام المتسلسلة الأصلية. إذا قمت لاحقًا بإزالة التصفية، فسيُفقد الترتيب الأصلي (الذي كان قبل التصفية)، وستبقى فقط الأرقام المتتالية الخاصة بالعناصر المُفلترة. ولتجنب فقدان البيانات الأصلية، يُوصى بعمل نسخة احتياطية من ورقة العمل أو العمود المعني قبل تشغيل هذا الماكرو. بالإضافة إلى ذلك، تأكد من تمكين الماكروات في مصنف Excel، وتوخَّ الحذر إذا أردت التراجع عن التغييرات، لأن الإجراءات التي ينفذها الماكرو لا يمكن دائمًا التراجع عنها باستخدام Ctrl + Z.
الترقيم التلقائي أو إعادة الترقيم بعد التصفية باستخدام صيغة Excel (SUBTOTAL وROW)
يفضّل العديد من المستخدمين الحل القائم على الصيغ لأنه يظل ديناميكيًّا—فهو يُحدّث عدد الصفوف تلقائيًّا كلما غيّرت شروط التصفية. ويمكنك من خلال دمج دالتَيْSUBTOTAL وROW في Excel إنشاء تسلسل يشمل الصفوف المرئية فقط، بحيث يتم ترقيم الصفوف المعروضة بعد التصفية بشكل متسلسل. ويُعدّ هذا الحل مثاليًّا خصوصًا عند الحاجة إلى تطبيق التصفية مرارًا أو عند توقّع تغيّر بياناتك بمرور الوقت، إذ لن تحتاج إلى إعادة تشغيل VBA أو إعادة إدخال الأرقام يدويًّا—فكل شيء يتجدد تلقائيًّا في الوقت الفعلي!
السيناريوهات المناسبة:استخدم هذا الأسلوب إذا كنت تريد تحديث الترقيم تلقائيًّا كلما طبّقت تصفية أو غيّرتها، دون الحاجة إلى إعادة التطبيق يدويًّا أو اللجوء إلى نصوص VBA. وهو مثالي لإعداد تقارير ديناميكية أو جداول بيانات مشتركة.
1. في الخلية الأولى من عمود الترقيم المطلوب—على سبيل المثال، إذا كان نطاق البيانات يبدأ من الصف 2 (مع وجود العناوين في الصف 1) ويجب أن يبدأ الترقيم من الخلية A2—أدخل الصيغة التالية:
=SUBTOTAL(3, $B$2:B2)هنا، يشير$B$2:B2إلى عمود في بياناتك يكون دائمًا مملوءً (مثل عمود الاسم أو المعرّف). قد تحتاج إلى تعديل مرجع العمود ليتوافق مع عمود مناسب في جدولك. اجعل الجزء الأول مطلقًا ()$B$2)، واترك رقم الصف في الجزء الثاني يتزايد تلقائيًّا (مثل B2، B3، ...).
2. اضغط على Enter للتأكيد. ولتطبيق الترقيم على القائمة بأكملها، اسحب مقبض الملء لأسفل على طول عمود الترقيم لتغطية جميع الصفوف.
بعد تصفية بياناتك، ستعرض الصفوف المرئية أرقامًا تصاعدية (1، 2، 3، …) تلقائيًّا، بينما يتم استبعاد الصفوف المخفية. ولا تحتاج هذه الطريقة إلى أي تحديثات يدوية بعد كل تغيير في التصفية—فسيظل التسلسل دائمًا متوافقًا مع عدد الصفوف المرئية.
نصائح إضافية:تأكد من أن عمود المرجع المستخدم في الصيغة خالٍ من الخلايا الفارغة في الجزء الذي تريد ترقيمه. إذا كانت بياناتك تبدأ من صف غير الصف 2، فعدّل مرجع الخلية المطلق وفقًا لذلك (مثل)$C$5:C5 إذا كانت بياناتك تبدأ من الصف 5 وتستخدم العمود C كمرجع). وفي حال ظهور فراغات في الترقيم، تحقق من وجود صفوف مخفية أو خلايا فارغة ضمن نطاق المرجع. أما إذا كنت تستخدم جدول Excel، فيمكنك تبسيط الصيغة أكثر باستخدام المراجع المنظمة (مثل=SUBTOTAL(3,OFFSET([@Column],0,0,ROW()-ROW(Table1[#Headers]))))، مع ملاحظة أن الأسلوب القياسي المذكور أعلاه يناسب معظم الحالات.
الترقيم التلقائي أو إعادة الترقيم بعد التصفية باستخدام Kutools لـ Excel
إذا كنت قد قمت بتثبيتKutools لـ Excel، فإن ميزةإدراج رقم تسلسليتتيح لك إدراج أرقام تسلسلية في البيانات المُفلترة بسرعة وسهولة! فعلى عكس وظيفة Excel الافتراضية—التي لا تميّز الصفوف المرئية فقط لملء الأرقام—يتكيف Kutools تلقائيًّا مع تحديداتك المُفلترة، مما يُسرّع عملية الترقيم بشكل كبير ويقلل الجهد اليدوي. وتكون هذه الميزة مفيدة بشكل خاص مع مجموعات البيانات المعقدة أو عند الحاجة إلى تخصيص الترقيم، مثل تحديد البادئات، الرقم الأول، أو خطوات الزيادة.
بعد تثبيتKutools لـ Excel، اتبع الخطوات العملية التالية:
1. حدد الخلايا التي تريد إعادة ترقيمها في طريقة عرض البيانات المُفلترة. من الأفضل أن تحدد الصفوف المرئية فقط لتجنب أي التباس.
2. انتقل إلىKutools > إدراج > إدراج رقم تسلسلي، كما هو موضح:
3. في مربع حوارإدراج رقم تسلسلي، انقر فوقجديدلتعريف نمط الترقيم الخاص بك.
4. أنشئ قائمة التسلسل الخاصة بك باستخدام عناصر التحكم في التهيئة الموجودة في القسم السفلي الأيسر، بما في ذلك الرقم الأول، والزيادة، وعدد الأرقام، وغيرها من الخيارات حسب احتياجاتك.
5. بعد الانتهاء، انقر فوقإضافةلحفظ نمط التسلسل الخاص بك، والذي سيظهر الآن في قائمة التسلسل في مربع الحوار.
6. انقر فوقتعبئة النطاق. سيتم تطبيق التسلسل فورًا على نطاق البيانات المحدَّد (المرئي)، حيث يتم ترقيم الصفوف المرئية بعد التصفية فقط بشكل متسلسل، كما هو موضح هنا:
ملاحظة:لا تقتصر ميزة إدراج رقم تسلسلي في Kutools لـ Excel على توفير الوقت عند التعامل مع مجموعات البيانات الكبيرة فحسب، بل تقلل أيضًا من الأخطاء عبر تطبيق الترقيم فقط على الصفوف المُفلترة. ويمكنك تكرار الترقيم أو تحديثه في أي وقت—وهو أمرٌ مفيدٌ بشكل خاص إذا كانت تصفية البيانات تتغيّر باستمرار. وإذا كنت تقوم بالترقيم عبر نطاقات مدمجة أو غير منتظمة، فراجع المعاينة في مربع الحوار لمعرفة الشكل النهائي.
حمّل Kutools لـ Excel وجربه مجانًا الآن!
عرض توضيحي: الترقيم التلقائي أو إعادة الترقيم بعد التصفية باستخدام Kutools لـ Excel
مقال ذو صلة:
كيفية تفعيل الترقيم التلقائي المدمج في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل