ابو اياد ( الاسيوطى ) قام بنشر يونيو 19, 2013 قام بنشر يونيو 19, 2013 (معدل) السلام عليكم ورحمة الله وبركاتة الاخوة الاعضاء انا صراحة تعبت واللى تعب اكتر الاستاذ عبد الله المجرب والاستاذ طارق محمود ولكنهم لم يتوقفوا عن مساعدتى بارك الله فيهم فأنا ارى ان معطياتى قليلة او غير واضحة للحلول المطلوبة فأرجو ان يوفقنى الله هذه المرة المطلوب واضح جدا فى الملف المرفق وهذا مختصرة هناك خليتان بهما تاريخ الاولى- تاريخ يكتب باليد ( هو تاريخ فترة الصلاحية ) يتم وضعه وتعديلة بيد المدير ، ليقوم المستخم بأدخال بيانات فى نطاق معين ( النطاق ذو اللون الاخضر بملفى المرفق ) الثانية - تاريخ معادلة 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 بواسطه الاب الروحى
ابو اياد ( الاسيوطى ) قام بنشر يونيو 20, 2013 الكاتب قام بنشر يونيو 20, 2013 اعتقد ان الموضوع صعب ولكنة قادم فى التطور قد وجدت فكرة عسى ان تسد الثغرة ويمكن تنفيذها هى تجميد كل يوم يمضى من تاريخ معادلة اليوم today ارجو من اى عضو لة اى فكرة لتنفيذ حتى اى جزء من المطلوب يقوم بعملها وشكرا لكم جميعا
طارق عبد الحكيم قام بنشر يونيو 20, 2013 قام بنشر يونيو 20, 2013 السلام عليكم أخي الكريم هذه محاولة مني علها تفي بالغرض جرب هذه المعادلة : 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 والله الموفق
ابو اياد ( الاسيوطى ) قام بنشر يونيو 24, 2013 الكاتب قام بنشر يونيو 24, 2013 (معدل) الاخ الكريم طارق محمد لم يفى الكود بالغرض ومرفق شيت year بة فكرة جديدة لا اريد ان يرجع التاريخ للوراء نهائيا فقط الى الامام وطول ما فترة الصلاحية اكبر يمكن ادخال البيانات اما اذا تعدى تاريخ اليوم تاريخ الصلاحية لا يمكن ان يتم التعديل فى تاريخ االيوم بتأخير تاريخ الكمبيوتر حتى يدخل المستخدم فترة الصلاحية مرة اخرى حالة واحدة فقط تسمح بأدخال البيانات مرة اخرى هى تعديل تاريخ الصلاحية باليد فى الخلية ولكم جزيل الشكر project acc gf2.rar تم تعديل يونيو 24, 2013 بواسطه الاب الروحى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.