كيفية تجميد معادلة التاريخ TODAY عن العمل بعد تاريخ معين

[ابو اياد ( الاسيوطى )]

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

الاخوة الاعضاء

انا صراحة تعبت واللى تعب اكتر

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

فأنا ارى ان معطياتى قليلة او غير واضحة للحلول المطلوبة

فأرجو ان يوفقنى الله هذه المرة

المطلوب

واضح جدا فى الملف المرفق وهذا مختصرة

 

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

 

 الاولى- تاريخ يكتب باليد ( هو تاريخ فترة الصلاحية ) يتم وضعه وتعديلة بيد المدير ،

ليقوم المستخم بأدخال بيانات فى نطاق معين ( النطاق ذو اللون الاخضر بملفى المرفق  )

 

الثانية - تاريخ معادلة TODAY ( هو تاريخ اليوم ) لجهاز الكمبيوتر ويتغير بتغيرة

 

اريد ان يتم تجميد عمل معادلة TODAY فور تجاوز تاريخها لتاريخ فترة الصلاحية

 

اى اذا قام المستخدم بمحاولة تغير التاريخ للعودة مرة اخرى للسماح لة بادخال البيانات لن تستجيب لة معادلة TODAY لأنها مجمدة

 

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

 

انتهى المطلوب

 

هناك ثغرة اعلمها واعلم ان ليس لها حل اذا قام المستخدم خلال فترة صلاحيتة بتأخير تاريخ الكمبيوتر ستكون معادلة TODAY اسيرتة بتنفيذ طلبة

 

والشكر لكم وخاصة

 

الاستاذ / عبد الله المجرب الذى يكل ولا يمل منى ومن مساعدتى ومازال يساندنى

 

الاستاذ / طارق محمود تعبتة وحيرتة وفى النهاية لم اعطية المفيد ولازال يساعدنى

 

 

ملحوظة

 

هناك موضوع قريب جدا من طلبى هو تجميد الوقت وقام الاستاذ / طارق محمود بأجابتة

 

رابط الموضوع

 

http://www.officena.net/ib/index.php?showtopic=41226

 

كود الحل

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
[A1].Value = [A1]
If [B2] = "" Then [A1].FormulaR1C1 = "=NOW()"
End Sub

والملف الموجود بة الحل مرفق ايضا هو تجميد الوقت

project acc gf2.rar

تجميد الوقت.rar

تم تعديل يونيو 19, 2013 بواسطه الاب الروحى

[ابو اياد ( الاسيوطى )]

اعتقد ان الموضوع صعب ولكنة قادم فى التطور قد وجدت فكرة عسى ان تسد الثغرة ويمكن تنفيذها

هى تجميد كل يوم يمضى من تاريخ معادلة اليوم today

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

 

وشكرا لكم جميعا

[طارق عبد الحكيم]

السلام عليكم 

 

أخي الكريم هذه محاولة مني علها تفي بالغرض

 

جرب هذه المعادلة :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$H$2" Then Exit Sub
[E2].Value = [E2]
If [H2] < [E2] Then
[E2].FormulaR1C1 = "=TODAY()"
Else
[E2].Value = "التاريخ المحدد مجمد"
End If
End Sub

والله الموفق

[ابو اياد ( الاسيوطى )]

الاخ الكريم طارق محمد لم يفى الكود بالغرض

 

ومرفق شيت year بة فكرة جديدة لا اريد ان يرجع التاريخ للوراء نهائيا فقط الى الامام وطول ما فترة الصلاحية اكبر يمكن ادخال البيانات اما اذا تعدى تاريخ اليوم تاريخ الصلاحية

لا يمكن ان يتم التعديل فى تاريخ االيوم بتأخير تاريخ الكمبيوتر حتى يدخل المستخدم فترة الصلاحية مرة اخرى

 

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

project acc gf2.rar

تم تعديل يونيو 24, 2013 بواسطه الاب الروحى