ممكن تحويل هذة المعادلة الى كود

[رفيع سعد]

بسم الله الرحمن الرحيم

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

 

Book1.rar

 

تم تعديل ديسمبر 6, 2017 بواسطه رفيع سعد

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

جرب هذا الكود

لم استطع تحميل الكود بالشكل الصحيح لبطء النت

Option Explicit

()Sub Get_Formula
     "(Range("d4").CurrentRegion.Offset(1, 0).Columns(3).Formula = "=IF(C4="""","" "",B4*C4
    Range("d4").CurrentRegion.Offset(1, 0).Columns(3).Value = Range("d4").CurrentRegion.Offset(1, 0).Columns(3).Value
End Sub

 

الملف مرفق

 

Book1_salim.rar

[رفيع سعد]

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

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

14 دقائق مضت, رفيع سعد said:

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

تم التعديل

 

Book1_salim1.rar

[رفيع سعد]

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

 

تم تعديل ديسمبر 6, 2017 بواسطه رفيع سعد