يجزيك خير اخي ياسر
سهل و بسيط و ممتع
فقط لو تشرح لنا بنفس الطريقة
جمع الخلايا a1+b1+c1 في الخلية d1 مع السحب للاسفل
بمعنى ممكن استخدام نفس الكود في جمع الخلايا المذكورة في خلية معينة
لكن المشكل في السحب للاسفل
يصبح الكود
Sub Test()
Dim MyRange As Range
Dim X
Set MyRange = Sheet1.Range("A1:b1:c1")
X = Application.WorksheetFunction.Sum(MyRange)
Range("d1") = X
End Sub
دمت بود