كود لجمع خلايا محددة

[الســـــــاهر]

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

 

اخواني اسرة اوفيسنا المحترمين

 

ارجو ان تكونو جميعا بصحة و رضا من الله سبحانه

 

اعزائي اريد عمل كود بحيث اني لو قمت بتحديد خليتين او اكثر يعطيني مجموعهم في الخليه A1  مثلا

 

ارجو ان تكون المسألة واضحة

 

 

و مشكورين  مقدما و جزاكم الله خير

 

 

[أبو حنــــين]

ضع مثل هذا في الورقة التي تحتوي على ارقام

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("w1").Formula = "=sum(" & Selection.Address & ")"
Range("A1") = Range("w1").Value
Range("w1") = ""


End Sub

[عبدالله باقشير]

السلام عليكم

 

الشكر واصل لاخي الحبيب ابو حنين

هذا تعديل طفيف على الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = Evaluate("SUM(" & Target.Address & ")")
End Sub

تحياتي

[الســـــــاهر]

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

 

اشكر الاستاذ ابو حنين والاستاذ باقشير على المساعدة لكن للاسف لم يعمل الكود

 

ارفقت ملف للإيضاح

 

ارجو ان يكون هناك حلا

 

عفوا بعد تجربة الكود الاول وجدته يعمل بشكل جيد

 

اشكر الاستاذ ابو حنين والاستاذ باقشير

 

وياليت لو ان امكن تعديل الكود الثاني لتعم الفائدة

وشكرا لكم 

Book1.rar

[أبو حنــــين]

شاهد المرفق

Book1.rar

[أبو حنــــين]

و ان اردت الجمع بدون تحديد خلايا استعمل الكود التالي

Private Sub CommandButton1_Click()

Range("A1").Value = 0
Range("A1").Value = Val(Application.WorksheetFunction.Sum(ActiveSheet.UsedRange)) / 2

End Sub

[الســـــــاهر]

هذا هو المطلوب و زيادة

 

 

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

 

والشكر موصول للاستاذ عبدالله باشقير

 

فعلا ماقصرتم

[أبو حنــــين]

العفو أخي : الساهر

[محمد ابو البـراء]

رائع استاذنا ابو حنين.......... :fff: :fff:

[أبو حنــــين]

جزاك الله خيرا اخي محمد

[قنديل الصياد]

جزاك الله خير استاذنا ابو حنين

جزاك الله خيرا استاذنا عبد الله باقشير

تم تعديل يناير 1, 2014 بواسطه قنديل الصياد

[أبو حنــــين]

السلام عليكم

أخي قنديل الصياد

حفظكم الله و رعاكم

[Yasser Fathi Albanna]

عمل رائع أستاذنا الرائع / أبو حنين وأستاذنا القدير عبد االله باقشير

وكل عام وأنتك بخير

مع دوام التوفيق

[أبو حنــــين]

السلام عليكم

أخي ياسر فتحي

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