هل هناك اي وسيله لاكتشاف تاريخ ادخال قيمه في الخليه او تاريخ تعديل هذه القيمه

[omogun]

هل هناك اي وسيله

لاكتشاف تاريخ ادخال قيمه

في الخليه

او تاريخ تعديل هذه القيمه

في

Excell

مثلا الخليه

D6

تم كتابه القيمه

100

بداخلها

يوم 1-1-2011

بعد عشره ايام اريد أن اعرف اليوم الذي تم ادخال هذه القيمه فيه

يعني

في يوم

10-1-2011

اضغط على شئ معين واقف على الخليه وارى النتيجه

(( لقد تم ملأ هذه الخليه في يوم 1-1-2011 ))

أرجو ان يكون الطلب واضح وفي انتظار الاجابه

-------------------------

gold_heart55@yahoo.com

[طارق محمود]

السلام عليكم

ممكن ذلك

ولكن دعنا نتفق علي أنك تريد اكتشاف تاريخ آخر تغيير في الخليه

وليس تواريخ كل التغييرات

يمكن ذلك عن طريق تخصيص عدد من الخلايا مساو لعدد الخلايا التي تريد أن تراقبها

في المثال المرفق

خصصت الخلية E4

لمراقبة الخلية B4

وبالمثل يمكن مراقبة العمود B كله بتخصيص العمود E مثلا لذلك

وبالطبع يمكن إخفاء العمود E أو عمل حماية له لكي لايتلاعب بها أحد

الكود يجب أن يكون في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)


	If Target.Column <> 2 Then Exit Sub

	If Target.Row <> 4 Then Exit Sub

  MsgBox ("You last editing of B4 was on" & [e4])

	[e4] = Date & " _ " & Time


End Sub

أنظر المرفق

اكتشاف تاريخ آخر تغيير في الخليه.rar

[عبد الفتاح كيرة]

إبداع سعادة المراقب

زادك الله علما

ونفع بك

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

شي جميل ومتقن استاذ طارق بارك الله فيك ونفع بعلمك

[طارق محمود]

أخي كيماس (عبد الفتاح)

أخي ولد المجرب (أبو أحمد)

كلنا نتعلم من بعضنا

أنا عن نفسي تعلمت منكما الكثير

جزاكما الله كل خير علي كلماتكما الطيبة

وبارك فيكما

[الـعيدروس]

السلام عليكم

الاستاذ القدير طارق محمود

اولا جزاك الله خير على الكود

انا محتاجة ضروري في عملي

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

بمعنى عدل في العمود 1 الخليه 1

يطبع اخر تعديل في العمود 2 خليه 2

ارجو تعديل الكود للاهميه

[طارق محمود]

السلام عليكم

في الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)


    	If Target.Column <> 1 Then Exit Sub

     	rr = Target.Row

    	Range("B" & rr) = Date & " _ " & Time


End Sub

كل تغير في أي خلية من العمود A

يتبعه مباشرة تسجيل وقت التغيير في الخلية المقابلة لها في العمود B

فقط يرجي تزويد عرض العمود B يدويا ليتسع للوقت والتاريخ

[معتصم محمد]

بعد إذن الأساتذة الكرام

يمكننا إستخدام الأداة Track Changes في الموضع Review » Changes » Track Changes » Highlight Changes

بعد الضغط على الأداة سيظهر لنا مربع الحوار Highlight Changes

1. نقوم بتفعيل الـ Check Box الخاص بعملية متابعة التغييرات (بتفعيل هذا الأمر فإننا بذلك نُفعل ايضاً مشاركة الملف Share )
2. نحدد متى يتم تحديد التغييرات التي تمت على الخلايا
3. من هم الأشخاص الذين ترغب في متابعة تعديلهم على الملف ( لان الملف اصبح في وضع المشاركة )
4. تحديد النطاق الذي ترغب في متابعة التعديلات عليه
5. حدد ما إذا اردت أن يتم إظهار التعديلات التي تمت على الخلايا في نفس الشيت ( بتفعيل هذا الإختيار فإنه سيتم إظهار التعديل في هيئة التعليق Comment وسيكون على الخلية في الركن العلوي مثلث أزرق غامق ليوضح أن هناك تعديل على هذه الخلية )
6. الأن يمكنك أن تقوم بالتعديل على البيانات التي بالملف لكن لن يتم إظهار التعديلات التي تمت على الملف إلا بعد عمل Save للملف وبذلك فإن الإكسل سيخبرك بالتعديلات التالية

• القيمة الأصلية للخلية قبل التعديل
• القيمة الجديد للخلية بعد التعديل
• الشخص الذي قام بالتعديل
• وقت التعديل

[ياسر الحافظ]

الاستاذ طارق

والله شيئ جميل وجديد ( بالنسبة لي )

شكرا

وفقك الله

ياسر الحافظ

[الـعيدروس]

هل بالامكان استاذي القدير

التاريخ يظهر بالهجري

[طارق محمود]

بعد إذن الأساتذة الكرام

يمكننا إستخدام الأداة Track Changes في الموضع Review » Changes » Track Changes » Highlight Changes

بعد الضغط على الأداة سيظهر لنا مربع الحوار Highlight Changes

1. نقوم بتفعيل الـ Check Box الخاص بعملية متابعة التغييرات (بتفعيل هذا الأمر فإننا بذلك نُفعل ايضاً مشاركة الملف Share )
2. نحدد متى يتم تحديد التغييرات التي تمت على الخلايا
3. من هم الأشخاص الذين ترغب في متابعة تعديلهم على الملف ( لان الملف اصبح في وضع المشاركة )
4. تحديد النطاق الذي ترغب في متابعة التعديلات عليه
5. حدد ما إذا اردت أن يتم إظهار التعديلات التي تمت على الخلايا في نفس الشيت ( بتفعيل هذا الإختيار فإنه سيتم إظهار التعديل في هيئة التعليق Comment وسيكون على الخلية في الركن العلوي مثلث أزرق غامق ليوضح أن هناك تعديل على هذه الخلية )
6. الأن يمكنك أن تقوم بالتعديل على البيانات التي بالملف لكن لن يتم إظهار التعديلات التي تمت على الملف إلا بعد عمل Save للملف وبذلك فإن الإكسل سيخبرك بالتعديلات التالية

• القيمة الأصلية للخلية قبل التعديل
• القيمة الجديد للخلية بعد التعديل
• الشخص الذي قام بالتعديل
• وقت التعديل

السلام عليكم

أخي المعتصم

جزاك الله خيرا

لم اكن اعلم هذا من قبل

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

آمين

أنا وسائر الأعضاء بالمنتدي وسائر إخواننا المسلمين

آمين آمين

[طارق محمود]

هل بالامكان استاذي القدير

التاريخ يظهر بالهجري

السلام عليكم

أخي الكريم

أضف سطر النتيجة الهجرية للكود

ليكون كالتالي

Private Sub Worksheet_Change(ByVal Target As Range)

    	If Target.Column <> 1 Then Exit Sub

    	rr = Target.Row

    	VBA.Calendar = vbCalHijri

    	Range("B" & rr) = Date & " _ " & Time

End Sub

[طارق محمود]

السلام عليكم

إخواني الأعزاء: عبد الله المجرب - كيماس - ياسر الحافظ.... وكل من تكرم بالمرور

شاكرا جدا لمروركم وكلماتكم الرقيقة

[يوسف عطا]

الله ينور عليكم

[يوسف عطا]

السلام عليكم

في الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)


    	If Target.Column <> 1 Then Exit Sub

     	rr = Target.Row

    	Range("B" & rr) = Date & " _ " & Time


End Sub

كل تغير في أي خلية من العمود A

يتبعه مباشرة تسجيل وقت التغيير في الخلية المقابلة لها في العمود B

فقط يرجي تزويد عرض العمود B يدويا ليتسع للوقت والتاريخ

أستاذ طارق

كيف يكون تعديل الكود لكى يكرر العملية للأعمدة من A إلى AZ فى الأعمدة من BA إلى CZ

ألف شكر

[طارق محمود]

السلام عليكم

أخي يوسف

الكود كالتالي

Private Sub Worksheet_Change(ByVal Target As Range)


    	If Target.Column > 52 Then Exit Sub

    	rr = Target.Row

    	cc = Target.Column

    	VBA.Calendar = vbCalHijri

    	Cells(rr, cc + 52) = Date & " _ " & Time

End Sub

وإذا لاترغب بالتاريخ الهجري إحذف السطر

VBA.Calendar = vbCalHijri

[يوسف عطا]

اللهم بارك فى علمك عزيزى الغالى

الف شكر

[تامر سمير]

السلام عليكم

أخي المعتصم

جزاك الله خيرا وجعله الله فى ميزان حسناتك

لم اكن اعلم هذا من قبل

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

آمين

أنا وسائر الأعضاء بالمنتدي وسائر إخواننا المسلمين

آمين آمين

[عادل حنفي]

السلام عليكم

اخي طارق

بارك الله فيك

وجعل الله اعمالك في ميزان حسناتك

و الشكر الي جميع المشاركين بالموضوع

و اسمح لي المشاركة لان الفكرة بصراحة جيده و تسمح بالكثير

ماذا لو اردنا تسجيل اي تغييرات في صفحة معينة بكل دقة

ارجو رؤية المرفق و اخباري النتيجة

تحياتي

حفظ اي تعديل.rar

[الـعيدروس]

لا اله الا الله

محمد رسول الله

الله يزيدكم من فضله

الاخ طارق محمود

الاخ عادل حنفي

بارك الله فيكم عمل في قمة الروعه

[الـعيدروس]

السلام عليكم

برجاء التعديل على الكود

لكي يتناسب مع مااحتاجه في عملي

ولكم جزيل الشكر والتقدير

موضح المطلوب على المرفق

حفظ اي تعديل.rar

[الـعيدروس]

هل لي بالرفع

رفع الله قدركم واثابكم الفردوس الاعلى

[الـعيدروس]

لا اله الا الله

محمد رسول الله

الحاجه ام الاختراع

[عادل حنفي]

اخي alidroos

جرب المرفق

تحياتي

حفظ اي تعديل1.rar

[الـعيدروس]

السلام عليكم

سبحانه من وهبك الفهم والفطنه

الله يزيدك بحق انت مميز

وعلى مااعتقد انت الوقت العائق لديك

الله يعينك وييسر لك امورك

بالنسبة لملاحطاتي هيا

انه عند الكتابه في اي خليه في الصفحه1

بيقوم بتسجيلها في صفحه 2

ومااحتاجه هو على العمودين الاسم والتقدير فقط

اذا لديك وقت تقوم بالتعديل على الكود اكون لك

من الشاكرين

وفقك الله

والسلام عليكم