كيفية تنسيق الرقم كرقم ترتيبي (1st 2nd 3rd) في Excel؟
في بعض الحالات ، نحتاج إلى تنسيق الرقم على أنه الأول والثاني والثالث وما إلى ذلك عندما نرتب على النحو الموضح أدناه. ومع ذلك ، هل تعرف كيفية تنسيق هذه الأرقام الأصلية كأرقام ترتيبية في Excel؟ بشكل عام ، لا توجد وظيفة مضمنة لتحويل الرقم إلى المرتبة الأولى في Excel ، ولكن هنا يمكنني تقديم بعض الحيل حول هذه المشكلة.
تنسيق الرقم على أنه ترتيبي مع VBA
تنسيق رقم ترتيبي مع كوتولس ل إكسيل
تنسيق الرقم على أنه ترتيبي مع 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
3. ثم حدد خلية فارغة بجوار الرقم الذي تريد تنسيقه على أنه ترتيبي ، C2 على سبيل المثال ، وأدخل هذه الصيغة = إضافة (B2)، B2 هو الرقم الذي تستخدمه ، ثم اضغط أدخل مفتاح ، ثم اسحب مقبض الملء التلقائي فوق الخلايا التي تريد تطبيق هذه الصيغة. انظر لقطة الشاشة:
تنسيق رقم ترتيبي مع كوتولس ل إكسيل
إذا لم تكن جيدًا في تنفيذ تعليمات برمجية الماكرو ، يمكنك محاولة التقديم كوتولس ل إكسيلالصورة تحويل رقم إلى ترتيبي فائدة ، والتي تحتاج فقط إلى نقرة واحدة للتعامل مع الوظيفة.
كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
حدد الأرقام التي تريد تنسيقها كأرقام ترتيبية ، وانقر فوق كوتولس > وصف المنتج > تحويل رقم إلى ترتيبي. انظر لقطة الشاشة:
تحويل رقم إلى ترتيبي
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!