مساعدة في vba

[deathlessster]

اخواني الاعزاء ... السلام عليكم

عيد اضحى مبارك وكل عام وانتم بخير 

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

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

ولكم جزيل الشكر

[deathlessster]

شكرا اخي العزيز على الرد 

لقد وجدتو والحمد لله الكود الخاص بطلبي 

شكرا" مرة اخرى وجزاكم الله خيرا"

[عبدالفتاح في بي اكسيل]

لماذا  لاتنشره حتى يستفيد  الاعضاء  الاخرين  

لا تبخل بمساعدة  الاخرين 

[deathlessster]

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

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

ارجو ان يكون مفيد للجميع ..اسف للتاخر بالرد

[عبدالفتاح في بي اكسيل]

على  حسب صورتك  يجب   الحساب  ايضا  في  العمود  e   ليس فقط في  العمود d ؟

[deathlessster]

اخي هذا مثال بسيط تستطيع ان تعرف مدى اخر مثلا rA1 وتكرر العملية بعد انتهاء for next  للعمود الاول او تستخدم حسب ما اعتقد ( xltoleft)

[أ / محمد صالح]

كود جميل جدا

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

عيدكم مبارك