نداء لأهل الخبره

[ammar113]

تحيه الى كل الأعضاء السلام عليكم

اخوان انا طالب جامعه ومحتاج داله أكسل تعمل بالشكل التالي

عدد دورات المحرك ٥ دوره بالدقيقة تعطي طاقه ١٠ فولت

والداله الي محتاجها مثلا انا غيرت الدورات الى ١٠ حتى تعطيني ٢٠ فولت او الى ١٥ حتى تعطيني ٣٠ فولت 

وعند انتهاء إيقاف البرنامج المفروض يحسب الناتج ١٠+٢٠+٣٠= ٦٠ فولت

واكون شاكرا لكم وتحياتي 

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

وعليكم السلام 

جرب الدالة المعرفة التالية

Function CaculateVolt(cycle As Variant)
	Application.Volatile
    Static x
    
    If IsEmpty(cycle) Then x = 0
    x = x + cycle

    CaculateVolt = x * 2
End Function

اكتب في الخلية B1 المعادلة التالية

=CaculateVolt(A1)

الآن جرب إدخال عدد الدورات في الخلية A1 ، اكتب 5 ستجد النتيجة أصبحت 10 ، ثم اكتب الرقم 10 ستجد النتيجة 30 ، ثم اكتب الرقم 15 ستجد النتيجة 60 .. إذا أردت عمل إعادة ضبط للقيمة فقط قم بمسح محتويات الخلية A1

تقبل تحياتي

[ammar113]

تسلم اخي الغالي ع ردّك السريع 

ياليت ترفقها ع شكل ملف أكسل جاهز ولَك فائق الشكر والتقدير ع تواصلك

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

افتح أي ملف إكسيل .. 

اضغط Alt + F11 للدخول لمحرر الأكواد

من قائمة Insert أدرج موديول جديد Module

انسخ الدالة المعرفة وضعها داخل الموديول الجديد

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