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

كيفية جمع أو إضافة الأرقام في خلية واحدة في إكسيل؟

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

جمع الأرقام في خلية واحدة بوظيفة معرّفة من قبل المستخدم
جمع الأرقام بسهولة في خلية واحدة بعدة نقرات فقط


جمع الأرقام في خلية واحدة بوظيفة معرّفة من قبل المستخدم

يمكنك جمع الأرقام في خلية واحدة باستخدام الوظيفة المعرفة من قبل المستخدم أدناه.

1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح تطبيق Microsoft Visual Basic نافذة.

2. في ال تطبيق Microsoft Visual Basic الإطار، انقر فوق إدراج > وحدة. ثم انسخ VBA أدناه إلى ملف وحدة نافذة.

فبا: جمع الأرقام في خلية واحدة

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
	Dim arr As Variant
	Dim xIndex As Long
	arr = Split(pWorkRng, xDelim)
	For xIndex = LBound(arr) To UBound(arr) Step 1
		SumNums = SumNums + VBA.Val(arr(xIndex))
	Next
End Function

3.Press قديم + Q مفاتيح لإغلاق تطبيق Microsoft Visual Basic نافذة.

4. حدد خلية فارغة لإخراج النتيجة. أدخل الصيغة أدناه واضغط على أدخل المفتاح (A2 هي الخلية التي ستجمع فيها أرقامًا مفردة).

=SUMNUMS(A2)

5. ثم اسحب مقبض التعبئة لخلية النتيجة لتطبيق الصيغة على الخلايا الأخرى المطلوبة.

ملاحظة: لا تنطبق هذه الوظيفة المعرفة من قبل المستخدم على الخلايا بتنسيق الأرقام.


جمع الأرقام بسهولة في خلية واحدة بعدة نقرات فقط

كوتولس ل إكسيلالصورة جمع الأرقام في الخلية يمكن أن تساعد الصيغة في جمع الأرقام بسهولة في خلية واحدة (بما في ذلك خلية تنسيق النص وخلية تنسيق الأرقام) بنقرات عديدة فقط.

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. حدد خلية فارغة لإخراج الدقة. ثم انقر فوق كوتولس > مساعد الصيغة > مساعد الصيغة.

2. في ال مساعد الصيغة مربع الحوار ، يرجى تكوين على النحو التالي.

2.1) ابحث واختر جمع الأرقام في الخلية في ال اختر صيغة صندوق؛
نصائح: يمكنك التحقق من تصفية في المربع ، اكتب كلمة أساسية لتصفية الصيغة التي تحتاجها.
شنومكس) في الموبايل مربع ، حدد خلية تحتوي على الأرقام التي ستجمعها ؛
شنومكس) انقر فوق OK زر. انظر لقطة الشاشة:

3. ثم يتم ملء النتيجة في الخلية المحددة. حدد خلية النتيجة ، ثم اسحب مقبض التعبئة لأسفل للحصول على النتائج الأخرى.

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30-يوم) من هذه الأداة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


جمع الأرقام بسهولة في خلية واحدة باستخدام Kutools for Excel


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (8)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً ، فكرة الوحدة مدهشة! لم أكن أعرف أنه موجود
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تكمن مشكلة هذه الأداة في أنها تضيف كل الأرقام. المشكلة هي 125 + 2 ليست 127. الأداة ستضيفها كـ 1 + 2 + 5 + 2. لست متأكدًا من فائدة ذلك لشخص يحتاج إلى إضافة جميع الأرقام. حتى في المثال لا يبدو الأمر منطقيًا أو يبدو عمليًا. هل فاتني شيء؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
غير صحيح إذا تم إدخال الأرقام في الخلية بشكل منفصل ، على سبيل المثال 125 2 وتم إدخال الصيغة في الخلية التالية. ستحسب الخلية التي تحتوي على الصيغة 127.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا مايكل،
آسف على الخطأ. الرجاء إدخال رمز فبا التالي في نافذة الوحدة النمطية (الرمز) ، ثم قم بتطبيق هذه الصيغة: = SUMNUMS (A1، "") لجمع كل الأرقام في الخلية.

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
'Updated by ExtendOffice 20221122
    If pWorkRng.CountLarge > 0 Then Exit Function
    On Error Resume Next
    Application.Volatile
    
    Dim arr As Variant
    Dim xIndex As Long
    If xDelim <> "" Then
        arr = Split(pWorkRng, xDelim)
        For xIndex = LBound(arr) To UBound(arr) Step 1
            SumNums = SumNums + VBA.Val(arr(xIndex))
        Next
    Else
        For xIndex = 1 To Len(pWorkRng) Step 1
            If IsNumeric(Mid(pWorkRng, xIndex, 1)) Then
                SumNums = SumNums + VBA.Val(Mid(pWorkRng, xIndex, 1))
            End If
        Next
    End If
End Function
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكنك أيضًا بسهولة كتابة "=" في الخلية. لذلك إذا كانت لديك خلية بحجم 3 ولكنك تريد إضافة 1 + 2 فستكون "= 1 + 2" في الخلية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي قائمة بالأرقام التي أريد إضافتها تلقائيًا 30 لكل رقم في كل خلية مفردة. هل هذا ممكن؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف أقوم بإضافة +1 رقم إلى أرقام في خلية واحدة (كلمة أو ممتاز أو مفكرة ، لا يهم). لكن في عملي غالبًا ما يكون لدي: 14,17,28,31,35,38,50,53,70,73,80,83,90,93,120,123,135,138,150,153,165,168,180,183,210,213,250,253,275,278,300,303،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX شيء من هذا القبيل.

وأحتاج إلى جعلها مثل: 15,18,29,32,36,39,51,54,71,74,81,84,91,94,121,124,136,139,151,154,166,169,181,184,211,214,251,254,276,279,301,304،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX. أفعل ذلك يدويًا ، ولكن ربما توجد طريقة سريعة للقيام بذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل رمز وظيفة VBA جيدًا. شكرًا لك. 
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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