Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
سجلوا معنا  \/ 
x

or

كيفية إضافة قيم إلى خلايا متعددة في إكسيل؟

إذا كنت ترغب في إضافة قيمة إلى عدة خلايا في Excel ، فستساعدك الطرق التالية على معالجتها بسهولة وسرعة:

علامة تبويب Office تمكن من التحرير والتصفح المبوب في المكتب ، واجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ والمخططات الأكثر استخدامًا أو تعقيدًا وأي شيء آخر إلى مفضلاتك ، وأعد استخدامها بسرعة في المستقبل.
  • أكثر من 20 ميزة نصية: استخراج رقم من سلسلة نصية ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
  • أدوات الدمج: مصنفات وأوراق متعددة في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقد البيانات ؛ دمج الصفوف المكررة والمجموع.
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد لملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
  • لصق التخطي صفوف مخفية / مصفاة العد والمجموع حسب لون الخلفية؛ إرسال رسائل بريد إلكتروني مخصصة إلى مستلمين متعددين بشكل مجمع.
  • مرشح سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ تصنيف حسب: حسب الأسبوع واليوم والتكرار والمزيد ؛ تطبيق الفلتر بواسطة bold، formulas، comment ...
  • أكثر من 300 ميزة قوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الحق فقاعة أضف قيمة إلى خلايا متعددة باستخدام VBA


يمكن أن يؤدي استخدام وحدات الماكرو إلى تسهيل العديد من عمليات المعالجة المتكررة ، وجعل عملنا أسهل وأسرع. وكذلك يفعل الماكرو التالي.

الخطوة 1: حدد الخلايا التي ستضيف قيمة إليها.

الخطوة شنومكس: اضغط باستمرار ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

الخطوة شنومك: انقر إدراج > وحدة، ولصق فبا التالي في نافذة الوحدة النمطية.

Sub Add2Formula ()
أضف 300

لكل ج في التحديد
ج- التنشيط
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
التالي ج

نهاية الفرعية

الخطوة شنومك: اضغط على F5 مفتاح لتشغيل هذا الماكرو.

المكونات:

1. هذا الماكرو صالح فقط للخلايا التي لا تحتوي على صيغ بداخلها.

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


السهم الأزرق الحق فقاعة أضف قيمة إلى خلايا متعددة باستخدام Kutools for Excel

كوتولس ل إكسيل يوفر لنا طريقة بديلة سهلة الاستخدام ، ويمكن أن تساعدنا أدوات التشغيل في إضافة قيمة إلى خلايا متعددة بسهولة.

كوتولس ل إكسيل يتضمن أكثر من 80 أداة يدوية لبرنامج Excel. تجربة مجانية بدون قيود خلال 30 يومًا. احصل عليها الآن.

الخطوة 1: حدد الخلايا التي ستضيف إليها نفس القيمة.

الخطوة شنومك: انقر فوق كوتولس > عملية > أدوات التشغيل .... انظر لقطة الشاشة:

الخطوة شنومك: حدد إضافة من قسم العملية ، وأدخل القيمة التي ستضيفها إلى الخلايا المحددة. انظر لقطة الشاشة:

الخطوة 4: افحص ملف قم بإنشاء الصيغ الخيار.

الخطوة شنومك: انقر OK.

في أدوات التشغيل ،
حدد إضافة ، أدخل 300 ، وانقر فوق موافق.

كوتولس ل إكسيل أدوات التشغيل يدعم جميع أنواع العمليات الحسابية لجميع الخلايا المحددة معًا:

  • الإضافة: بالإضافة إلى معامل محدد.
  • الطرح: اطرح المعامل المحدد.
  • الضرب: كل قيمة من الخلايا مضروبة في المعامل.
  • القسمة: كل قيمة من الخلايا مقسومة على المعامل.
  • الأُس: كل قيمة للخلية تدعم المعامل.
  • التقريب: قم بتقريب كل قيمة خلية إلى الأرقام العشرية (المعامل المحدد).
  • الوظيفة: تطبيق دالة على كل قيمة خلية.
  • مخصص: أنشئ تعبيرًا يشبه الصيغة وطبقه على كل قيمة خلية.

مقالات لها صلة


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Joe Riter · 3 years ago
    If you want to include cells with formula, you could try, which is only a slight modification from the original. But adding numbers to an established formula could be dangerous so beware:


    Sub Add2Formula()
    ' Add a number
    Dim formulae As String
    Dim a_number As Double

    a_number = InputBox("what number to increment")

    For Each cell In Selection
    cell.Activate
    formulae = ActiveCell.Formula
    ' gets rid of formula non-essentials that could cause errors
    formulae = Replace(formulae, "'", "")
    formulae = Replace(formulae, "=", "")

    If formulae = "" Then
    ActiveCell.Formula = "= " & ActiveCell.Formula & "+" & a_number
    Else
    ActiveCell.Formula = "= " & formulae & "+" & a_number
    End If
    Next cell

    End Sub


    This could be easily modified to skip blank cells, and to skip text cells you could probably evaluate the value of the cell, and when it errors you could go to the next cell. Hope this helps.
  • To post as a guest, your comment is unpublished.
    Hum3 · 4 years ago
    How can I get this VBA formula to skip blank and text cells? Thanks
  • To post as a guest, your comment is unpublished.
    sharfudheen · 5 years ago
    sir.iam doing survey list in excel if a=200,b=100,c=50,d=15.e=10 for 3 questions if he selects a,b,b means 200+100+100=400 and Description should be good ..how to do this one
  • To post as a guest, your comment is unpublished.
    Fazlan · 6 years ago
    this tool is so useful and can trust the product.
  • To post as a guest, your comment is unpublished.
    Alan · 6 years ago
    any reply? will this site answer our enquiry?
  • To post as a guest, your comment is unpublished.
    Desmond · 6 years ago
    Dear Expert
    Have a question here. How to increase age automatically for each year?

    Thanks
  • To post as a guest, your comment is unpublished.
    Desmond · 6 years ago
    Add Value to multiple cells with VBA's techque is very useful

    Thanks
  • To post as a guest, your comment is unpublished.
    jorawar singh · 7 years ago
    sir if a1=100 b1=100 and after dat we want to insert 100 again in a1 den b1 should automatically update to 200 means a1 value added in b1 and so on and on. how it is possibe we have to take the two cells only. sir plz solve dis problem