أبوســـارة1973 قام بنشر يوليو 27, 2010 مشاركة قام بنشر يوليو 27, 2010 بواسطة الكود كيف استطيع أن أحصل على ناتج مجموع خلايا في نطاق مختار بواسطة الضغط على زر ماكرو بحيث يكون الناتج في الخلية A1 على سبيل المثال : الحصول على ناتج جمع خلايا في نطاق مختار رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 27, 2010 مشاركة قام بنشر يوليو 27, 2010 جرب الكود التالي Dim rng1 As Range, rng2 As Range Set rng1 = Range("A1") Set rng2 = Selection rng1 = Application.WorksheetFunction.Sum(rng2) رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 27, 2010 مشاركة قام بنشر يوليو 27, 2010 أخي العزيز / أبو سارة هل ما تقصد بالمرفق . تحياتي أبو عبدالله جمع الخلايا المحددة.rar رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 27, 2010 مشاركة قام بنشر يوليو 27, 2010 أخي العزيز / أبو البراء كما تلاحظ بين ردك وردي ربما أقل من دقيقة مما جعلنا نرد في نفس الوقت تقريباً وطبعاً الله ينور عليك . أخي العزيز / أبو سارة بالمرفق تم إضافة ميزة إمكانية أيضاً تحديد مكان وضع ناتج الجمع . تحياتي أبو عبدالله جمع الخلايا المحددة في مكان تحدده.rar رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر يوليو 27, 2010 الكاتب مشاركة قام بنشر يوليو 27, 2010 (معدل) أخي العزيز أبو البراء أخي أبوعبدالله رفع الله قدركما ، وقضى حاجتكما ، وأسعد أيامكما بالخير والصحة والعافية أخي أبو البراء حصلت على كود من الموقع الأجنبي الذي أحلتني عليه مسبقافي الموضوع ( Sum of Cells Within the Selected Range (vba) ، وقمت بالتعديل عليه ليناسب حاجتي حيث المطلوب هو تحديد مجموعة خلايا تحتوى على أرقام( بالفأرة ) والضغط على زر Ctrl واختيار خلية أخرى بالفأرة أيضا( مع الاستمرار بالضغط على زرCtrl ) وعند الضغط على زر الفأرة الأيمن يعطي المطلوب دون الحاجة لزر ماكرو . شاهد الملف المرفق : أخوك : أبو زينب ، وسارة، وجنات 12.rar تم تعديل يوليو 27, 2010 بواسطه abusarah73 رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 28, 2010 مشاركة قام بنشر يوليو 28, 2010 السلام عليكم ما شاء الله عليك يا ابو عبدالله دائما مبدع جزاك الله خيرا ------ وهنا فكرتين الاولى عند اختيار مدى محدد يتم طباعة مجموع الخلية في الخلية 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 رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 28, 2010 مشاركة قام بنشر يوليو 28, 2010 أخي العزيز / أبو سارة أشكرك على كلماتك الرقيقة ، وأشكرك على الكود الرائع الذي أوردته وأتمنى لك التوفيق دائماً أخي الحبيب / عماد أشكرك من كل قلبي على مرورك الكريم وكلماتك الجميلة وعلى أفكارك الرائعة . مع حبي وتقديري أبو عبدالله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان