اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

 

اخواني اريد المساعده في عمل وميض ينبهني عند انتهاء تواريخ الجوازات والاقامات الموضحه في المرفق 

 

علما انه عندي الاوفيس 2003  لو تصمم لي على 2003 و 2007 يكون احسن

 

 

 

 

تحياتي لكم احبابي الاعزاء

 

 

تاريخ انتهاء الجواز والاقامه.rar

قام بنشر

السلام عليكم
 ( ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.)
لقد تم تعديل عنوان الموضوع
فارجوا الانتباه لاحقا لهذه النقطة لكي لا يتعرض الموضوع للاغلاق
 

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي

1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.

ومخالفة ذلك تعرض الموضوع للحذف

قام بنشر

السلام عليكم

 ( ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.)

لقد تم تعديل عنوان الموضوع

فارجوا الانتباه لاحقا لهذه النقطة لكي لا يتعرض الموضوع للاغلاق

 

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة

و بصفة خاصة نؤكدعلى ما يلي

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

2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.

3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.

4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....

5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.

ومخالفة ذلك تعرض الموضوع للحذف

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

  • Like 1
قام بنشر

 الأستاذ / التوي

 

السلام عليكم ورحمة الله وبركاته

 

المويض يحتاج إلى كود عملت لك الملف بألوان عند انتهاء الجواز أو الإقامة بالتنسيق الشرطي وإن كنت تريد الوميض تحتاج إلى كود لعل أحد أساتذتي يقوم بالعمل.

 

تاريخ انتهاء الجواز والاقامه1.rar

تاريخ انتهاء الجواز والاقامه.rar

قام بنشر

أستاذنا الكبير / شوقي ربيع

 

السلام عليكم ورحمة الله وبركاته

 

جزاك الله خيراً على هذا الكود الرائع جعله الله في ميزان حسناتك. لك كل التحية والتقدير.

السلام عليكم

شكرا جزيلا لدعائك الجميل اخي الفاضلة

تحياتي لكي

قام بنشر

الاستاذ الفاضل شوقى ربيع .. الكود رائع

ولكن لماذا عند تغيير التاريخ لا يتوقف الوميض

السلام عليكم

شكرا اخي لتنبيهي بالمشكلة

تم تعديل الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sh As Worksheet
Dim r As Integer
Dim Dy
Set sh = ThisWorkbook.Sheets("Sheet1")
Start = True
Dy = Date
Do While Start
For r = 5 To 100
x = sh.Range("G" & r)
If sh.Range("G" & r) - Dy >= 0 Then
Tamer
sh.Range("H" & r).Interior.Color = 65535
Tamer
sh.Range("H" & r).Interior.Pattern = xlNoneElse
End If
Next
Loop
End Sub

تاريخ انتهاء الجواز والاقامه.rar

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information