رجاء تحويل معادلة الى كود

[المشاغب الصغير]

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

رجاء تحويل المعادلة الموجودة في الخلية H الي كود ولو امكن انه لل تتم كتابة المعادلة الا بعد كتابة السعر والكمية احدهما او كلهما مع كل الشكر

Book1.rar

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

السلام عليكــــــم

جـــرب الـــمرفق هل تقصد بهذه الطريقة

Book111.rar

[طارق محمود]

السلام عليكم

تفضل الملف (مرفق)

وهذا هو الكود في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)

r = Target.Row: c = Target.Column

If r < 4 Or r = 65536 Then Exit Sub

If c <> 4 And c <> 7 Then Exit Sub

If IsEmpty(Cells(r, 4)) Or IsEmpty(Cells(r, 7)) Then Cells(r, 8).ClearContents: Exit Sub

If IsEmpty(Cells(r, 4)) And IsEmpty(Cells(r, 7)) Then Exit Sub


Cells(r, 8).FormulaR1C1 = "=RC[-1]*RC[-4]"

End Sub

تحويل المعادلة الي كود.rar

[طارق محمود]

عفوا حبيبي / أبوحنين

لم أر ردك إلا بعد أن رددت

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

اخي الحبيب الاستاذ طارق :

مشاركاتك دائما لها طعم خاص

كما ان تنوع الحلول يعطي فرصة للسائل ليختار الحل المناسب له

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

[المشاغب الصغير]

اخي الحبيب ا.أبو حنين

اخي الحبيب ا.طارق محمود

اقدر تعبكم جدا جار التجربة واتوقع انه يكون اكثر روعة مما طلبت