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

مساعدة في vba


إذهب إلى أفضل إجابة Solved by deathlessster,

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

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

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

انا استخدم فورم لادخال بيانات بشكل يومي تقريبا ومعلوماتي جدا قليلة بالنسبة لاستخدام كودات 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
رابط هذا التعليق
شارك

كود جميل جدا

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

عيدكم مبارك

  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information