اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كيفية تجميد معادلة التاريخ 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

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

اعتقد ان الموضوع صعب ولكنة قادم فى التطور قد وجدت فكرة عسى ان تسد الثغرة ويمكن تنفيذها
هى تجميد كل يوم يمضى من تاريخ معادلة اليوم 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

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

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