مطلوب كود معرفة وقت وتاريخ تعديل أو إدخال قيمة فى خلية

[يوسف عطا]

كنت قد شاهدت موضوع فى المنتدى يتكلم عن معرفة الوقت والتاريخ الذى تم فيه تعديل أو إدخال القيم فى خلية معينة أو عمود معين

حاولت أن أجد الموضوع بالبحث بالمنتدى ولكنى فشلت

الرجاء لو حد عارف الطريقة أو عارف مكان الموضوع يدلنى عليه

ولو حد عنده الملف يبعته

الف شكر مقدماً

[الـعيدروس]

السلام عليكم

الكود في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

	    If Not Intersect(Target, Range("A2:A100")) Is Nothing Then

	    VBA.Calendar = vbCalHijri ' اذا كنت تريد التاريخ هجري

	    'VBA.Calendar = vbCalGreg ' إذا كنت تريد التاريخ ميلادي

		    With Target(1, 4) ' العمود الاول والعمود المراد كتابة التاريخ والوقت فيه

			    '.NumberFormat = "[$-1010000]yyyy/mm/dd;@" ' إذا كنت تريد التاريخ ميلادي

			    .NumberFormat = "[$-2060000]B2yyyy/mm/dd;@" ' اذا كنت تريد التاريخ هجري

			    .Value = Date & " _ " & Time  ' يظهر التاريخ مع الوقت

			    .EntireColumn.AutoFit ' توسيع العمود بقدر كبر التاريخ والوقت

		    End With

	    End If

End Sub

[عبدالله المجرب]

اخي يوسف هل تقصد هذا

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

[دغيدى]

الفاضل / العيدروس

للأسف الكود لم يعمل معى

الفاضل / أبو عبد الله

جزاكم الله

تم تعديل نوفمبر 28, 2011 بواسطه دغيدى

[عبدالله المجرب]

استاذن الفااضل جمال الدغيدي

انا جربت الكود ويعمل (يوضع في حدث الصفحة )

جرب اكتب اي شيء في اي من خلايا العمود A من الصف الثاني وتحت

[يوسف عطا]

اخي يوسف هل تقصد هذا

http://www.officena....showtopic=38975

لا يا عزيزى ليس هذا الموضوع

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

على كل حال جارى تجربة الحلول بهذا الموضوع وبالموضوع الذى أشرت سيادتكم إليه