كيفية اختصار الأرقام في Excel؟
عند العمل مع مجموعات بيانات كبيرة في Excel، من الشائع مواجهة أرقام كبيرة يمكن أن تجعل ورقة العمل مزدحمة وتُصعِّب قراءة البيانات أو تحليلها. على سبيل المثال، قد يؤدي عرض القيم مثل 1,234,567 أو 12,000,000 إلى إغراق المشاهدين بالمعلومات، خاصةً في اللوحات التفاعلية أو التقارير الموجزة. في مثل هذه الحالات، يساعد اختصار الأرقام (مثل تحويل 1234567 إلى 1.23M أو 12000 إلى 12K) في تعزيز الوضوح والحفاظ على تصميم مضغوط. يقدم هذا البرنامج التعليمي عدة حلول عملية لاختصار الأرقام في Excel، بما في ذلك التنسيق المدمج، الصيغ، وماكرو VBA. كل خيار مناسب لسيناريوهات مختلفة حسب تفضيلاتك ومتطلبات سير العمل.
![]() | ![]() | ![]() |
اختصار الرقم | اختصار باستخدام صيغة Excel | اختصار الأرقام باستخدام ماكرو VBA
اختصار الرقم
إحدى الطرق المباشرة لاختصار الأرقام في Excel هي تخصيص تنسيقات الأرقام من خلال مربع الحوار 'تنسيق الخلايا'. هذه الطريقة تغير فقط عرض الأرقام، وليس قيمها الأساسية، مما يعني أن الحسابات التي تستخدم هذه الخلايا تظل دقيقة. هذا مفيد جدًا للتقارير السريعة أو عندما تحتاج الأرقام إلى التحديث تلقائيًا دون إضافة أعمدة إضافية. ومع ذلك، ضع في اعتبارك أن هذه الطريقة لن تعطيك نتائج نصية أو تسمح بوحدات مختلطة (مثل M و K في نفس العمود) مع منطق معقد - الصيغ أو الماكرو تكون أفضل لذلك.
1. حدد نطاق الأرقام التي تريد اختصارها. بعد ذلك، انقر بزر الماوس الأيمن في أي مكان داخل النطاق المحدد واختر 'تنسيق الخلايا' من قائمة السياق.
2. في مربع الحوار 'تنسيق الخلايا'، انتقل إلى تبويب الأرقام، وحدد 'مخصص' من القائمة على اليسار، وفي حقل النوع أدخل: [>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
وفقًا لذلك.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد