معين (أبو دواس) قام بنشر أبريل 10, 2014 مشاركة قام بنشر أبريل 10, 2014 السلام عليكم اخباركم عساكم طيبين طرحت موضوعي قبل يومين وهو بخصوص كيفية ادراج تاريخ تلقائي بدون مايدخل المستخدم نفترض ان لدي عمودين A و B العمود A فيها الاسماء والعمود الاخر فيه التاريخ التلقائي بحيث لو كتبت اي شي في العمود A يظهر تاريخ اليوم بعمود B واذا لم اكتب شي في العمود A لا يظهر التاريخ في العمود B ولقيت الاجابة من ام عبدالله الله يعطيه الصحة والعافية وكان الجواب كالتالي كتابة الامر في العمود التاريخ وهو وغيرت بعض الشي في الكود من today الى Now =IF(A2935<>"";NOW();"") وتم كتابة التاريخ لخمسة صفوف ولكن في اليوم التالي تغير التاريخ بالكامل الي التاريخ اليوم لا ادري ماهو السبب الرجاء افادتي وشكرا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 10, 2014 مشاركة قام بنشر أبريل 10, 2014 استاذ معين اليك ما طلبت (التاريخ لا يتغيّر) ليعمل الكود يجب ان تملأ كل الخانات المطلوبة و تأكد قبل اقفال الملف ان تكون اخر خلية في اخر سطر عندك مشغولة بأي شيء حتى ولو نقطة حتى لا يتغير التاريخ في اليوم التالي const.date.rar رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 10, 2014 مشاركة قام بنشر أبريل 10, 2014 ولاثراء الموضوع اخي الكريم جرب الكود التالي ... يقوم باضافة التاريخ في العمود B اذا كان الخلية في العمود A ليست فارغة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then Cells(Target.Row, 2) = Now() End If End If End Sub شاهد المرفق 2003 Book1-sama.rar 1 رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر أبريل 11, 2014 مشاركة قام بنشر أبريل 11, 2014 استاذى واخي الحبيب // حمادة عمر بارك الله فيك بصراحة كود مميز جدا ولي سؤال أخي الحبيب؟! هل يمكن تحديد اخر تعديل للشيت باكمله في خلية واحدة محددة رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 12, 2014 مشاركة قام بنشر أبريل 12, 2014 استاذ محمد في العنوان التالي تجد الاجابة على سؤالك(مواصفات الملف بين يديك) http://www.officena.net/ib/index.php?showtopic=53059 رابط هذا التعليق شارك More sharing options...
معين (أبو دواس) قام بنشر أبريل 13, 2014 الكاتب مشاركة قام بنشر أبريل 13, 2014 استاذ معين اليك ما طلبت (التاريخ لا يتغيّر) ليعمل الكود يجب ان تملأ كل الخانات المطلوبة و تأكد قبل اقفال الملف ان تكون اخر خلية في اخر سطر عندك مشغولة بأي شيء حتى ولو نقطة حتى لا يتغير التاريخ في اليوم التالي يعطيك الف عافية اخوي سليم ومشكور على جهودك... ولاثراء الموضوع اخي الكريم جرب الكود التالي ... يقوم باضافة التاريخ في العمود B اذا كان الخلية في العمود A ليست فارغة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then Cells(Target.Row, 2) = Now() End If End If End Sub شاهد المرفق 2003 Book1-sama.rar يعطيك الف عافية اخوي حمادة عمر وومشكور على مجهودك ______________________________________| الحل ممتاز جدا لكلكما وبيض الله وجيهكم ولكن ياشباب عندما اقوم بمسح شي من العمود A لا ينمسح شي من العمود B واللي هو عمود التاريخ المرتبط مع العمود A ... رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أبريل 13, 2014 مشاركة قام بنشر أبريل 13, 2014 السلام عليكم يصبح الكود كالتالي في حالة مسح قيمة من العمود A Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then Cells(Target.Row, 2) = Now() Else End If End If If Target = "" Then Target.Offset(0, 1) = "" End Sub رابط هذا التعليق شارك More sharing options...
ahmad zeiad قام بنشر أبريل 14, 2014 مشاركة قام بنشر أبريل 14, 2014 كيف بدي اعمل كووود متل هاااااد ؟؟؟؟؟؟؟؟؟؟؟؟ رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 14, 2014 مشاركة قام بنشر أبريل 14, 2014 اخي احمد ادخل على الكود وانسخه هذا كل شيء رابط هذا التعليق شارك More sharing options...
معين (أبو دواس) قام بنشر أبريل 14, 2014 الكاتب مشاركة قام بنشر أبريل 14, 2014 (معدل) السلام عليكم يصبح الكود كالتالي في حالة مسح قيمة من العمود A Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then Cells(Target.Row, 2) = Now() Else End If End If If Target = "" Then Target.Offset(0, 1) = "" End Sub يعطيك الف عافية أبو حنين ماقصرت وبيض الله وجهك ....ولكن لدي تعليق لماذا في الحذف تطلع لي رسالة error وبعدين يحدد لي صف في الكود .... وكذالك اذا جيت احذف صف كامل يطلع لي مسج error كيف اجعل الكود يعالج اخطاءة او يخفيها بدون مايطلع لي مسج تم تعديل أبريل 14, 2014 بواسطه moyen77 رابط هذا التعليق شارك More sharing options...
AOOFA قام بنشر أبريل 15, 2014 مشاركة قام بنشر أبريل 15, 2014 (معدل) السلام عليكم ورحمة الله ياريت الى اهل الخبره يفيدونا باستخدام داله لادراج التاريخ تلقائى فى عمود بناء على عمود اخر بدون ان يتم تغيره فى اليوم التالى وذلك بدالة وليس كود ونكون شاكرين جدا جدا تم تعديل أبريل 15, 2014 بواسطه AOOFA رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 15, 2014 مشاركة قام بنشر أبريل 15, 2014 يمكنك فعل ذلك كما يلي اضغط باستمرار على Ctrl و بعدها مباشرة على حرف ك باللغة العربية و لادراج الوقت اضغط باستمرار على Shift +Ctrl و بعدها مباشرة على حرف ك باللغة العربية رابط هذا التعليق شارك More sharing options...
معين (أبو دواس) قام بنشر أبريل 15, 2014 الكاتب مشاركة قام بنشر أبريل 15, 2014 الكود جدا ممتاز وكل اجابة الاعضاء جدا مميزة ومفيدة ولكن ياحبتي المشكلة في حالة نسخ صف بالكامل او حذف قيمة تطلع رسالة خطا ماهو العمل يا احبه رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أبريل 15, 2014 مشاركة قام بنشر أبريل 15, 2014 كيف اجعل الكود يعالج اخطاءة او يخفيها بدون مايطلع لي مسج ضع هذا السطر بداية الكود On Error Resume Next رابط هذا التعليق شارك More sharing options...
معين (أبو دواس) قام بنشر أبريل 16, 2014 الكاتب مشاركة قام بنشر أبريل 16, 2014 كيف اجعل الكود يعالج اخطاءة او يخفيها بدون مايطلع لي مسج ضع هذا السطر بداية الكود On Error Resume Next يعطيك الف عافية على الاضافة الجميلة ياعبدالله باقشير .،،، نعم الكود صحيح جدا ولكن صادفتني مشكلة اخرى وهي: عندنا كود جاهز للتاريخ التلقائي في حالة كتبنا شي في العمود A ينكتب التاريخ تلقائيا في العمود B وحلينا جميع المشاكل ولكن بقت اخر مشكلة وهي اذا جيت احذف اي شي من العمود A طبعا راح ينحذف التاريخ من العمود B وبدون ماتظهر لي اي رسالة خطاء ولكن المشكلة اذا جيت تكتب مرة اخرى في نفس الخلية او الخلية التي تاليها في العمود A لا يظهر التاريخ في العمود B ..... ماهو الحل ...؟؟؟؟؟؟ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان