الرئيسية
اولا فتح الاكسال
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
ارجو منكم الدعاء لي بالصحة و العافية و الصلاح و المال الوفير هههههههه
الموضوع للامانة الموضوع منقول
أرجوا من أصحاب الخبرة تجريبه و إعطائنا رأيهم فيه
(بعد إذن الاخت سهام)
و إليكم التطبيق جاهز من إنجاز الأخت المراقبة سهام
لاتنسوها بدعوات الخير
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
و إليكم التطبيق جاهز من إنجاز الأخت المراقبة سهام
لاتنسوها بدعوات الخير
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
المزاج
