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

في كثير من الحالات ، قد تحتاج إلى جمع كل الأرقام في خلية واحدة. على سبيل المثال ، توجد سلسلة نصية فئة 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 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء...

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

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

اقرأ أكثر... تحميل مجاني ... شراء...

التعليقات (8)

لا يوجد تقييم. كن أول من يقيم!

عمر

منذ حوالي 6 سنوات

#18397

تم تصغير هذا التعليق بواسطة المشرف على الموقع

شكرًا جزيلاً ، فكرة الوحدة مدهشة! لم أكن أعرف أنه موجود

رد

دان

منذ حوالي 5 سنوات

#20430

تم تصغير هذا التعليق بواسطة المشرف على الموقع

تكمن مشكلة هذه الأداة في أنها تضيف كل الأرقام. المشكلة هي 125 + 2 ليست 127. الأداة ستضيفها كـ 1 + 2 + 5 + 2. لست متأكدًا من فائدة ذلك لشخص يحتاج إلى إضافة جميع الأرقام. حتى في المثال لا يبدو الأمر منطقيًا أو يبدو عمليًا. هل فاتني شيء؟

رد

مايكل دان

منذ حوالي 3 أشهر

#40977

تم تصغير هذا التعليق بواسطة المشرف على الموقع

غير صحيح إذا تم إدخال الأرقام في الخلية بشكل منفصل ، على سبيل المثال 125 2 وتم إدخال الصيغة في الخلية التالية. ستحسب الخلية التي تحتوي على الصيغة 127.

رد

كريستال مايكل

منذ حوالي 2 أشهر

#41369

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا مايكل،
آسف على الخطأ. الرجاء إدخال رمز فبا التالي في نافذة الوحدة النمطية (الرمز) ، ثم قم بتطبيق هذه الصيغة: = 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

رد

بلغ

منذ حوالي 5 سنوات

#23398

تم تصغير هذا التعليق بواسطة المشرف على الموقع

يمكنك أيضًا بسهولة كتابة "=" في الخلية. لذلك إذا كانت لديك خلية بحجم 3 ولكنك تريد إضافة 1 + 2 فستكون "= 1 + 2" في الخلية

رد

لوان زيتلر

منذ حوالي 3 سنوات

#30458

تم تصغير هذا التعليق بواسطة المشرف على الموقع

لدي قائمة بالأرقام التي أريد إضافتها تلقائيًا 30 لكل رقم في كل خلية مفردة. هل هذا ممكن؟

رد

ميجلي

منذ حوالي 3 سنوات

#30584

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كيف أقوم بإضافة +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. أفعل ذلك يدويًا ، ولكن ربما توجد طريقة سريعة للقيام بذلك؟

رد

إريك هاموند

منذ حوالي سنة واحدة

#36938

تم تصغير هذا التعليق بواسطة المشرف على الموقع

يعمل رمز وظيفة VBA جيدًا. شكرًا لك.

رد

لا توجد تعليقات منشورة هنا حتى الآن

اترك تعليقاتك

النشر كضيف

الدخول

الاسم (مطلوب)

البريد الإلكتروني (مطلوب)

قيم المنشور:

إعادة تعيين

0 الشخصيات

أنا أوافق على أحكام وشروط