طلب بسيط جدا : صيغة معادلة جمع عمود متغير الطول

[الفدائي]

مثلا اريد جمع محتويات العمود A ويكون الناتج في اخر خلية فارغة مع العلم ان طول العمود متغير

احيانا يحتوي على بندين فقط واحيانا 15 بند

وشكرا ,,,

[الـعيدروس]

السلام عليكم

جرب هذا الكود

Public Sub alidroos_CP_SU()

ZZ = Cells(Rows.Count, 1).End(xlUp).Row + 1

Cells(ZZ, 1) = Application.WorksheetFunction.Sum(Range([A2], Cells(ZZ, 1)))

End Sub

[الفدائي]

وعليكم السلام ورحمة الله

كالعادة أخي العيدروس في سرعة الأجابة

بارك الله فيك وجعل ذلك في ميزان حسناتك وغفر لك ولوالديك

تم تعديل ديسمبر 24, 2011 بواسطه Alfidai

[عبدالله المجرب]

السلام عليكم

جرب المرفق

سيتم جمع القيم ووضع ناتجها في اخر صف بعد الضغط على الزر

========

كنت قد كتبت الكود ولاحظت مشاركة الاخ ابو نصار لذا اضيفه من باب التعددية

Abu_Ahmed_Sum.rar

[الفدائي]

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

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

طبعا استفدت من كود الاخ العيدروس (السطر الاخير فقط -جمع النطاق) لاني مسبقا تمكنت من عمل كود يقوم باختيار اخر خلية من العمود باستخدام Offset

وهذا هو :

With Worksheets(CurrentSheetName).Range("H" & Rows.Count).End(xlUp).Offset(1, 0)

.Formula = "=sum (؟؟؟؟؟؟)"


End With

فاصبحت المشكلة عندي ما هي صيغة المعادلة التي يجب كتابتها بدل ؟؟؟؟؟؟

فجزاكم الله الف خير والمرفق الذي تقدمت به حقا ممتاز

نتمنى ان نرى مشاركات تخص فيجوال بيزك والتعامل مع اكسل بصورة غير مباشرة

طبعا انا اعمل واجمع واستخلص النتائج ولا ارى ورقة اكسل بعيني بل من واجهة البرنامج فقط

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

بارك الله فيكم والسلام عليكم ورحمة الله

تم تعديل ديسمبر 24, 2011 بواسطه Alfidai

[الـعيدروس]

السلام عليكم

حلول الاساتذة الكبار دائما وابدا غير

بارك الله فيك استاذ عبدالله المجرب ونفع بعلمك