اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

 

Book1.rar

 

تم تعديل بواسطه رفيع سعد
رابط هذا التعليق
شارك

جرب هذا الكود

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

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

  • Thanks 1
رابط هذا التعليق
شارك

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

 

تم تعديل بواسطه رفيع سعد
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information