هل هناك طريقة لمعرفة تاريخ تسجيل قيمة بخلية

[احمد الحاوي]

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

[محمد نصري]

السلام عليكم اخي الكريم

يمكن ذلك من خلال تشغيل تعقب التغيرات

من تبويب مراجعة تختار تعقب التغيرات

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

وهكذا يعطيك العديد من المعلومات

منها ساعة التحرير والقيمة السابقة واسم الجهاز الذي تم التعديل عليه

 

وهذا فيديو لي سبق نشره على اليوتيوب يتحدث عن هذا الموضوع :

 

[جمال عبد السميع]

بالطبع هناك طرق لذلك أخى الحبيب " أحمد "

ومنهم الفيديو الرائع لأخى " محمد "

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

ومنهم هذه الطريقة عن طريق الكود التالى :

ومرة ثانية يتم دفعى للكود على العموم أرجو أن يكون به الإفادة للجميع

تقبلوا تحياتى

تعقب تسجيل تاريخ التغييرات التى تطرأ على خلية.rar

[احمد الحاوي]

استاذنا الكبير جمال عبد السميع اصبح ملكا للاكواد بعد ان كان ومازال ملك المعادلات 

كود رائع حقا 

تقبل تحياتي وشكري 

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

[جمال عبد السميع]

وهذا أيضا أخى مع التحكم فى حجم التعليق سواء " عرضا أو طولا "

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

لايمكن أحد يعلو على أساتذتنا فى الأكواد وعلى رأسهم أستاذى ومعلمى " عبد الله بقشير "

وإنما هى محاولة التجريب والحمد لله إننى وفقت فيها

تقبل تحيات : أخيك

تسجيل التغير الذى يطرأ على خلية مع التحكم فى حجم التعليق.rar

[احمد الحاوي]

جزاكم الله خيرا استاذنا / ابو محمود ... تمت التجربة وتغيير حجم التعليق طولا وارتفاعا بنجاح

ولكن حجم الخط يظل ثابتا 

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

شكر الله لك وزادك علما وتواضعا على علمك وتواضعك

[محمد الريفى]

السلام عليكم

اخى الحبيب محمد نصرى بارك الله فيك وزاد من امثالك وجزاك الله خير . واسال الله ان يجعل اعمالك فى ميزان حسناتك

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

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

[جمال عبد السميع]

أخى الحبيب " محمد الريفى "

أولا - شكرا على مرورك الكريم ، وكلماتك الرائعة

ثانيا - الكود بسيط للغاية ، حيث يتم وضعة فى حدث الصفحة بدون أزرار ، وهو يعتمد على عمل "add " لل " comment "

ثالثا - بدأت بعد ذلك فى تحديد مواصفاتة ، عن طريق

1- تحديد مداه

 If Not Intersect(Target, Target.Worksheet.Range("A1:A1000")) Is Nothing Then
If Not Target.Comment Is Nothing Then

2- ثم بدأت بعد ذلك فى وضع محتواه وهى دالة " now "

3- ثم بدأت بتنسيقها " كتاريخ وزمن "

Target.Comment.Text Format(Now(), "yyyy/mm/dd hh:mm:ss PM/AM")

4- والخطوة الأخيرة هى وضع تنسيق لل " comment " نفسة من حيث التحكم فى " عرضة وطولة ، ليسهل التحكم فى حجمة الملائم لعملية الظهور

Target.Comment.Shape.Height = 12
 Target.Comment.Shape.Width = 75 

وهذا هو الكود بالكامل ، أتمنى أن أكون وفقت فى توضيحة

Private Sub Worksheet_Change(ByVal Target As Range)
'GAMAL ABD ELSAMEH 22/8/2014
    If Not Intersect(Target, Target.Worksheet.Range("A1:A1000")) Is Nothing Then
        If Not Target.Comment Is Nothing Then
        Target.Comment.Text Format(Now(), "dd/mm/yyyy hh:mm:ss AM/PM")
        Target.Comment.Shape.Height = 20
        Target.Comment.Shape.Width = 75
        Else
        Target.AddComment Format(Now(), "dd/mm/yyyy hh:mm:ss AM/PM")
        Target.Comment.Shape.Height = 20
        Target.Comment.Shape.Width = 75
        End If
    End If
End Sub

تقبل تحيات : أخيك

[محمد نصري]

 

السلام عليكم

اخى الحبيب محمد نصرى بارك الله فيك وزاد من امثالك وجزاك الله خير . واسال الله ان يجعل اعمالك فى ميزان حسناتك

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

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

 

وإياكم اخي الله يبارك بعمرك وعملك ويسلمك يا أحلى أخ

[محمد الريفى]

استاذى الحبيب جمال عبدالسميع

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

واسال الله العلى العظيم ان يجعل اعمالكم شفيعا لكم يوم القيامه

تقبل خالص تحياتى واحترامى

تلميذك // محمد الريفى

[احمد الحاوي]

                  

 

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

جزاكم الله خيرا على هذا الشرح المبسط ( بكسر السين )

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

[محمود_الشريف]

أخى الحبيب // الأستاذ أحمد الحاوى

 

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

 

الأستاذ القدير // جمال عبد السميع

الأستاذ الكريم // محمد نصرى

 

طريقة أخرى أحببت أن أضعها بهذا الموضوع ( بالأكواد _ الكود موجود داخل حدث الصفحه )

بالملف الأصلى

بإفتراض أنكم لديكم جدول كامل مكون من 21 عمود

وترغبون فى معرفة وتتبع التغيرات أو الإدخالات الجديده بخلايا الجدول

وبنفس الوقت لا ترغبون فى أن يطلع أحد غيركم على تتبع هذه التغيرات

فهناك طريقة لذلك بتتبع التغيرات بملف آخر ولكن بشرط أن يوضع الملفين ( الأصلى والملف الآخر الخاص بالتتبع كلاهما بمجلد واحد )

كما بالمرفقات

 

وتقبلوا منى وافر الإحترام والتقدير

 

 

المتابعة.rar

[احمد الحاوي]

الاخ الحبيب / محمود_الشريف 

عمل اكثر من رائع 

سهل لي الكثير 

جزاكم الله خيرا ونفع بكم 

تقبل خالص تقديري