حساب الترقية للموظف

[Khalid Jnb]

ارجو مساعدتي بملف اكسل لحساب ترقية الموظف كل اربع سنوات درجة وظيفية 

مع التقدير

[طلعت محمد حسن]

اخي الكريم لو سمحت ان ترفق ملف حتى تتضح الصورة والعمل على المخرجات بشكل ادق وشكرا

[Khalid Jnb]

السلام عليكم

هذا هو الملف يا اخ طلعت

مع التقدير

2.rar

[طلعت محمد حسن]

السلام عليكم

اخي خالد هل قصدك هكذا شاهد المرفق

2.rar

[Khalid Jnb]

السلام عليكم  اخي طلعت

ارفق لك اصل الجدول  مع الدرجات الوظيفية  ومدة الاستحقاق بالسنوات

مع التقدير

2.rar

[طلعت محمد حسن]

اخي خالد يتم احتساب تاريخ من بداية سنة 01/01/2016 قصدك على هذا الاساس يتم الاحتساب

[Khalid Jnb]

نعم اكيد

[طلعت محمد حسن]

تفضل اخي خالد شاهد المرفق واخبرني عن رايك

الترقية.rar

[Khalid Jnb]

تسلم اخي بارك الله فيك

مظبوط

[Khalid Jnb]

اخي طلعت بارك الله فيك

هل ممكن اظهار رسالة تنبيه عند فتح الشيت بهذه التواريخ  لاستحقاق الموظف للترقية ( اي رسالة كانت)

مع الشكر والتقدير

2.rar

[طلعت محمد حسن]

تفضل اخي العزيز خالد

ترقية2.rar

[Khalid Jnb]

السلام عليكم

اخي طلعت المحترم

انا اعرف العمل على التنسيق الشرطي   لكن عاوز رسالة تنبية تظهر عن  عن وصول الترقية لليوم المحدد 

مثلا( لديك ترقيات هذا اليوم) عند فتح ملف الاكسيل

مع التقدير

[طلعت محمد حسن]

السلام عليكم

اخي خالد غير تاريخ جهاز الكمبيوتر عندك الى اي تاريخ استحقاق موعد الترقية وافتح ملف الاكسل واخبرني بالنتيجة

اقبل تحياتي واحترامي

2.rar

[Khalid Jnb]

الحمد لله 

اخي طلعت

يعمل الملف بصورة جيده ؟ لكن عندي سؤالين؟

1- هل يمكن استبدال رقم 1  بكلمة يستحق الترقيه بالعربية في البرمجه

2- هل يمكن عمل رسالة اخرى للعلاوات السنويه

مع الشكر والاحترام

 

[طلعت محمد حسن]

لا يمكن استبدال الارقام بالكلمات وممكن تغير الرسالة بالشكل الذي تريدة

[Khalid Jnb]

اخي طلعت

اخر سؤال 

كيف يمكن تطبيق  الرسالة على  عمود كامل يحتوي على 100 اسم  (عمل رنج للخلايا )  مثل (G2:G100) على نفس الملف

بدون كتابة Or Range("G15") = 1 Or Range("G16") = 1 Or Range("G17") = 1 Or Range("G1

مع الشكر والتقدير

[طلعت محمد حسن]

اخي العزيز خالد لا يمكن فعل هذا بالطريقة التى تتطلبها نظرا لان التواريخ مختلفة في كل خلية 

[Khalid Jnb]

السلام عليكم

انا  مش على الخليه

انا اقصد  على رقم 1 او صفر  الشرط اللي وضعته انت  

[طلعت محمد حسن]

يمكن تطبيق الشرط على عامود كامل ما في مشكلة

[Khalid Jnb]

طيب كيف اعمل هذا رجاءا 

عاوز الكود لو سمحت البرمجي

[طلعت محمد حسن]

هي عبارة عن معادلة اسحبها للاسفل اخي الكريم

[Khalid Jnb]

اخي اي معادله 

انا بحكي عن الموجود في الشيت  بالبرمجه

Private Sub Workbook_Open()
æÑÞÉ1.Activate
If Range("G14") = 1 Then   هنا بدي نطاق  للعمود  من G14  الى G100
MsgBox ("åäÇß ãæÙÝíä ÊÓÊÍÞ áåã ÇáÊÑÞíÉ")
End If
End Sub

[طلعت محمد حسن]

مش فاهم عليك اخي خالد ارفق ملف فية المطلوب وشكرا

[Khalid Jnb]

ارجو تعديل Workbook_Open

ليصبح نطاق الخلايا من G14   الى G100 

وشكرا

5.rar

[طلعت محمد حسن]

اخي خالد تم تطبيق ما تريد شاهد المرفق

5.xlsm