طريقة لحساب l'irg تغنيك عن استعمال البارام
شارك بالموضوع على صفحتك
خاص لمستخدمي الاكسل في حساب الاجور
اولا فتح الاكسال
2- اضغط alt +f11
3- يفتح الفيزوال بازيك
4- الذهاب الى insert userform
5- module
6- ثم نسخ الدالة التالية
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
ولصقها في book1
7- اضغط على run sub يظهر مربع ال macro قم بتسمية الماكرو مثلا iirg واضغط على create ثم اضغط على run sub ثم حفض
وبعدها انتقل الى ورقة العمل
8- اضغط على fx يظهر لك ادراج دالة قم باختيار الكل
ثم ابحث عن الدالة التي سميتها irg
ثم تحديد الخانات التي يحسب لها الirg ولتكن ةعلى الاقل خانتين او اكثر على سبيل المثال
نحدد الخانة التي تحتوي على نتيجة ال irg ثم ندرج الدالة irg التي نحدد فيها مثلا a1+a2+a3 ثم ok
شارك بالموضوع على صفحتك
خاص لمستخدمي الاكسل في حساب الاجور
اولا فتح الاكسال
2- اضغط alt +f11
3- يفتح الفيزوال بازيك
4- الذهاب الى insert userform
5- module
6- ثم نسخ الدالة التالية
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
ولصقها في book1
7- اضغط على run sub يظهر مربع ال macro قم بتسمية الماكرو مثلا iirg واضغط على create ثم اضغط على run sub ثم حفض
وبعدها انتقل الى ورقة العمل
8- اضغط على fx يظهر لك ادراج دالة قم باختيار الكل
ثم ابحث عن الدالة التي سميتها irg
ثم تحديد الخانات التي يحسب لها الirg ولتكن ةعلى الاقل خانتين او اكثر على سبيل المثال
نحدد الخانة التي تحتوي على نتيجة ال irg ثم ندرج الدالة irg التي نحدد فيها مثلا a1+a2+a3 ثم ok