كيفية زيادة عدد على كل ارقام خلايا الاكسل

[مصطفى العراقي1988]

السلام عليكم ورحمة الله 

اخواني في الملف المرفق مجموعة ارقام واريد زيادة عدد معين على كل ارقام خلايا الاكسل 

ماهي المعادلة التي اقوم بها بذلك ولكم جزيل المحبة 

جدول المبتدئين.xlsx

[lionheart]

Not so clear but try

Sub Test()
    Dim c As Range
    For Each c In Range("A1").CurrentRegion.Cells
        If IsNumeric(c.Value) Then c.Value = c.Value + 1
    Next c
End Sub

 

[مصطفى العراقي1988]

الاخ الكريم @lionheart

اشكرك جزيل الشكر لمشاركتك وجزاك الله خير الجزاء على ردك 

لكن ألا يوجد معادلة يكون استخدامها بدلا من الكود؟ 

[أبو إيمان]

بعد إذن الأستاذ  lionheart

 

يمكن باستخدام عمود مساعد في نفس الشيت وبعد اجراء المعادلة تقوم بنسخ  كافة نطاق الخلايا ولصق القيم 

أو التطبيق في شيت أخر ثم النسخ ولصق القيم في الشيت المطلوب 

والأفضل هو الكود لانه سوف يوفر كثيرا من الوقت