Note: The other languages of the website are Google-translated. Back to English

كيفية تنسيق الرقم كرقم ترتيبي (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




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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (4)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
استخدم هذه الصيغة بدون 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"))

عندما تضع هذه الصيغة في الخلية من الضغط على Ctrl + Shift + Enter
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا عبد السير ،

حقًا إنه يعمل ولكني أريد أن أفهم الصيغة كيف يعمل. حاولت وفهم القليل منها ولكني بحاجة إلى فهمها بشكل كامل.


أطلب منك من فضلك يرجى القيام بنفس الشيء.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
={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"))
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تم حساب هذا حتى 31 ، لأيام الشهر. من السهل تغيير {cell} = 30 إلى RIGHT ({cell} ، 1) = "0".
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL