Jump to content
أوفيسنا

مساعدة في vba


Go to solution Solved by deathlessster,

Recommended Posts

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

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

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

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

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

Untitled.jpg

Link to comment
Share on other sites

  • Solution
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
Link to comment
Share on other sites

كود جميل جدا

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

عيدكم مبارك

  • Thanks 1
Link to comment
Share on other sites

Join the conversation

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

Guest
Reply to this topic...

×   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.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...

Important Information