انتقل إلى المحتوى الرئيسي
 

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

المؤلف: شياويانغ آخر تعديل: 2024-10-29

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

الرقم التلقائي أو إعادة الترقيم بعد التصفية برمز VBA

رقم تلقائي أو إعادة ترقيم بعد التصفية باستخدام Kutools for Excel

أرقام أصلية السهم لليمين إعادة الترقيم بعد التصفية

الرقم التلقائي أو إعادة الترقيم بعد التصفية برمز VBA

في الحالة المفلترة ، لا يمكنك تطبيق مقبض الملء التلقائي لملء التسلسل الرقمي ، يمكنك فقط تعبئتها عن طريق كتابة الأرقام واحدة تلو الأخرى. ولكن ، سيكون هذا مملاً ويستغرق وقتًا طويلاً إذا كان هناك حاجة إلى إعادة ترقيم عدد كبير من الخلايا. هنا ، سأقدم رمز VBA لحل هذه المهمة.

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف نافذة الوحدة.

كود فبا: الرقم التلقائي أو إعادة الترقيم بعد التصفية

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 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد خلايا النطاق التي تريد ترقيمها تلقائيًا أو إعادة ترقيم الصفوف ، انظر لقطة الشاشة:

كود vba لتحديد الخلايا

4. ثم اضغط OK، وتمت إعادة ترقيم خلايا النطاق المحددة بالتتابع كما هو موضح أدناه:

يتم إعادة ترقيم الخلايا المحددة بشكل تسلسلي

ملاحظات: سيؤدي هذا الرمز إلى تدمير أرقام صفوف السلسلة الأصلية عند إلغاء وظيفة التصفية. لذلك تحتاج إلى نسخ بياناتك احتياطيًا أولاً.


رقم تلقائي أو إعادة ترقيم بعد التصفية باستخدام Kutools for Excel

إذا كنت قد قمت بتثبيت كوتولس ل إكسيلمع قوتها أدخل رقم التسلسل ميزة ، يمكنك إدخال أرقام التسلسل في البيانات التي تمت تصفيتها بسرعة وسهولة فقط.

كوتولس ل إكسيل يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة وتعزيز الإبداع والكفاءة. معزز بقدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات سهلة. معلومات تفصيلية عن Kutools لـ Excel...         تجربة مجانية...

بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:

1. حدد الخلايا التي تريد إعادة ترقيمها للبيانات المصفاة.

2. ثم اضغط كوتولس > إدراج > أدخل رقم التسلسل، انظر لقطة الشاشة:

انقر فوق ميزة إدراج رقم التسلسل في kutools

3. ثم ظهرت في الخارج أدخل رقم التسلسل مربع الحوار، انقر فوق جديد زر ، انظر لقطة الشاشة:

انقر فوق الزر "جديد" في مربع الحوار

4. ثم قم بإنشاء أرقام قائمة التسلسل كما تريد في القسم السفلي الأيسر ، انظر لقطة الشاشة:

إنشاء أرقام قائمة التسلسل في مربع الحوار

5. بعد تحديد التسلسل ، انقر فوق أضف زر ، وأضيف عنصر التسلسل في مربع الحوار ، انظر الصورة:

تمت إضافة عنصر التسلسل إلى مربع الحوار،

6. ثم انقر فوق نطاق التعبئة ،  وتمت إعادة ترقيم البيانات التي تمت تصفيتها مرة واحدة. انظر لقطة الشاشة:

انقر فوق "ملء النطاق" لإعادة ترقيم الخلايا

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


عرض توضيحي: رقم تلقائي أو إعادة ترقيم بعد التصفية باستخدام Kutools for Excel

 

مقالة ذات صلة:

كيف ترقيم الخلايا المدمجة تلقائيًا في إكسيل؟

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

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...


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

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