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

[محمد عبدالسلام]

طلب معادلة لجمع الفاتورة  كود من نطاق i10  الى نطاق i60   تم الجمع الفاتو رة في i61 تم هد المعادلة =+I62+I61-I63

العطارتمسنا_2015_07_21.zip

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

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

Sub Test()
    With Sheet1
        .Range("I61") = Application.Sum(.Range("I10:I60"))
        .Range("I64") = Application.Sum(.Range("I61"), .Range("I62")) - Val(.Range("I63"))
    End With
End Sub

عله يكون المطلوب

[محمد عبدالسلام]

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

 

 

 

تم هد المعادلة =+I62+I61-I63

تم تعديل سبتمبر 3, 2015 بواسطه محمد عبدالسلام

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

أخي الكريم

هل تم الطلب الأول بشكل مضبوط وتم المطلوب ؟

بالسبة للطلب الثاني يحتاج لتوضيح بالنتائج المتوقعة ..؟؟ ارفق ملف معبر عن الطلب رجاءً

[محمد عبدالسلام]

بارك الله فيك اخي ياسر خليل أبو البراء على جهودك

اريد  ضرب الكمية في سعر الكمية في عمود f   سعر في عمود H

تم تكون القيمة في عمود I  ابتداء من من سطر 10 الى سطر 60

تم الجمع في  i 61

العطارتمسنا_2015_07_21.zip

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

جرب الكود

Sub Test()
    Dim I As Long
    With Sheet1
        For I = 10 To .Cells(60, "F").End(xlUp).Row
            .Cells(I, "I") = .Cells(I, "F") * .Cells(I, "H")
        Next I
        .Range("I61") = Application.Sum(.Range("I10:I60"))
        .Range("I64") = Application.Sum(.Range("I61"), .Range("I62")) - Val(.Range("I63"))
    End With
End Sub

 

[محمد عبدالسلام]

 اخي ياسر خليل أبو البراء بارك الله فيك وجعله في ميزان حسناتك هذا هو الكود المطلوب

لكن توجد مشكلة صغيرا في الكون ما يشتغل تلقائي لما يتم تعبئة الفاتورةعليا في كل مرة الى محرر الاكواد وتسعل من زر

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

يمكن إنشاء زر أمر في الورقة التي تعمل بها ثم كليك يمين ثم اختر الأمر Assign Macro واختر اسم الماكرو المراد تنفيذه ..

أو يمكن تنشيط حدث ورقة العمل وهذا لا أحبذه كثيراً حيث أنه مع كل تغيير سيتم تنفيذ الكود ..

ببساطة خلص شغلك املا بياناتك نفذ الكود مرة وانتهى الأمر

تقبل تحياتي

[محمد عبدالسلام]

هل من طريقة لاشتغال الكود تلقائيا دون الضغط على الزر

تم تعديل سبتمبر 3, 2015 بواسطه محمد عبدالسلام

[محمد عبدالسلام]

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

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

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

أخي الكريم جرب الكود التالي في حدث ورقة العمل

كليك يمين على اسم ورقة العمل ثم View Code ثم الصق الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 9 Then
        If Target.Column = 6 Or Target.Column = 8 Then
            Application.ScreenUpdating = False
            Dim I As Long
            With Sheet1
                For I = 10 To .Cells(60, "F").End(xlUp).Row
                    .Cells(I, "I") = .Cells(I, "F") * .Cells(I, "H")
                Next I
                .Range("I61") = Application.Sum(.Range("I10:I60"))
                .Range("I64") = Application.Sum(.Range("I61"), .Range("I62")) - Val(.Range("I63"))
            End With
            Application.ScreenUpdating = True
        End If
    End If
End Sub

 

[محمد عبدالسلام]

جزاك الله خيرا اخي ياسر خليل أبو البراء وارجو المعذرة الكود لم يشتغال في الخانة 62/63

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

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

أخي الفاضل

لم تذكر أي شيء في شرحك في المشاركات السابقة عن الخليتين على الإطلاق

....

أنا لا أفهم الشغل في ملفك وشغل الفواتير والكلام ده ..إنت من المفترض أن تشرح ما يتم عمله في كل خلية وعلى أي أساس ...

وضح المطلوب عمله في الخلايا المشار إليها وكيف تتعامل معه بطريقة حسابية

[محمد عبدالسلام]

جزاك الله خيرا اخي ياسر خليل أبو البراء

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

 

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

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

إذاً أضف الكود الأخير الذي تم به حل المشكلة ليستفيد به غيرك من المتابعين للموضوع (الدنيا مش أخد وبس ..الدنيا أخد وعطا)

[محمد عبدالسلام]

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

بارك الله فيك على هذه النصيحة والافادة جزاكم الله خير

 

 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 9 Then
        If Target.Column = 6 Or Target.Column = 8 Then
            Application.ScreenUpdating = False
            Dim I As Long
            With Sheet1
                For I = 10 To .Cells(60, "F").End(xlUp).Row
                    .Cells(I, "I") = .Cells(I, "F") * .Cells(I, "H")
                Next I
                .Range("I61") = Application.Sum(.Range("I10:I60"))
                Range("I64").Formula = "=+I62+I61-I63"
            End With
            Application.ScreenUpdating = True
        End If
    End If
End Sub

 

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

أخي الكريم

أين الإضافة التي أضفتها للكود يرجى التوضيح ... توضيح إضافتك للكود

إذا كنت تقصد هذا السطر

Range("I64").Formula = "=+I62+I61-I63"

فلقد تم التعامل معه بالكود مسبقاً

فما الفائدة من إخراجه على شكل معادلة ؟

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

[محمد عبدالسلام]

لا اعرف  اخي ما المشكلة حتى أضفتها للكود هدا السطر

على كل حال حتى الكود الاول من من كتاباتك ايضان بارك الله فيك وجعله في ميزان حسناتك جمعة مباركة عليكم