KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

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

المؤلفسونتاريخ التعديل

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

بيانات نموذجيةسهماختصار الأرقام

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

فقاعة زرقاء مع سهم يميناختصار الرقم

إحدى الطرق البسيطة لاختصار الأرقام في Excel هي تخصيص تنسيقات الأرقام عبر مربع حوار «تعيين تنسيق الخلية». هذه الطريقة تغيّر فقط طريقة عرض الأرقام دون المساس بقيمها الأساسية، ما يضمن بقاء العمليات الحسابية التي تعتمد على هذه الخلايا دقيقة تمامًا. وهي مثالية لإعداد تقارير سريعة أو عند الحاجة إلى تحديث الأرقام تلقائيًا دون الحاجة إلى إدراج أعمدة إضافية. ومع ذلك، يجدر بالذكر أن هذه الطريقة لا تُنتج نتائج نصية ولا تدعم استخدام وحدات مختلطة (مثل M وK في نفس العمود) بمنطق معقد—وفي مثل هذه الحالات، تكون الصيغ أو وحدات الماكرو الخيار الأنسب.

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

انقر تنسيق الخلايا من قائمة النقر بزر الماوس الأيمن

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

تعيين نوع البيانات

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

نتيجة اختصار الأرقام

تلميح: إذا كنت بحاجة فقط إلى عرض الأرقام الكبيرة بالآلاف («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 مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   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.

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