معادله جمع تلقائى

[ابن الملك]

اساتذتى الكرام 

فى المرفق عده حسابات و فى نهايه كل مجموعه من الحسابات إجمالى 

المطلوب انه فى حال وجود كلمه Total يضيف داله جمع أتوماتيكيا

وشكرا

جمع.rar

[سليم حاصبيا]

رفض الجهاز  التعامل مع الملف لكني اخترت لك هذه المعادلة

انسخ هذه المعادلة الى الخلية F5 ,واسحب نزولاً

=IF(NOT(ISNUMBER(SEARCH("TOTAL",C5))),"",(SUM($D$5:D5)/2)-SUM($F$4:F4))

 

[ابن الملك]

55 دقائق مضت, سليم حاصبيا said:

رفض الجهاز  التعامل مع الملف لكني اخترت لك هذه المعادلة

انسخ هذه المعادلة الى الخلية F5 ,واسحب نزولاً

=IF(NOT(ISNUMBER(SEARCH("TOTAL",C5))),"",(SUM($D$5:D5)/2)-SUM($F$4:F4))

 

استاذى الفاضل أ/ سليم

اشكرك لمبادرتك بالمساعده و لكننى اريد كود فيجوال لكى يقوم هو بالبحث عن كلمه total ويضع الى جوارها المجموع

أشكرك

[ابن الملك]

للرفع

[خالد الرشيدى]

السلام عليكم

اخي الكريم جرب الكود التالى -- قم باضافه قيم ثم اكتب Total ولاحظ النتائج 

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    
    If Target.Column = 3 And Target.Value Like "Total" & "*" Then
        
        Dim a As Range
        Set a = Range("C:C").Find("Total", after:=Cells(Target.Row, 3), searchdirection:=xlPrevious)
        
        Cells(Target.Row, 4).Value = WorksheetFunction.Sum(Range("D" & a.Offset(1, 0).Row & ":D" & Target.Offset(-1, 0).Row))
        Cells(Target.Row, 5).Value = WorksheetFunction.Sum(Range("E" & a.Offset(1, 0).Row & ":E" & Target.Offset(-1, 0).Row))

    End If
    
End Sub

جمع.rar

[ابن الملك]

37 دقائق مضت, خالد الرشيدى said:

السلام عليكم

اخي الكريم جرب الكود التالى -- قم باضافه قيم ثم اكتب Total ولاحظ النتائج 

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    
    If Target.Column = 3 And Target.Value Like "Total" & "*" Then
        
        Dim a As Range
        Set a = Range("C:C").Find("Total", after:=Cells(Target.Row, 3), searchdirection:=xlPrevious)
        
        Cells(Target.Row, 4).Value = WorksheetFunction.Sum(Range("D" & a.Offset(1, 0).Row & ":D" & Target.Offset(-1, 0).Row))
        Cells(Target.Row, 5).Value = WorksheetFunction.Sum(Range("E" & a.Offset(1, 0).Row & ":E" & Target.Offset(-1, 0).Row))

    End If
    
End Sub

جمع.rar

أشكرك أخى العزيز الاستاذ / خالد 

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

ولكننى لا استطيع كتابه الحسابات مره خرى فالمرفق مثال فقط لواقع ما يقرب من 250 او 300 حساب على مدار 12 شهر

انا اعجبت بكود حضرتك جدا ولكننى كنت ابحث عن كود يبحث عن كلمه " الاجمالى " ويقوم هو باضافه صف جديد ويقوم بادخال معادله الجمع بنفسه 

هل الفكره اتضحت .

بارك الله فيك وجزاك كل خير

 

[خالد الرشيدى]

السلام عليكم

يبحث عن كلمة الاجمالى - مفهومة -- ولكن يضيف صف ؟؟ اى صف -- اتقصد يضيف الاجمالى بالاعمدة المجاورة ؟ 

 

 

تم تعديل مايو 20, 2017 بواسطه خالد الرشيدى

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

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

Sub Test()
    Dim r As Range
    
    For Each r In Range("D5:D" & Cells(Rows.Count, "D").End(xlUp).Row).SpecialCells(2, 1).Areas
        r(r.Count + 1).Formula = "=subtotal(9," & r.Address & ")"
        r(r.Count + 1).Offset(, 1).Formula = "=subtotal(9," & r.Offset(, 1).Address & ")"
    Next
End Sub

 

[خالد الرشيدى]

السلام عليكم

استاذنا / ابو البراء 

كود ولا اروع -- جزاك الله عنا كل خير -- دائماً مشاركات حضرتك تمثل إضافة كبيرة 

تقبل خالص تحياتى وتقديري لشخصكم المحترم 

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

وعليكم السلام أخي الغالي خالد الرشيدي

بارك الله فيك وجزاك الله خيراً على كلماتك الطيبة .. وجزيت خيراً بمثل ما دعوت لي وزيادة

[ابن الملك]

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

بارك الله فيك أ/ خالد الرشيدى

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