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

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


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

بواسطة الكود

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

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

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

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

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

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

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

تحياتي

أبو عبدالله

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

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

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

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

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

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

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

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

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

12.rar

تم تعديل بواسطه 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

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

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

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

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

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

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

أبو عبدالله

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information