اريد تحويل الدالة الى vba متقدم

[ابوحمزه المصرى]

السلام عليكم ورحمة الله وبركاته .. اخوانى الافاضل بارك الله فيكم جميعاً

اريد تحويل الدالة   الى vba متقدم باستخدام for next  مثلا او شئ مختصر وسريع لان كمية البيانات كبيرة جداً 

الملف  vbaالدوال الى.rar

[ابراهيم الحداد]

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

انسخ هذا الكود فى موديول جديد وخصص له زر

Sub SumCols()
LR = Range("A" & Rows.Count).End(xlUp).Row + 1
For R = 2 To LR Step 2
x = 0
For C = 8 To 1 Step -1
x = x + Cells(R - 1, C)
Cells(R, C) = x
Next
Next
End Sub

 

[ابوحمزه المصرى]

2 ساعات مضت, ابوحمزه المصرى said:

اريد تحويل الدالة   الى vba متقدم باستخدام for next  مثلا او شئ مختصر وسريع لان كمية البيانات كبيرة جداً 

 

اخي الكريم زيزوالعجوز

 

كود جميل ومبدع وهو المطلوب تماماً 

بارك الله فيك وجزاك الله خيرا