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

مشكلة في ادراج التاريخ التلقائي


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

السلام عليكم اخباركم عساكم طيبين

 

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

نفترض ان لدي عمودين A  و B

 

العمود A فيها الاسماء والعمود الاخر فيه التاريخ التلقائي

بحيث لو كتبت اي شي في العمود A يظهر تاريخ اليوم بعمود B

 

واذا لم اكتب شي في العمود A  لا يظهر التاريخ في العمود B

 

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

 

كتابة الامر في العمود التاريخ وهو وغيرت بعض الشي في الكود من today الى Now

 

=IF(A2935<>"";NOW();"")

 

وتم كتابة التاريخ لخمسة صفوف ولكن في اليوم التالي تغير التاريخ بالكامل الي التاريخ اليوم لا ادري ماهو السبب الرجاء افادتي وشكرا

رابط هذا التعليق
شارك

استاذ معين

اليك ما طلبت (التاريخ لا يتغيّر)

ليعمل الكود يجب ان تملأ كل الخانات المطلوبة

و تأكد قبل اقفال الملف

ان تكون اخر خلية في اخر سطر عندك مشغولة بأي شيء حتى ولو نقطة حتى لا يتغير التاريخ في اليوم التالي

const.date.rar

رابط هذا التعليق
شارك

ولاثراء الموضوع اخي الكريم

جرب الكود التالي ...

يقوم باضافة التاريخ في العمود 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

  • Like 1
رابط هذا التعليق
شارك

استاذى واخي الحبيب //  حمادة عمر

بارك الله فيك

بصراحة كود مميز جدا

ولي سؤال أخي الحبيب؟!

هل يمكن تحديد اخر تعديل للشيت باكمله في خلية واحدة محددة

رابط هذا التعليق
شارك

استاذ معين

اليك ما طلبت (التاريخ لا يتغيّر)

ليعمل الكود يجب ان تملأ كل الخانات المطلوبة

و تأكد قبل اقفال الملف

ان تكون اخر خلية في اخر سطر عندك مشغولة بأي شيء حتى ولو نقطة حتى لا يتغير التاريخ في اليوم التالي

 

يعطيك الف عافية اخوي سليم ومشكور على جهودك...

ولاثراء الموضوع اخي الكريم

جرب الكود التالي ...

يقوم باضافة التاريخ في العمود 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

 

attachicon.gifBook1-sama.rar

يعطيك الف عافية اخوي حمادة عمر وومشكور على مجهودك

______________________________________|

 

الحل ممتاز جدا لكلكما وبيض الله وجيهكم ولكن ياشباب عندما اقوم بمسح شي من العمود A  لا ينمسح شي من العمود B واللي هو عمود التاريخ المرتبط مع العمود A  ...

رابط هذا التعليق
شارك

السلام عليكم

يصبح الكود كالتالي في حالة مسح قيمة من العمود 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

رابط هذا التعليق
شارك

 

السلام عليكم

يصبح الكود كالتالي في حالة مسح قيمة من العمود 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  

كيف اجعل الكود يعالج اخطاءة او يخفيها بدون مايطلع لي مسج

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

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

ياريت الى اهل الخبره يفيدونا باستخدام داله لادراج التاريخ تلقائى فى عمود بناء على عمود اخر بدون ان يتم تغيره فى اليوم التالى وذلك بدالة وليس كود  ونكون شاكرين جدا جدا

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

يمكنك فعل ذلك  كما يلي

اضغط باستمرار على    Ctrl     و بعدها مباشرة على حرف  ك  باللغة العربية

 

و لادراج الوقت 

اضغط باستمرار على     Shift +Ctrl     و بعدها مباشرة على حرف  ك  باللغة العربية

رابط هذا التعليق
شارك

 

 

كيف اجعل الكود يعالج اخطاءة او يخفيها بدون مايطلع لي مسج

 

 

 

ضع هذا السطر بداية الكود

On Error Resume Next

يعطيك الف عافية على الاضافة الجميلة ياعبدالله باقشير .،،، نعم الكود صحيح جدا ولكن صادفتني مشكلة اخرى وهي:

عندنا كود جاهز للتاريخ التلقائي في حالة كتبنا شي في العمود A  ينكتب التاريخ تلقائيا في العمود B وحلينا جميع المشاكل

ولكن بقت اخر مشكلة وهي اذا جيت احذف اي شي من العمود A  طبعا راح ينحذف التاريخ من العمود B وبدون ماتظهر لي اي رسالة خطاء

ولكن المشكلة اذا جيت تكتب مرة اخرى في نفس الخلية او الخلية التي تاليها في العمود A  لا يظهر التاريخ في العمود B .....  

 

ماهو الحل ...؟؟؟؟؟؟

رابط هذا التعليق
شارك

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