إضافة عنصر تحكم لجمع خلايا محددة

[سعيد 1428]

أيها الإخوة 

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

أرجو المساعدة في الملف المرفق حيث أريد أن اتحكم في الصفوف التي سيتم جمع قيمها من خلال عنصر تحكم كما هو موضح في الملف

وشكرا 

جمع صفوف محددة.xlsx

[Ali Mohamed Ali]

وعليكم السلام لك ما طلبت

 

جمع صفوف محددة.xlsm

[سعيد 1428]

أحسن الله إليكم 

أخي علي محمد علي 

[abdellahgh]

شكرا بارك الله فيك

شفت الملف من قبل وأريد الدعديل عليه ولم أستطع

الكود غير مفهوم 

التعديل عفوا

[abdellahgh]

السلام عليكم ورحمة الله وبركانه أستاذ

جزاكم الله كــــل خيرا

من فظلك ممكن  تشرح لي هذا الكود أستاذ 

Sub LinkChecks()
'Update 20150310
i = 5
For Each cb In ActiveSheet.CheckBoxes
cb.LinkedCell = Cells(i, "h").Address
i = i + 1
Next cb
End Sub

[Ali Mohamed Ali]

تفضل

Sub LinkChecks()
'بداية الكود
i = 5
'ترمز i هنا الى رقم الصف ويساوى هنا الصف الخامس
For Each cb In ActiveSheet.CheckBoxes
'كما ترمز Cb الى شيك بوكس بمعنى فى كل الشيك بوكس الموجود فى الورقة النشطة التى تعمل عليها
cb.LinkedCell = Cells(i, "h").Address
'الخلية التى يعمل عليها الشيك بوكس تبدأ فى العمود h -وكما وضحنا سابقا رقم الصف وهو 5 ,وذلك يعنى ان تبدأ من الخلية H5
i = i + 1
'وهذا السطر يعنة الصف الخامس ثم الذى يليه
Next cb
'ثم الشيك بوكس التالى
End Sub
'نهاية الكود