اذهب الي المحتوي
أوفيسنا

deathlessster

عضو جديد 01
  • Posts

    4
  • تاريخ الانضمام

  • تاريخ اخر زياره

Community Answers

  1. 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 يقوم بوضع نتيجة جمع مدى معين في اخر خلية فارغة اسفل المدى بعد تشغيل الموديول ومن ثم المدى التالي في نفس العمود وهكذا ارجو ان يكون مفيد للجميع ..اسف للتاخر بالرد
×
×
  • اضف...

Important Information