أخي الحبيب // محمد
بعد اذن أخي الحبيب الأستاذ/ أحمد فضيلة
لعملية الجمع بالكود او بكود المعادلة
مثال بسيط كالتالي
وسوف اقوم بجمع البيانات في العمود (( C )) بكود المعادلة والجمع في عمود ((D )) بالكود
ولاحظ الفرق بين الكودين
1- الجمع بكود المعادلة
Sub Sum_Formula()
Range("c2:c4").Formula = "=sum(a2,b2)"
End Sub
2- الجمع بالكود
Sub Sum_Code()
Dim myrng As Range, myc As Range
Dim i As Integer
Set myrng = Sheets(1).Range("d2:d4")
myrng.ClearContents
For Each myc In myrng
myc = Application.WorksheetFunction.Sum(Range("a" & myc.Row, Range("b" & myc.Row)))
Next myc
End Sub
لاحظ الفرق
في الكود الأول وهو بالمعادلة
في النطاق من "C2:C4" قم بوضع المعادلة التالية حاصل جمع العمودين A&B
=sum(a2,b2)
لكن بالكود
الوضع مختلف حيث حددنا المتغيرات
ونطاق البيانات
والنتيجة في النطاق (D2:D4)
واتمني اكون قد وفقت في توصيل المعلومة لك
التطبيق بالمرفقات
حاول تطبيق المثال بتغير النطاق
والله ولي التوفيق
الجمع.rar