طلب دالة أو كود للوقت والتاريخ

[محمد حسن المحمد]

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

الأخوة المطورين الأفاضل 

السلام عليكم ورحمة الله وبركاته أما بعد:

فإنني أرفع لجنابكم سؤالاً مرفقاً بملف عن إمكانية تسجيل وتثبيت تلقائي للوقت والتاريخ 

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

لا حقاً كما يحصل مثلاً للدالة NOW التي تغير التاريخ تلقائياً ولكم جزيل الشكر 

أخوكم أبو يوسف

طلب دالة أو كود يثبت الوقت والتاريخ تلقائياً.rar

[ياسر خليل أبو البراء]

الأخ الحبيب أببو يوسف

 

راجع هذا الموضوع وفيه موضوعات مشابهة لطلبك بشكل كبير

http://www.officena.net/ib/index.php?showtopic=58438&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%AA%D9%84%D9%82%D8%A7%D8%A6%D9%8A

 

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

 

تقبل تحياتي

[ياسر خليل أبو البراء]

راجع هذا الرابط أيضاً

http://www.officena.net/ib/index.php?showtopic=60618&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%B3%D9%84%D9%8A%D9%85#entry389780

[عبدالله فاروق ابو ريان]

بعد اذن استاذي ابا البراء 
يمكنك استخدام خاصية البحث قبل مشاركة موضوع
ويمكنك مراجعة الموضوع التالي ان شاء الله تجد ضالتك
http://www.officena.net/ib/index.php?showtopic=59619&hl=%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته أخي أبو البراء ......سباق بعون الله تعالى إلى عمل الخير...أشكرك شكراً جزيلاً ....تقبل تحيات أخيك أبو يوسف

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

[ابو علي و سدرة]

استاذى الكبير ياسر

لما الاقى اسمك فى ردود على موضوع باستحى انى ارد

وكيف يفتى ومالك فى المدينة

لكنى استاذن فى طرح محاولتى

تفضل محاولة فى المرفق لعلها تجد المطلوب

طلب دالة أو كود يثبت الوقت والتاريخ تلقائياً.rar

[محمد حسن المحمد]

استاذى الكبير ياسر

لما الاقى اسمك فى ردود على موضوع باستحى انى ارد

وكيف يفتى ومالك فى المدينة

لكنى استاذن فى طرح محاولتى

تفضل محاولة فى المرفق لعلها تجد المطلوب

أساتذتي الكرام كلكم أجدتم وأصبتم ونصحتم ولكن كوني طالب مبتدئ وجدت التعامل مع الدالة أقرب وأسهل لي للوصول إلى حل مسألتي هذه الإجابة التي تفضل بها الأخ راسبوتين مع امتناني لأساتذتي أبو البراء وعبد الله فاروق مع فائق شكري وامتناني أخوكم أبو يوسف.     جزاكم الله خيراً....

تم تعديل مايو 5, 2015 بواسطه محمد حسن المحمد

[طارق محمود]

السلام عليكم

وبعد إذن الإخوة الأعزاء جميعا ولمزيد من الإثراء
 

أخي العزيز

ضع هذا الكود في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
    With ActiveSheet.ListObjects(1)
        S_Rw = .Range.Row + 1
        L_Rw = .ListRows.Count + S_Rw - 1
    End With
    If Intersect(Range(Cells(S_Rw, 2), Cells(L_Rw, 2)), Target) Is Nothing Then Exit Sub
    Cells(Target.Row, "E") = Time
    Cells(Target.Row, "F") = Date
End Sub

يعتمد الكود علي أن يحدث تغيير في إحدي خلايا الجدول بالعمود B عندها يكتب أوتوماتيكيا قيمة الوقت والتاريخ في عموديهما لحظة هذا التغيير 

 

تفضل المرفق أيضا

 

 

طلب دالة أو كود يثبت الوقت والتاريخ تلقائياً.rar

[محمد حسن المحمد]

 

السلام عليكم

وبعد إذن الإخوة الأعزاء جميعا ولمزيد من الإثراء

 

أخي العزيز

ضع هذا الكود في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
    With ActiveSheet.ListObjects(1)
        S_Rw = .Range.Row + 1
        L_Rw = .ListRows.Count + S_Rw - 1
    End With
    If Intersect(Range(Cells(S_Rw, 2), Cells(L_Rw, 2)), Target) Is Nothing Then Exit Sub
    Cells(Target.Row, "E") = Time
    Cells(Target.Row, "F") = Date
End Sub

يعتمد الكود علي أن يحدث تغيير في إحدي خلايا الجدول بالعمود B عندها يكتب أوتوماتيكيا قيمة الوقت والتاريخ في عموديهما لحظة هذا التغيير 

 

تفضل المرفق أيضا

 

 

الشكر الجزيل للأستاذ طارق .... بارك الله بجهودكم .....100% والله ولي التوفيق.