MPC قام بنشر نوفمبر 12, 2019 مشاركة قام بنشر نوفمبر 12, 2019 اريد تعديل الكود حتى يمكننى اظهار رسالة تنبيه في بداية فتح الشيت في حالة تجاوز أي موظف من اصل 800 موظف لعدد (7) أيام متصلة أو (15) يوم متفرقة حتى يتم ارسال انذار فصل له Sub test Dim z As String %Dim y%: Dim x y = 2 x = 3 (z = Cells(x, y if z= "غياب" then (" غياب لمدة يوم واحد ")&(MsgBox Cells(3, 1 End If End Sub رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر نوفمبر 12, 2019 أفضل إجابة مشاركة قام بنشر نوفمبر 12, 2019 كان عليك رفع ملف للمعالجة لكن بامكانك تجربة هذا الشيء Abscence.xlsx 2 رابط هذا التعليق شارك More sharing options...
MPC قام بنشر نوفمبر 12, 2019 الكاتب مشاركة قام بنشر نوفمبر 12, 2019 هذا هو الملف المطلوب Book1.xlsm رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر نوفمبر 12, 2019 مشاركة قام بنشر نوفمبر 12, 2019 السلام عليكم تم إضافة معادلة أخي الكريم سليم بتصرف طفيف (حسب ما تريد) وتم أيضا التعديل على الكود ليقوم بالعمل نفسه وبالشروط نفسها (في عمود آخر) وما يبقى إلا برمجة هذا الكود ليعمل تلقائيا عند فتح الملف (وعند التعديل على البيانات)... بن علية حاجي Book1 (3).xlsm 1 رابط هذا التعليق شارك More sharing options...
MPC قام بنشر نوفمبر 12, 2019 الكاتب مشاركة قام بنشر نوفمبر 12, 2019 بن علية حاجي - سليم حاصبيا جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.