كيف عمل معادله لهذا الجدول جمع تلقائي وعمل بحث للأسماء

[عبد الله السعيد]

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

 

 

انا اريد طلبين ان تكرمتم علي   مرفقين في الملف الشرح

 

 

Abdallah.rar

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

أخي عبد الله

بالنسبة للجمع ..جرب المعادلة التالية في الخلية H3

=SUM($G$3:G3)

هل هذا هو المطلوب بالنسبة للجمع التلقائي؟

أم أنك تريد الجمع التلقائي بالكود؟ أم أنك تريد الإجمالي لكل الخلايا ؟

إذا كنت تريد الناتج لكل الخلايا فجرب المعادلة بالشكل التالي :

=SUM($G$3:$G$8)

[عبد الله السعيد]

تسلم اخي ياسر ممكن الكود الأول اللي احتاجه بمشيئة الرحمن    لكن هل من طريقه لجعل الكود هذا بدلا من ظهوره في كل الخلايا تحت بعض ان يظهر فقط عندما اكون متوقف عند اجمالي معين 

 

بمعنى اخي  عندما اكون في نهاية الصف الرابع مثلا وملئت البيانات وظهرت اجمالياتها في  G6   اجد ان الكود ظهر لي في H6  وعندما انتقل لصف جديد 7 واضع مبالغ جديدة تختفى H6  ويظهر لي H7 

 

وبمعنى اخر  اريد ان لايظهر الكود الخاص بك الا اذا توقفت على اي اجمالي في الجدول  خلاف ذلك يختفى

 

 

بالنسبة للسؤال الثان للبحث منتظر اجابات من الأعضاء بارك الله فيكم

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

جرب الملف المرفق

فقط حدد أي خلية في النطاق H3:H8

Abdallah.rar

[عبد الله السعيد]

بارك الله فيك يا استاذي عمل رائع  

 

هذا الكود ممكن شرح لي ،، لأني سأضعه على ملف اكبر وجدول اكبر اخي الغالي 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("H3:H8")) Is Nothing Then
        Range("H3:H8").ClearContents
        Target.Value = Application.WorksheetFunction.Sum(Range("G3:G" & Target.Offset(0, -1).Row).Value)
    End If
End Sub

يعني ماهو اللي بقوم بتغييره اذا حبيت اغير 

مع ملاحظة اني سأطبق على اكثر من جدول في شيت واحد  يعني الصفحة الواحدة فيها جداول متعددة  مفصولة عن بعضها البعض 

تم تعديل يناير 4, 2015 بواسطه عبد الله السعيد

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

أخي الفاضل الكود واضح

والتغيير فيه سيكون سهل .. النطاق الذي تريد فيه النتائج هو H3:H8 ويعتمد على النطاق  في العمود بجواره بحيث يأتي بناتج الجمع ...كما طلبت

[عبد الله السعيد]

تمام ياغالي الكود واضح

 

انا اسألك لو عملت اكثر من جدول في نفس الشيت كيف يكون الكود هل اكرره مرارا

 

 

 

وماذا لو احد بالله عليكم يساعدني في موضوع البحث

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

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

ولكن باستخدام هذا السطر مرة أخرى مع النطاق الجديد
 

If Not Intersect(Target, Range("H3:H8")) Is Nothing Then
هنا يتم العمل على النطاق الجديد 

End If

[عبد الله السعيد]

معذرة

 

هل ممكن ارفاق ملف افضل مرفق فيه اكثر من جدول ورا بعضهم البعض لأني جربت ولم تفلح معي

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

ارفق ملفك الذي في تصورك للعمل عليه أخي الفاضل ..

[عبد الله السعيد]

تفضل استاذي  نفس الجدول مكرر اكثر من مرة

 

 

 

واتمنى المساعدة في موضوع البحث ايضاً

 

 

Abdallah3.rar

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

جرب الملف المرفق

SUM In Worksheet_Change.rar

[ا بو سليمان]

الله اكبر الله  اكبر عليك يا اخ ياسر  

 

متالق دائما ما شاء الله تبارك الله 

 

وسال الله ان  يفتح لك باب رزقه ورحمته

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

جزيت خيراً أخي الحبيب على كلماتك الرقيقة

بارك الله فيك

تقبل تحياتي

[عبد الله السعيد]

بارك الله فيك اخي ياسر

 

انا جربت الملف شغال تمام  ولكن عند ادراج صفوف خلال اي جدول  لا تعمل الدوال

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

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

[عبد الله السعيد]

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

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

قم بالتعديل في هذا السطر
 

Set RngCollection = Union(Range("H3:H8"), Range("H15:H20"), _
            Range("H27:H32"), Range("H39:H44"), Range("H50:H55"), Range("H62:H67"), Range("H74:H79"))

[عبد الله السعيد]

بارك الله فيك

 

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

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

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

فيستحيل على ما أعتقد في هذه الحالة عمل النطاق بشكل ديناميكي ...!!

والتعديل على الكود لن يستغرق منك ثواني !!

[عبد الله السعيد]

تسلم اخي الغالي

 

اتعبتك معي