تحميل مجانى شيت اكسل المخازن ( وارد – منصرف – مرتجعات – اهلاك – تقارير)

بسم الله الرحمن الرحيم

اهلا بكم متابعى موقع عالم الاوفيس

 كيفية حساب مجموع الخلايا  اوتوماتيكيا بدون معادلات وتقليل حجم البيانات

درس جديد وكود جديد من مكتبة اكواد اكسل Excel VBA

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

الكود 

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("c2:c5000")) Is Nothing Then

Cells(Target.Row, 4) = Cells(Target.Row, 2) * Cells(Target.Row, 3)

End If

End Sub

نلاحظ من خلال هذا الكود اننا استخدمنا الدالة Intersect وهى دالة تقاطع العمود مع الصف واستخدمنا ايضا Target وذلك لتحديد الخلية الهدف 

كود سهل وبسيط جدا ان شاء الله هيفيدكم فى شغلكم

عزيزى الزائر 

لاتقرأ ... وترحل

ضع بصمتك .... شاركنا برائيك
لمشاهدة شرح الية عمل الكود يرجى مشاهدة الفيديو

لتحميل ملف العمل من هنا