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

محمد ديب · يوليو 9, 2013

يا ريت شرح

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

**أبو حنــــين** · يوليو 9, 2013

السلام عليكم

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

مثال 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

محمد ديب · يوليو 9, 2013

الف شكر

محمد ديب · يوليو 9, 2013

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

**أبو حنــــين** · يوليو 9, 2013

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

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

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

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

محمد ديب · يوليو 9, 2013

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

الردود الموصى بها