إدخال التاريخ تلقائيا فى بداية الصف

[alkalil]

صممت صفحة لإدخال بيانات يومية مكتب كمبيوتر وأريد أن أدخل تاريخ اليوم مرة واحدة فى خانة التاريخ وعند إدخال أى بيان فى صف تالى للصف الأول أن يتم كتابة التاريخ تلقائيا فى الخلية المقابلة للصف الجديد .

حاولت العثور على دالة تحاول اختبار كل خلية فى مدى معين (الصف) لتكشف إن كانت تحتوى على رقم فيتم كتابة محتوى قيمة الخلية السابقة وإن لم يكن تركت خالية . لكن دوال

IsBlank ، وما شابهها تختبر خلية واحدة فقط وليس كل خلية فى المدى .

أرجو الإفادة .

[محمد طاهر عرفه]

لنفرض أنك تريد تسجيل تاريخ اليوم فى العمود B بعد تعديل أي قيمة فى كل سطر

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then
 If Range("B" & Target.Row) <> Now Then Range("B" & Target.Row) = Now
End If
End Sub

adddateToColBonchange.rar

[alkalil]

بسم الله الرحمن الرحيم

شكرا جزيلا أخ محمد كود رائع وبسيط وجميل جدا ووفى بغرضه فى برنامجى .

أشكرك على ردك لى فى أول استفسار منى للمجموعة وأرجو لها كل توفيق ، وأرجو ألا أكون خالفت قواعد المنتدى .

[محمد طاهر عرفه]

أهلا بك

بالنسبة للاشارة لقواعد المشاركة

هي موجودة فى توقيعي الشخصي الذي يظهر فى أول مشاركة لي فى أي موضوع بصفة تلقائية

و مشاركاتك هذه نموذجية و لا تخالف القواعد :d

مع تحياتي

[malik68]

الاخ محمد طاهر

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

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

تم تعديل نوفمبر 23, 2006 بواسطه malik68

[malik68]

اخ محمد طاهر

بارك الله فيك على المساهمة القيمة ولكن عندي ملف حاولت ادخال هذا الكود عليه ولكنه لا يتم تفعيل الكود الإ بالضغط على خانة الرصيد مرتين وعندما تظهر المعادلة مباشرة يتم تفعيل الكود اليك الملف المرفق بعد اضافة الكود عليه

الملاحظ انو لو ادخل اي مبلغ في خانة المدين لا يظهر التاريخ الا بالضغط على خانة الرصيد اما في خانة الدائن يظهر بمجرد الكتابة ارجو التعديل والافادة علما بان الحماية هي 1234

____________.rar

تم تعديل نوفمبر 23, 2006 بواسطه malik68

[علي السحيب]

استبدل الكود الذي لديك بالكود التالي:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 7 Then
Range("G" & Target.Row) = Date
End If
End Sub

[malik68]

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

[علي السحيب]

في الكود السابق كان الصف المعين إدراج التاريخ به هو الصف الثاني وليس السابع .. هذا أولاً .. وثانياً كان الكود يعمل بعد تحرير أي خلية وليس عند التنقل بين الخلايا.