كيف اجعل دالة الوقت now بدون update في إكسل

:(

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

امس فقط وضعتها!!!!!!

عزيزي الفاضل عبد الرحمن

ارجو ان توضح السؤال اكثر ان امكن لاني لا اعرف بالتحديد ما هو المطلوب

لان وضع دالة ديناميكية مثل الوقت now تعني امكانية التعديل على الوقت طول ما هي موجودةّ

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

اولا شكرا لاهتمامك يا اخى الفاضل

ثانيا الموضوع هو انى اريد حساب اوقات دخول الموظفين فعندما اكتب رقمه يعطينى اسمه و الساعة والتاريخ الحالية ولكن

كل ما اكتب رقم جديد تتغير الساعة بالنسبة لكل الموظفين نظرا لانى استخدم الدالة now فما الحل علما بانى لا اريد ان اكتب التاريخ او الساعة بيدى بمجرد كتابة رقم الموظف يكتب هو كل شئ و لك جزيل الشكر

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

السلام عليكم ورحمة الله وبركاته ..

يمكن تحقيق ما تصبو إليه عن طريق إدراج الدالة NOW ولكن بعد إدراجها حدد الخلية التي أدرجت فيها الدالة وانسخها ثم اضغط عليها بالزر الأيمن للفأرة واختر لصق خاص (يمكن كذلك اختيارها من قائمة تحرير) وحدد القيمة ثم اضغط موافق فيتم لصق قيمة الدالة دون أن تتغير تلقائياً.

لك تحياتي ..

والسلام.

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

جزاك الله خيرا يا اخ أحمد ولكنى اريد ان يحدث هذا تلقتئيا حيث ان الدالة now عندما يحدث لها calculation تحسب جميع الدوال امثالها

فيحدث "خراب مستعجل" و على العموم اريدك ان تفتح المرفق و ان شاء الله ستفهم قصدى

Amgad_emp.rar

استخدم هذا الكود :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Application.EnableEvents = False

With Target.Offset(0, 1)

.Value = Date

.NumberFormat = "yyyy/mm/dd"

End With

Application.EnableEvents = True

End Sub

و الله يا اخى انا مش عارف كيف اشكرك

ارجوا ان تكون قرات الرسالة الخاصه

الا خ / عبدالرحمن

قبل ان اقدم الحل اقدم هذا الاقتراح حسب رؤيتي و تحليلي للملف المرفق :

الاقتراح : استخدام قاعدة بيانات بدلا من جداول اكسل حيث انك ستتابع جميع الموظفين و الذين يصل عددهم (حسب التصميم ) الى 350 موظف يوميا بالاضافة الى تقرير شهري. بواسطة قاعدة بيانات آكسس يمكنك جعلل مهمتك في الحصول على التقارير اسهل بكثييييييير من جداول اكسل

اما الحل فهو كالتالي

امسح من حقل TIME المعادلة التالية اي ابق الخلية خالية بدون معادلات

=IF(J11="","",NOW())

استخدم الكود التالي لوضع الزمن الحالي[Now()] في الخلية الحالية بدون تغيير الخلايا الاخرى

Sub PutCurrentTime()
Dim Rno, Cno As Long
Rno = Application.ActiveCell.Row
Cno = Application.ActiveCell.Column
Application.Cells(Rno, Cno) = Now()
End Sub

انشأ زر امر و اربطة بالماكرو (الكود السابق)

بالتوفيق

Amgad_emp2.rar

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

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

بدون ان اثقل عليك اريد ان اعرف اين اضع كود الvba

وشكرا

من قائمة (اداوات)-> ماكرو -> محرر فجوال بيسك

او الضغط على ALT-F11

السلام عليكم

الاخ f11 بارك الله فيك انا عارف انى اطلب كثيرا ولكن معلش انا عايز اضع الماكرو فى if كيف ؟؟

يعنى اكتب الشرط إذا تحقق ينفذ الماكرو و شكرا

اخي الكريم

ممكن ترجع للملف المرفق سابقا و تشوف الكود

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

بالنسبة للملف الذى ارفقته مشكورا يا اخ f11 فيوجد به زر عند الضغط عليه يضع الوقت الحالى ولكن طلبى ان اضع هذا الماكرو بداخل if كيف هذا و جزاك الله خيرا

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

بالنسبة للملف الذى ارفقته مشكورا يا اخ f11 فيوجد به زر عند الضغط عليه يضع الوقت الحالى ولكن طلبى ان اضع هذا الماكرو بداخل if كيف هذا و جزاك الله خيرا

السلام عليكم ورحمة الله

السيد مستر f11

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