logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





  • غير مجابة
13-05-2022 05:23 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 05-11-2021
رقم العضوية : 23147
المشاركات : 7
الجنس :
تاريخ الميلاد : 30-10-1987
قوة السمعة : 12
الاعجاب : 0

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


فى الملف المرفق كيفيه عمل معادله فى عمود b (المبلغ بحد اقصى مائه الف جنيه)  بحيث اذا كان فى خانه المبلغ الاجمالى اكثر من مائه الف جنيه يكتب مائه الف جنيه اما اذا كان اقل فيكتب المبلغ نفسه طالما اقل من مائه الف جنيه


ومعادله اخرى بعد اذنكم يتم تقسيم المبلغ فى العمود b (المبلغ بحد اقصى مائه الف جنيه ) الى شرائح من


اول شريحه من 1 الى 10000 من المبلغ يضرب الرقم فى 6/10000 ويوضع الناتج فى خانه ما يتحمله الموظف


من 10001 الى 40000 يضرب الرقم فى 12/10000 ويوضع الناتج فى خانه مايتحمله الموظف + قيمه ضرب اول 10000 فى 6/10000


من 50000 الى 100000 يضرب الرقم فى 24/10000 ويوضع الناتج + قيمه الناتج من  اول شريحتين 


اخيرا فى خانه مايتحمله الموظف اقل مبلغ لا يقل عن جنيه واحد ويكون الحد الاقصى فى هذا العمود هو ناتج ضرب خانه الاساسى *12*5/1000 =


وباقى المبلغ يكتب فى خانه ما تتحمله الحكومه

 
 
  Book2.xlsx   تحميل xlsx مرات التحميل :(9)
الحجم :(9.762) KB





look/images/icons/i1.gif عمل معادلات بحد اقصى
  02-04-2023 06:17 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 449
الجنس :
تاريخ الميلاد : 29-12-1985
قوة السمعة : 1085
الاعجاب : 0
وعليكم السلام
استخدم هذا الكود وعدل عليه
CODE
Sub CalculateSlices()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row 'احتساب عدد الصفوف الغير فارغة في العمود A
    
    Dim i As Long
    For i = 2 To lastRow 'البدء من الصف الثاني ، حيث أن الصف الأول يحتوي على عنوان العمود
    
        Dim amount As Double
        amount = Cells(i, "A").Value 'احتساب قيمة المبلغ من العمود A
        
        Dim slice1 As Double
        slice1 = 0
        Dim slice2 As Double
        slice2 = 0
        Dim slice3 As Double
        slice3 = 0
        
        If amount <= 10000 Then 'تحديد الشريحة المناسبة
            slice1 = Round(amount * 6 / 10000, 0)
        ElseIf amount > 10000 And amount <= 40000 Then
            slice1 = Round(10000 * 6 / 10000, 0)
            slice2 = Round((amount - 10000) * 12 / 10000, 0)
        ElseIf amount > 40000 And amount <= 100000 Then
            slice1 = Round(10000 * 6 / 10000, 0)
            slice2 = Round(30000 * 12 / 10000, 0)
            slice3 = Round((amount - 40000) * 24 / 10000, 0)
        Else
            MsgBox "المبلغ المدخل يتجاوز المبلغ الأقصى المسموح به."
            Exit Sub
        End If
        
        Cells(i, "B").Value = slice1 + slice2 + slice3 'تحديد القيمة النهائية للمبلغ في العمود B
        
    Next i
End Sub




look/images/icons/i1.gif عمل معادلات بحد اقصى
  06-04-2023 01:03 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 364
الجنس :
تاريخ الميلاد : 13-10-1973
قوة السمعة : 503
الاعجاب : 3
تفضل اخي الكريم
لعله المطلوب
 
 
  Book2.zip   تحميل zip مرات التحميل :(1)
الحجم :(16.997) KB





اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تحويل المعادلات إلى أكواد Convert Formulas To VBA YasserKhalil
27 5608 Yasser Albanna
كيف يتم ثنيت الاعمده فى المعادلات فى حاله التعامل مع الجداول EM_ACC
5 183 EM_ACC
اصلاح معادلات استدعاء بيانات ahmed moh
2 188 ahmed moh
حل مشكلة تهنيج المعادلات ف شيت الاكسل zaki123
1 195 zaki123
اكسل vbaحماية الخلايا التى تحتوى على معادلات فى كل اوراق العمل دفعة واحدة emad ghazi
5 2023 الراعدي

الكلمات الدلالية
معادلات ، اقصى ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:50 AM