اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

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

Untitled.jpg

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

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

قام بنشر

كود جميل جدا

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

عيدكم مبارك

  • Thanks 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information