استكمال عمل فاتورة استهلاك الكهرباء

[على متولى]

من قضلكم تكمله الفاتورة

عنوان مخالف ... تـــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك

 كهرباء 2021.xls

 

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

جرب هذا الملف

الكود

Option Explicit

Function Elctric(Sm, n1, n2, n3, n4, n5, n6, n7)
Dim x#
 If Sm <= 0 Then
 Elctric = 9
 Exit Function
 End If
 Select Case Sm
  Case Is < 50: x = (50 - Sm) * n1
  Case Is < 100: x = 50 * n1 + (Sm - 50) * n2
  Case Is < 200: x = 50 * n1 + 50 * n2 + (Sm - 100) * n3
  Case Is < 350: x = 50 * n1 + 50 * n2 + 100 * n3 + _
           (Sm - 200) * n4
  Case Is < 650: x = 50 * n1 + 50 * n2 + 100 * n3 + _
            200 * n4 + (Sm - 350) * n5
  Case Is < 1000: x = 50 * n1 + 50 * n2 + 100 * n3 + _
            200 * n4 + 350 * n5 + (Sm - 650) * n6
  Case Else: x = 50 * n1 + 50 * n2 + 100 * n3 + _
            200 * n4 + 350 * n5 + 650 * n6 + (Sm - 1000) * n7
 End Select
 Elctric = x
End Function

الملف مرفق

Electric.xlsm

[على متولى]

 

السلام عليكم ورحمة الله وبركاته 
بسم الله الرحمن الرحيم
جزاكم الله خيرا                                  كهرباء 07-2021.xlsx
وجعل كل ايامكم رضا
وكل عام وحضرتك وكل احبابك والمسلمين والعالم فى خير ورضا

نتاج التعلم والاستفادة من اساتذة المنتدى الافاضل ( جامعة أوفيسنا ) والذين يستحقون مقاعد التدريس بأكبر الجامعات
والسلام عليكم ورحمة الله وبركاته

تم تعديل مايو 19, 2021 بواسطه على متولى