عمر الجزاوى قام بنشر فبراير 5, 2020 مشاركة قام بنشر فبراير 5, 2020 السلام عليكم بعد البحث فى النت وجدت هذا الكود وهو يظهر لى هذه الرسالة مطلوب تعديل بسيط على هذا الكود حتى يظهر لى رسالة اخرى كم باقى على يوم الاستحقاق وتبدأ هذه الرسالة فى الظهور ان كان الباقى للموظف شهر حتى تاريخ الاستحقاق وكل يوم تنقص يوم ويكون نص الرسالة الاتى تاريخ اليوم باقى على تاريخ الاستحقاق مثلا 30 يوم للموظف 1 وكل يوم تنقص يوم يعنى فى اليوم الثانى يكون 29 يوم مثال موظف 5 تاريخ استحقاقه يوم 14 / 2 / 2020 المفروض يعطينى رسالة تفيد بان الباقى له 9 ايام وهكذا وشكرا على ماتقدموه لنا ملحوظة فى امكانية جعل النص فى نصف الرسالة برنامج لتنظيم الوقت والمواعيـــــــــــد.xlsm رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر فبراير 5, 2020 مشاركة قام بنشر فبراير 5, 2020 اخي تفضل هذا التعديل ليس من تخصصي البرمجة ولكن قمت ببعض التعديل لعله يفي بالغرض Private Sub Workbook_Open() Dim I As Long, LR As Long Dim N As String LR = ورقة1.Range("b" & Rows.Count).End(xlUp).Row For I = 4 To LR If Cells(I, 3) = Cells(I, 3).Value Then N = Cells(I, 2).Text Cells(I, 3).Interior.ColorIndex = 3 Cells(I, 3).Font.ColorIndex = 2 Cells(I, 3).Font.Bold = True MsgBox ("اليوم /" & " " & Date - Cells(I, 3).Value & _ vbCrLf & " " & "هو تاريخ استحقاق الاستاد / " & " " & N & _ vbCrLf & " " & " الساعة الان" & " " & Left(Format(Now(), "HH:MM AM/PM"), 6) & IIf(Format(Now(), "HH:MM") >= 13, "صباحا", "مساء")), 64, "التاريخ والتوقيت" Else Cells(I, 3).Interior.ColorIndex = xlNone Cells(I, 3).Font.ColorIndex = xlAutomatic Cells(I, 3).Font.Bold = False End If Next I End Sub 1 رابط هذا التعليق شارك More sharing options...
عمر الجزاوى قام بنشر فبراير 12, 2020 الكاتب مشاركة قام بنشر فبراير 12, 2020 بعد اذنكم قمت بتعديل على الشيت فارجو المساعدة برنامج لتنظيم الوقت والمواعيـــــــــــد 11.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالفتاح في بي اكسيل قام بنشر فبراير 12, 2020 أفضل إجابة مشاركة قام بنشر فبراير 12, 2020 تفضل اخي على حسب ما فهمت منك ارجو ان يكون هذا طلبك برنامج لتنظيم الوقت والمواعيـــــــــــد 11.xlsm 1 رابط هذا التعليق شارك More sharing options...
عمر الجزاوى قام بنشر فبراير 12, 2020 الكاتب مشاركة قام بنشر فبراير 12, 2020 رائع استاذ في بي ايه اكسيل شكرا كثير رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر فبراير 12, 2020 مشاركة قام بنشر فبراير 12, 2020 العفو جيد انه المطلوب تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان