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

كيفية تنسيق الرقم كرقم ترتيبي (1st 2nd 3rd) في Excel؟

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

تنسيق الرقم على أنه ترتيبي مع VBA

تنسيق رقم ترتيبي مع كوتولس ل إكسيل فكرة جيدة 3


السهم الأزرق الحق فقاعة تنسيق الرقم على أنه ترتيبي مع VBA

لتنسيق الرقم كترتيبي ، إليك رمز ماكرو يمكن أن يساعدك.

1. صحافة ALT + F11 مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق أدناه VBA إلى البرنامج النصي للوحدة النمطية. انظر لقطة الشاشة:

فبا: تنسيق رقم ترتيبي

Function Addth(pNumber As String) As String
'UpdatebyExtendoffice20160628
Select Case CLng(VBA.Right(pNumber, 1))
    Case 1
    Addth = pNumber & "st"
    Case 2
    Addth = pNumber & "nd"
    Case 3
    Addth = pNumber & "rd"
    Case Else
    Addth = pNumber & "th"
End Select
Select Case VBA.CLng(VBA.Right(pNumber, 2))
    Case 11, 12, 13
    Addth = pNumber & "th"
End Select
End Function

رقم تنسيق المستند الأول 1

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


السهم الأزرق الحق فقاعة تنسيق رقم ترتيبي مع كوتولس ل إكسيل

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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

حدد الأرقام التي تريد تنسيقها كأرقام ترتيبية ، وانقر فوق كوتولس > وصف المنتج > تحويل رقم إلى ترتيبي. انظر لقطة الشاشة:
رقم تنسيق المستند الأول 1 رقم doc kutools للترتيب 2



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

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة 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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Amazing!!! I've been manually doing this for lots of strings of numbers when writing instructions. This is a huge time saver! Thank you!
This comment was minimized by the moderator on the site
This was calculated up to 31, for the days of the month. It is easy to change {cell}=30 to RIGHT({cell},1)="0" .
This comment was minimized by the moderator on the site
={cell}&IF(OR(AND({cell}>3,{cell}<21),AND({cell}>21,RIGHT({cell},1)>"3",RIGHT({cell},1)<="9"),{cell}=30),"th",CHOOSE(RIGHT({cell},1),"st","nd","rd"))
This comment was minimized by the moderator on the site
use this formula without VBA Coding for Position Holder
=SUM(IF(B6<$B$1:$B$32,1/COUNTIF($B$1:$B$32,$B$1:$B$32)))+1&IF(OR(MOD(SUM(IF(B6<$B$1:$B$32,1/COUNTIF($B$1:$B$32,$B$1:$B$32)))+1,100)={11,12,13}),"th",CHOOSE(MIN(5,RIGHT(SUM(IF(B6<$B$1:$B$32,1/COUNTIF($B$1:$B$32,$B$1:$B$32)))+1)+1),"th","st","nd","rd","th"))

when you put this formula in cell than press Ctrl+Shift+Enter
This comment was minimized by the moderator on the site
Hello Abdul Sir,

Really It works but i want to understand the formula how it works. I tried and understand few of it but need to understand it fully.


Requesting you to please please please do the same.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations