Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

كيفية اختصار الأرقام في Excel؟

Author Sun Last modified

عند العمل مع مجموعات بيانات كبيرة في Excel، من الشائع مواجهة أرقام كبيرة يمكن أن تجعل ورقة العمل مزدحمة وتُصعِّب قراءة البيانات أو تحليلها. على سبيل المثال، قد يؤدي عرض القيم مثل 1,234,567 أو 12,000,000 إلى إغراق المشاهدين بالمعلومات، خاصةً في اللوحات التفاعلية أو التقارير الموجزة. في مثل هذه الحالات، يساعد اختصار الأرقام (مثل تحويل 1234567 إلى 1.23M أو 12000 إلى 12K) في تعزيز الوضوح والحفاظ على تصميم مضغوط. يقدم هذا البرنامج التعليمي عدة حلول عملية لاختصار الأرقام في Excel، بما في ذلك التنسيق المدمج، الصيغ، وماكرو VBA. كل خيار مناسب لسيناريوهات مختلفة حسب تفضيلاتك ومتطلبات سير العمل.

sample data arrow abbreviate numbers

اختصار الرقم | اختصار باستخدام صيغة Excel | اختصار الأرقام باستخدام ماكرو VBA


arrow blue right bubble اختصار الرقم

إحدى الطرق المباشرة لاختصار الأرقام في Excel هي تخصيص تنسيقات الأرقام من خلال مربع الحوار 'تنسيق الخلايا'. هذه الطريقة تغير فقط عرض الأرقام، وليس قيمها الأساسية، مما يعني أن الحسابات التي تستخدم هذه الخلايا تظل دقيقة. هذا مفيد جدًا للتقارير السريعة أو عندما تحتاج الأرقام إلى التحديث تلقائيًا دون إضافة أعمدة إضافية. ومع ذلك، ضع في اعتبارك أن هذه الطريقة لن تعطيك نتائج نصية أو تسمح بوحدات مختلطة (مثل M و K في نفس العمود) مع منطق معقد - الصيغ أو الماكرو تكون أفضل لذلك.

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

click format cells from right click menu

2. في مربع الحوار 'تنسيق الخلايا'، انتقل إلى تبويب الأرقام، وحدد 'مخصص' من القائمة على اليسار، وفي حقل النوع أدخل: [>999999]#,,"M";#,"K". هذا التنسيق المخصص يخبر Excel بعرض الأرقام الأكبر من 999,999 كملايين (مع “M”) وكل الأرقام الأخرى كآلاف (مع “K”). انظر لقطة الشاشة:

set data type

3. انقر فوق "موافق" لتطبيق التنسيق. ستظهر الآن الأرقام في النطاق المحدد بشكل مختصر، مما يجعل من السهل مسح وتحليل مجموعات البيانات الكبيرة بسرعة.

result of abbreviating numbers

نصيحة: إذا كنت بحاجة فقط إلى عرض جميع الأرقام الكبيرة كآلاف (“K”)، استخدم #,"K" في مربع النوع. للملايين فقط، استخدم #,,"M". للمليارات أو التريليونات، استخدم #,,,"B" أو #,,,,"T" على التوالي. لعرض الملايين والمليارات مع الوحدة الصحيحة، استخدم [>999999999.999]#,,,"B";[>999999.999]#,,"M";#,##0 _M. يرجى ملاحظة أن تنسيق الأرقام هو فقط للعرض ولا يغير القيمة لإجراء الحسابات. إذا كنت بحاجة إلى منطق مخصص أكثر، مثل التقريب، إظهار المنازل العشرية، أو التعامل مع القيم السالبة، فكر في استخدام النهج الصيغة أو ماكرو VBA.

احتياطات: إذا كانت بياناتك تتضمن قيمًا أصغر من 1,000، فسيتم عرضها كما هي بدون اختصار. لا يمكن لهذه الطريقة دمج M و K في نفس سياق الخلية، إلا من خلال تنسيق مخصص موسع، والذي له قيود. كن على علم بأن الأرقام المنسقة لا تزال تستخدم القيمة الأصلية في الصيغ الأساسية، مما قد يسبب الارتباك عند نسخ البيانات أو تصديرها.


اختصار الأرقام باستخدام صيغ Excel (سيتم تحويلها إلى نص)

إذا كنت ترغب في عرض نتائج مختصرة في عمود جديد وتريد تخصيص المنطق، مثل عرض الكسور العشرية (1.25M)، التعامل مع الوحدات المختلطة (K، M، B، T)، أو التحكم في النتيجة كنص، يمكنك استخدام وظائف Excel لتوليد اختصارات ديناميكية. هذا أيضًا مثالي عندما تريد تجميد أو معالجة النص المعروض في صيغ أخرى أو مخرجات.

السيناريوهات المطبقة: هذه الطريقة هي الأفضل عندما تحتاج إلى مخرجات نصية، أو منطق اختصار متقدم غير مدعوم بواسطة التنسيقات المخصصة. إنها مناسبة للملخصات، اللوحات التفاعلية، أو عند مشاركة النتائج المصدرة/المُلصقة.

1. أدخل الصيغة التالية في الخلية المستهدفة (على سبيل المثال، إذا كان رقمك في الخلية A2، أدخل في الخلية B2):

=IF(ABS(A2)>=1000000000,TEXT(A2/1000000000,"0.00")&"B",IF(ABS(A2)>=1000000,TEXT(A2/1000000,"0.00")&"M",IF(ABS(A2)>=1000,TEXT(A2/1000,"0.00")&"K",A2)))

تتحقق هذه الصيغة قيمة في A2 وتختصرها باستخدام B (بليون)، M (مليون)، أو K (ألف) حسب الاقتضاء، مع عرض منزلتين عشريتين. يتم دعم الأرقام السالبة، وتُعرض القيم الأقل من 1,000 كما هي.

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

نصائح عملية: لتخصيص المنازل العشرية، قم بتعديل الجزء "0.00" في وظيفة TEXT (على سبيل المثال، استخدم "0.0" لمكان عشري واحد). - إذا كنت تتعامل مع أرقام كبيرة جدًا (تريليونات أو أكثر)، قم بتوسيع نمط IF بشكل أكبر.

احتياطات: - هذا يُنشئ مخرجات نصية، لذا لن يتم حساب الأرقام بشكل صحيح في SUM أو غيرها من الصيغ الرياضية ما لم يتم تحويلها مرة أخرى. إذا كنت ترغب في تجنب الأصفار الزائدة (على سبيل المثال، إظهار "12M" بدلاً من "12.00M")، استخدم التنسيق المخصص داخل TEXT.


اختصار الأرقام باستخدام ماكرو VBA

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

الأفضل لـ: أتمتة الاختصارات عبر نطاقات كبيرة أو ديناميكية؛ سير عمل مخصص ومُعاد الاستخدام؛ معالجة دفعات من تخطيطات البيانات المتغيرة.

1. أولاً، اضغط على Alt + F11 لفتح محرر VBA في Excel. في نافذة VBA، انقر فوق إدراج > وحدة لإنشاء وحدة جديدة وانسخ الكود التالي في نافذة الوحدة:

Sub AbbreviateNumbersAddColumn()
    Dim rng As Range
    Dim cell As Range
    Dim destCol As Range
    Dim abbrevValue As String
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set rng = Application.Selection
    Set rng = Application.InputBox("Select the range of numbers to abbreviate", xTitleId, rng.Address, Type:=8)
    
    If rng Is Nothing Then Exit Sub
    
    Set destCol = rng.Offset(0, 1).Columns(1)
    
    For Each cell In rng
        If IsNumeric(cell.Value) Then
            If Abs(cell.Value) >= 1000000000 Then
                abbrevValue = Format(cell.Value / 1000000000, "0.00") & "B"
            ElseIf Abs(cell.Value) >= 1000000 Then
                abbrevValue = Format(cell.Value / 1000000, "0.00") & "M"
            ElseIf Abs(cell.Value) >= 1000 Then
                abbrevValue = Format(cell.Value / 1000, "0.00") & "K"
            Else
                abbrevValue = cell.Value
            End If
        Else
            abbrevValue = cell.Value
        End If
        
        destCol.Cells(cell.Row - rng.Row + 1, 1).Value = abbrevValue
    Next
    
    MsgBox "Abbreviated values written to the column to the right of the selection."
End Sub

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

نصائح الاستخدام: آمنة للاستخدام إذا كنت ترغب في الحفاظ على البيانات الأصلية - ستظهر النتائج في عمود مجاور جديد. - يمكنك تعديل الكود لكتابة النتائج في نفس الموقع إذا كنت ترغب في الكتابة فوق البيانات الأصلية، لكن هذا ليس موصى به إلا إذا كان لديك نسخة احتياطية.

تنبيهات لاستكشاف الأخطاء وإصلاحها: تأكد من تمكين الماكرو في مصنفك. إذا كانت بياناتك تتضمن نصوصًا أو خلايا فارغة، فإن الماكرو سيتركها دون تغيير. للحصول على تسميات مخصصة (مثل عرض "T" للتريليونات)، قم بتعديل كتل If وفقًا لذلك.


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

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

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


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

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

جميع إضافات Kutools. مثبت واحد

حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.

Excel Word Outlook Tabs PowerPoint
  • حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
  • مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
  • الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
  • تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
  • قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد