طلب تحويل المعادلات الى اكواد

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

 

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

اخواني الكرام هذا ملف عبرة عن فاتورة

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

 

 

 

=H60*F60 الى =H10*F10   من
=SUM(I10:I60)
=H62+H61-H63

 

 

تحويل المعادلات الى اكواد.zip

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

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

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

يمكنك الاستفادة من الموضوع التالي في حل مشكلتك بنفسك إن شاء الله

من هنا

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

اخي ياسر خليل أبو البراء على ما عطا قيد الأمر وضيح هونا

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

[ياسر العربى]

استعمل هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 6 Then
        If Target.Row > 9 And Target.Row < 61 Then
            Target.Offset(, 3).Value = Target.Offset(, 2).Value * Target.Value
            [H61] = Application.WorksheetFunction.Sum(Range("I10:I60"))
            [H64] = [H61] + [H62] - [H63]
        End If
    End If
End Sub

 

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

جزاك الله خيرا ياسر العربى

مشكلة في الكود لا يستجيب في الخانة H63 / H62

 

الحيض في الفيديو

https://youtu.be/-TImo49TtRA

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

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

طلب ضبط الكود

[ياسر العربى]

لم اشاهد الفيديو ولكن تفضل التعديل
 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$H$62" Or Target.Address = "$H$63" Then [H64] = [H61] + [H62] - [H63]
    If Target.Column = 6 Then
        If Target.Row > 9 And Target.Row < 60 Then
            Target.Offset(, 3).Value = Target.Offset(, 2).Value * Target.Value
            [H61] = Application.WorksheetFunction.Sum(Range("I10:I60"))
            [H64] = [H61] + [H62] - [H63]
        End If
    End If
End Sub

 

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

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

اخي ياسر العربي هذا هو المطلوب

جزاك الله خير وبارك الله فيك واثابك الله الجنه ان شاء الله

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

تم تعديل سبتمبر 5, 2016 بواسطه محمد عبدالسلام

[ياسر العربى]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$H$62" Or Target.Address = "$H$63" Then [H64] = [H61] + [H62] - [H63]
    If Target.Column = 8 Then
        If Target.Row > 9 And Target.Row < 60 Then
            Target.Offset(, 1).Value = Target.Offset(, -2).Value * Target.Value: GoTo 86
        End If
    End If
    If Target.Column = 6 Then
        If Target.Row > 9 And Target.Row < 60 Then
            Target.Offset(, 3).Value = Target.Offset(, 2).Value * Target.Value
86          [H61] = Application.WorksheetFunction.Sum(Range("I10:I60"))
            [H64] = [H61] + [H62] - [H63]
        End If
    End If
End Sub

 

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

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

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

[قلم-الاكسل(عبدالعزيز)]

هذه طريقة يسال عنها جميع الفاهمين كي تغير المعادله الى كود

واشكركم ع الموضوع والاجابة