بسم الله الرحمن الرحيم
اهلا بحضراتكم متابعى موقع ومدونة عالم الاوفيس
كيفية جمع اى خلايا متفرقة فى اى مكان فى ورقة العمل
درس اليوم هو سؤال لاحد الاصدقاء عن كيفية جمع اى عدد محدد من الخلايا فى اى مكان من ورقة العمل من خلال vba ؟
وللاجابة عن هذا السؤال سنحتاج الى كتابة كود vbaبسيط جداوفى هذا الكود سنقوم باخبار الاكسل اننا عندما نحدد اى مجموعة من الخلايا فى ورقة العمل يقوم بجمع القيم المحددة وعمل متوسط حسابى وعمل احصاء لعدد القيم واستخراج اكبر قيمة فى مجموعة القيم المحددة واستخراج ايضا اقل قيمة .
والان ناتى الى كتابة الكود المستخدم للاجابة عن هذا السؤال
لنفرض اننا نريد اظهار النتائج فى الخلية b1,b2,b3,b4,b5
[b1].Value = Application.WorksheetFunction.Sum(Selection)
[b2].Value = Application.WorksheetFunction.Average(Selection)
[b3].Value = Application.WorksheetFunction.Max(Selection)
[b4].Value = Application.WorksheetFunction.Min(Selection)
[b5].Value = Application.WorksheetFunction.Count(Selection)
يقوم الكود (الماكرو) بجمع جميع الخلايا المحددة وعمل متوسط حسابى لهم واستخراج اكبر قيمة واقل قيمة ايضا
كود سهل وبسيط يقوم بعدد من العمليات الحسابية دفعة واحدة
لمعرفة معلومات اكثر عن الكود يرجى متايعة الشرح الفيديو