جمع قيم الخلايا التي قبلها علامة صح

[abdellahgh]

السلام عليكم ورخمة الله وبركاته إخواني الكرام

 جمع الخلايا التي قبلها علامة صح

وجزاكم الله خيراجمع الخلايا المحددة التي بها علامة صح.xlsmجمع الخلايا المحددة التي بها علامة صح.xlsm

[Ali Mohamed Ali]

وعليكم السلام اخى الكريم-كان عليك من البداية استخدام خاصية البحث فى المنتدى فقد تم تناول هذا الموضوع بالضبط هنا

https://www.officena.net/ib/topic/88079-إضافة-عنصر-تحكم-لجمع-خلايا-محددة/?tab=comments#comment-556263

[Ali Mohamed Ali]

تفضل لك ما طلبت

 

جمع الخلايا المحددة التي بها علامة صح.xlsm

[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
'نهاية الكود

 

[abdellahgh]

بارك الله فيك أستاذ

وشكراً لكم من أعماق قلبي على عطائكم الدائم

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