السلام عليكم ورحمة الله وبركاته ، هذه محاولة من أخيكم بخصوص حساب الضريبة في ملف إكسل ، احاول شرح كيفية استعمالها.
1- تفضل بفتح برنامج اكسل ، قم أولا بالدخول الى الخيارات ، قم باختيار أمان الماكرو ، اختر بعدها مستوى *ضعيف*
2- قم بالضغط على الزر الايمن للفأرة تظهر لك قائمة اختر التعليمات البرمجية بالعربية أو visualiser le code باللغة الفرنسية بعدها تفتح لك صفحة التعليمات البرمجية
3- قم بالنقر على insertion اختر module تفتح لك صفحة لادراج التعليمات البرمجية.
4- انسخ هذه التعليمات البرمجية والصقها بها.
Function irg(i)
i = Format(i, "000.00")
p = Right(i, 4)
If i > 15000 Then
If i > 15000 And i < 22510 Then
irg = (i - p - 15000) / 5
End If
If i >= 22510 And i < 28760 Then
irg = ((i - p - 22500) * 0.12) + 1500
End If
If i >= 28760 And i < 30010 Then
irg = ((i - p - 28750) / 5) + 2250
End If
If i >= 30010 Then
irg = ((i - p - 30000) / 10 * 3) + 2500
End If
End If
End Function
5- انقر على débogage ثم انقر compiler vbaproject
6- اغلق هذه الصفحة ، ثم عد ورقة العمل بنفس الملف ، ثم افرض خانة الخاضع للضريبة مثلا a1 واختر خانة أخرى من اجل ناتج العملية مثلا b1 ضع فيها هذه الدالة: =irg(a1)
في الاخير أؤكد لو اتبعت الخطوات ، ستكون النتيجة مضبوطة.
الرجاء لمن جربها أن يرد ويقيم هذه المحاولة. وشكرا للجميع .
اليكم صفحة اكسس 2003 لحساب الضريبة:
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الموضوعالأصلي : طريقة جديدة لحساب الضريبة خاصة بالجزائريين // المصدر :