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

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


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

لو سمحت انا عايز اعرف الدالة المستخدمة ف هذه الحالة ..
حساب قيمة الاستهلاك مع العلم ان  فارق القراءة معلوم والشروط هى  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
رابط هذا التعليق
شارك

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