اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

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

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

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

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

وبارك فيكما

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

  • 4 months later...

السلام عليكم

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

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

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

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

بمعنى عدل في العمود 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

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

السلام عليكم

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

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

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

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

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

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

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

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

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

من الشاكرين

وفقك الله

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

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information