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

[أبوســـارة1973]

بواسطة الكود

كيف استطيع أن أحصل على ناتج مجموع خلايا في نطاق مختار بواسطة الضغط على زر ماكرو بحيث يكون الناتج في الخلية A1 على سبيل المثال :

الحصول على ناتج جمع خلايا في نطاق مختار

[ياسر خليل أبو البراء]

جرب الكود التالي

Dim rng1 As Range, rng2 As Range

Set rng1 = Range("A1")

Set rng2 = Selection

rng1 = Application.WorksheetFunction.Sum(rng2)

[أبوعبد الله]

أخي العزيز / أبو سارة

هل ما تقصد بالمرفق .

تحياتي

أبو عبدالله

جمع الخلايا المحددة.rar

[أبوعبد الله]

أخي العزيز / أبو البراء

كما تلاحظ بين ردك وردي ربما أقل من دقيقة مما جعلنا نرد في نفس الوقت تقريباً وطبعاً الله ينور عليك .

أخي العزيز / أبو سارة

بالمرفق تم إضافة ميزة إمكانية أيضاً تحديد مكان وضع ناتج الجمع .

تحياتي

أبو عبدالله

جمع الخلايا المحددة في مكان تحدده.rar

[أبوســـارة1973]

أخي العزيز أبو البراء

أخي أبوعبدالله

رفع الله قدركما ، وقضى حاجتكما ، وأسعد أيامكما بالخير والصحة والعافية

أخي أبو البراء

حصلت على كود من الموقع الأجنبي الذي أحلتني عليه مسبقافي الموضوع ( Sum of Cells Within the Selected Range (vba) ، وقمت بالتعديل عليه ليناسب حاجتي حيث المطلوب هو تحديد مجموعة خلايا تحتوى على أرقام( بالفأرة ) والضغط على زر Ctrl واختيار خلية أخرى بالفأرة أيضا( مع الاستمرار بالضغط على زرCtrl ) وعند الضغط على زر الفأرة الأيمن يعطي المطلوب دون الحاجة لزر ماكرو .

شاهد الملف المرفق :

أخوك : أبو زينب ، وسارة، وجنات

12.rar

تم تعديل يوليو 27, 2010 بواسطه abusarah73

[الحسامي]

السلام عليكم

ما شاء الله عليك يا ابو عبدالله دائما مبدع

جزاك الله خيرا

------

وهنا فكرتين

الاولى عند اختيار مدى محدد يتم طباعة مجموع

الخلية في الخلية a2 ولكن باستخدام حدث الاختيار

الثانية : اختيار المدى ومن ثم الضغط على اي خلية

في الجدول المقابل ويظهر الناتج في الخلية المختارة مباشرة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("b2:d29")) Is Nothing Then

Application.ScreenUpdating = False

If Target.Cells.Count > 0 Then [a2] = Application.WorksheetFunction.Sum(Selection)

End If



If Not Intersect(Target, Range("f2:m29")) Is Nothing Then

Application.ScreenUpdating = False

If Target.Cells.Count > 1 Then Exit Sub

Range("f2:m29").ClearContents

Target = [a2]

End If


End Sub

جمع خلايا.rar

[أبوعبد الله]

أخي العزيز / أبو سارة

أشكرك على كلماتك الرقيقة ، وأشكرك على الكود الرائع الذي أوردته وأتمنى لك التوفيق دائماً

أخي الحبيب / عماد

أشكرك من كل قلبي على مرورك الكريم وكلماتك الجميلة وعلى أفكارك الرائعة .

مع حبي وتقديري

أبو عبدالله