جمع خليتين باستخدام الاكواد فى الاكسيل

[محمد ديب]

يا ريت شرح

جمع خليتين باستخدام الاكواد فى الاكسيل

 

[أبو حنــــين]

السلام عليكم

هناك اكثر من طريقة

مثال 1

Private Sub CommandButton1_Click()
Range("b1") = Val(Range("a1")) + Val(Range("a2"))
End Sub

مثال 2

Private Sub CommandButton1_Click()
Range("b1") = Application.WorksheetFunction.Sum(Range("A1:A2"))
End Sub

[محمد ديب]

الف شكر

[محمد ديب]

فى المثال الثانى هل يمكن تحديد الشيت الذى يتم فيه الجمع مع الشرح

[أبو حنــــين]

لو فرضنا ان الجمع يكون من خليتين موجودتين في  sheet1

و  الناتج يكون في  sheet2

فيكون الكود بالشكل التالي

Private Sub CommandButton1_Click()
Range("b1") = Application.WorksheetFunction.Sum(sheet1.Range("A1:A2"))
End Sub

[محمد ديب]

الف شكر الف شكر لحضرتك