على متولى قام بنشر مايو 17, 2021 مشاركة قام بنشر مايو 17, 2021 من قضلكم تكمله الفاتورة عنوان مخالف ... تـــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك كهرباء 2021.xls رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مايو 17, 2021 أفضل إجابة مشاركة قام بنشر مايو 17, 2021 جرب هذا الملف الكود 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 2 رابط هذا التعليق شارك More sharing options...
على متولى قام بنشر مايو 19, 2021 الكاتب مشاركة قام بنشر مايو 19, 2021 (معدل) السلام عليكم ورحمة الله وبركاته بسم الله الرحمن الرحيم جزاكم الله خيرا كهرباء 07-2021.xlsx وجعل كل ايامكم رضا وكل عام وحضرتك وكل احبابك والمسلمين والعالم فى خير ورضا نتاج التعلم والاستفادة من اساتذة المنتدى الافاضل ( جامعة أوفيسنا ) والذين يستحقون مقاعد التدريس بأكبر الجامعات والسلام عليكم ورحمة الله وبركاته تم تعديل مايو 19, 2021 بواسطه على متولى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.