بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
deathlessster
-
Posts
4 -
تاريخ الانضمام
-
تاريخ اخر زياره
Community Answers
-
deathlessster's post in مساعدة في vba was marked as the answer
Dim rA As Range For Each rA In Columns("d").SpecialCells(xlConstants, xlNumbers).Areas rA.Cells(rA.Cells.Count + 1).Formula = "=SUM(" & rA.Address & ")" Next rA يقوم بوضع نتيجة جمع مدى معين في اخر خلية فارغة اسفل المدى بعد تشغيل الموديول ومن ثم المدى التالي في نفس العمود وهكذا ارجو ان يكون مفيد للجميع ..اسف للتاخر بالرد