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

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

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

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

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

مستند-إعادة-تصفية-1 -2 مستند-إعادة-تصفية-2

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

مستند-إعادة-تصفية-3

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

مستند-إعادة-تصفية-3

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


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

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

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. 

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

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

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

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

مستند-إعادة-تصفية-3

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

مستند-إعادة-تصفية-3

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

مستند-إعادة-تصفية-3

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

مستند-إعادة-تصفية-3

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


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

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

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

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

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

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

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

علامة تبويب kte 201905


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Deseo felicitarlo(s) por tan EXCELente trabajo. Enhorabuena!
This comment was minimized by the moderator on the site
Thank you, thanks alot
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations