اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

حساب قيمة الاستهلاك للكهرباء


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

لو سمحت انا عايز اعرف الدالة المستخدمة ف هذه الحالة ..
حساب قيمة الاستهلاك مع العلم ان  فارق القراءة معلوم والشروط هى  5 ريال لل 70 وات الاولى .. 9 ريال لل 80 وات التالية..15 ريال لل 200 وات التالية و 17 ريال لما زاد عن ذلك

اخوكم ما زال يدرس المحاسبة الرجاء ساعدونى :)

Screenshot001.jpg

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

أخي الكريم حسام

أهلاً بك في المنتدى ونورت بين إخوانك

قم بضغط ملفك ببرنامج الوينرار ثم قم برفعه لتجد المساعدة من إخوانك

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

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

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

5612df1d21857___.thumb.gif.0b50030245272

 

  • Like 2
رابط هذا التعليق
شارك

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

 

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

انسخ الكود من هذا الملف الى ملفك و جربه (في موديل جديد)

و اكتب الدالة التالية في الخلية  تحت فيمة الاستهلاك مباشرة واسحب نزولاً

=myfacteur(f3,5,9,17)

 

facteur_electrique.zip

  • Like 3
رابط هذا التعليق
شارك

هذا الشغل الممتاز

جزاك الله خير استاذ سليم حاصبيا

الكود رائع

لي ملاحظة وهي ان القيم المتغيرات ثلاث قيم

5 ل 70 وما دون

9 ل 80 وما دون

15 ل 200 وما دون

17 ل اعلى من 200

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

 

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

 استبدل الكود بهذا

 Function myfacteur(Myfact As Long, n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer) As Long
''''''''''''''''''''''''''''''''''''''''''
Select Case Myfact
        Case 0 To 70
          How_Many = Myfact * n1
        Case 70.00001 To 80
          How_Many = (70 * n1) + (Myfact - 70) * n2
        
        Case 80.0001 To 200
         How_Many = (70 * n1) + (10 * n2) + (Myfact - 80) * n3
       Case Is > 200.001
     How_Many = (70 * n1) + (10 * n2) + (120 * n3) + (Myfact - 200) * n4
 End Select
 
 myfacteur = How_Many
''''''''''''''''''''''''''''''''''''''''
 End Function

و يكون شكل المعادلة الجديدة

=myfacteur(f3,5,9,15,17)

 

  • Like 3
رابط هذا التعليق
شارك

خالص التحية والتقديروالشكر للاستاذ سليم حاصبيا

استاذي انا عدلت بالقيمة في الكود حسب المطلوب

والف تحية لك 

ولكل اعضاء اوفسينا الكرام

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

facteur_electrique.rar

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

في ٦‏/١٠‏/٢٠١٥ at 19:48, سلطان مختار said:

هذا الشغل الممتاز

جزاك الله خير استاذ سليم حاصبيا

الكود رائع

لي ملاحظة وهي ان القيم المتغيرات ثلاث قيم

5 ل 70 وما دون

9 ل 80 وما دون

15 ل 200 وما دون

17 ل اعلى من 200

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

 

هي بالتتالي

الاولي  ٧٠ وحدة 

التأليه ٨٠ وحدة من بعد ال ٧٠ الاولى

التالية ٢٠٠ وحدة من بعد ال ١٥٠ السابقة

التالية اكثر من ٣٥٠ وحدة السابقة

وفعلا اخر ملف نفذها بدقة 

لكود الاستاذ الرائع سليم حاصبيا

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information